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ccccu.: 

cccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

ccccct': 

cccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

ccccccc 

:cccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

ccc 

EEE 

XXX 

XXX 

CCC 

EEE 

XXX 

XXX 

EEE 

XXX 

XXX 

Ic 

EEE 

XXX 

XXX 

EEE 

x;(x 

XXX 

EEE 

XXX 

XXX 

tec 

EEEEEEEEEEEE 

:xx 

C'C 

EEEEEEEEEEEE 

:xx 

etc 

EEEEEEEEEEEE 

<xx 

cc: 

EEE 

XXX 

XXX 

cct 

EEE 

XXX 

XXX 

ccc 

EEE 

XXX 

XXX 

ccc 

EEE 

XXX 

XXX 

ccc 

EEE 

XXX 

XXX 

ccc 

EEE 

XXX 

XXX 

ccccccc 

:cccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

ccccccc 

'.cccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

ccrcccc 

ccccc 

EEEEEEEEEEEEEEE 

XXX 

XXX 

♦•nLE«'lD*«CEBUF 


C    1 


CEBUF  - 

CEX  BUFFER  MANAGEMENT  R  MACRO  VC 

SRDBQP 

-  Purge 

Buffer  vJait  Queue 

376 

377 

378 

379 

380 

381 

382 

383 

38A 

385 

586 

387 

388 

300 

390 

000500 

391 

392 

393 

39/. 

39s 

3^6 

000504 

006304 

3')7 

000 5 06 

066704  OOOOOOG 

398 

000512 

013403 

399 

000514 

042703  177770 

-100 

000520 

04035', 

401 

000522 

160367  OOOOOOG 

402 

403 

404 

405 

406 

407 

000526 

408 

000532 

B  2 
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.SBT^'L  SRDBQP  -  Purge  Butter  Wait  Queue 

**-$(;'d8QP-  Purge  Buffer  Wait  Queue 

This  routine  is  called  to  cancel  all  requests  in  the  Receive  Data 
Buffer  Wait  Queue  ror  a  particular  system  line  number. 


Inpijts : 


R4  contains   tlie   system   line  number 


Outputs: 

N  one . 


SRDBQP: :SAVRG   <R3,R4> 


.IF  Df  M$$PRO 
CALL  SMPSAV 
.ENDC 


ASL 
ADD 
MOV 
BIC 
BK 
SUB 


R4 

$SLTMA,R4 

a(R4)t,R3 

**C^LF.BWT>, 

R3,a-(R4> 

R3,$RD0CT 


.IF  DF  M$$PRO 
CALL  a(SP)t 
.ENDC 

RESRG   <R4,R3> 
RETURN 


Save  some  registers 


Bypass  the  cache 


Convert  SLN  into  word  offset 
Point  into  System  Line  Index  Table 
Get  System  Lire  Table  (lags  word 
Isolate  wait  request  count 
Clear  wait  request  count  in  SLT 
Reduce  global  wait  count  by  same  value 


Restore  state  of  the  cache 


Restore  registers 


C     2 

CEBuF   -   CEX   BUFFER  MANAGEMENT   R  MACRO  VO5.05b  Friday  28-Jun-85   18:16     Page   15 
CCBGl        -   CC8  allocation   routine 


B  3 

CEBUF      CREATED  dY  MACRO  ON  28-JvjN-?'^  ':  18:17  PAGE  A 

MACRO  CRO^S  ';E'::RENCE  CREF   0^.00 
MACRO  NAME      REFERENCES 

CALL           6-100  8-165  8-173     8-176     9-227     10-249     11-287     11-296     12-528     12-330 

CCBDF'S        #5-60  5-62 

ENABLt        #5-59  6-106  8-183     10-255     12-336               ,  „ 

INh;8$        #5-59  6-9A  8-159     9-211      10-2«     11-281     12-318 

MAP           #5-5°  18-582  19-619 

RESMAP         #5-59  3-185  '9-622 

'r^?5^N                     t-Vo?  ?:]f^  l^W           ]l-l?6            I'i-fll           13-37.            ^',-A08           15-A80           16-535           18-592 

18-598  19-625 

SAVMAP                     #5-59  8-156  19-618 

SAVRG                       #5-59  8-157  9-210             11-279           12-317           13-358           U-390 

SLTDFS                       #5-60  5-63 


r 


f  1LE<MD'«CEBUF1 


C     3 


CEBOFl 
SRDBQP 

576 
377 
378 
379 
380 
381 
382 
383 
38; 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
AOO 
iOI 
402 
403 
404 
405 
406 
407 
408 


B  4 

-  CEX  BUFFER  MANAGEMENT  [lACRO  V05.03b  F-iday  28-Jun-85  18;17  Page  15 
-  Purge  Buffer  Wait  Queue 


.SBTTL  SROeOP  -  Pu  ge  Buffer  Wait  Queue 
**-$RD8QP-  Purge  Buffer  Uait  Queue 


This  routine  is  called  to  cancel  all  requests  ii  the  Re'eiue  Data 
Buffer  Uait  Queue  for  a  particular  system  line  number. 


Inputs 


R4  contains  the  system  line  number 


000500 


000504  006304 

000506  066704   OOOOOOG 

000512  0134C3 

000514  042703  177770 

000520  040354 

000522  160367  OOOOOOG 


000526 
000532 


Outputs : 

None. 


SRDBQP: :SAVRG   <R3,R4> 


.If  DF 

CALL 

.ENDC 

ASL 
ADD 
MOV 
BIC 
BK 
SUB 

.IF  DF 

CmLL 

.ENDC 

RESRG 
RETURN 


M$$PRO 
SMPSA;/ 


R4 

$SLTMA,R4 

a(R4)+,R5 

**C<LF.BWT>,s3 

R3,a-(R4) 

R3,$RDQCT 


M$$PRO 
3(SP)* 


<R4,R3> 


Savf  some  registers 


Bypass  the  cache 


Convert  SEN  into  word  offset 
Point  into  System  Line  Index  Table 
Get  System  Line  Table  flags  word 
Isolate  wait  request  count 
Clear  wait  request  count  in  SLT 
Reduce  global  wait  count  by  same  value 


Restore  state  of  the  cache 


Restore  registers 


ClBuF' 
rrBG' 


CEX  BUFFER  MANAGEMENT  MACRO  V05.03b  Friday  28-Jun-85 
-  CCB  allocation  routine 


C  A 

3:17  Page  16 


CEBUFl  CREATED   BY 

MACRO  CROSS   REFERENCE 


MACRO     ON  28-JUN-85   AT    18:1/ 


MACRO  NAME 

CALL 

CCBDFS 
ENABLS 
JNH'CI. 

hEjMAH 
RESRG 
re: JRN 

SAVMAP 

SAVRG 

SLTDFS 


REFERENCES 


7-100 

9-165 

16-45A 

17-525 

#6-60 

6-62 

#6-59 

7-1 06 

#6-50 

7-9^; 

#6-59 

19-582 

#6-59 

9-185 

#6-59 

9-18A 

7-107 

8-135 

19-5'J2 

19-5^8 

#6-59 

9-156 

#6-5 

9-157 

#6-b0 

6-63 

9-173 


9-1S3 

9-159 

20-619 

20-622 

13-337 

9-186 

20-625 

20-618 

10-210 


PAGE 
CREF 


9-176 


11-255 
10-211 


U-373 

11-256 


12-279 


B     5 

OA.OO 

10-227 


^3-336 
11-245 


15-40/ 
13-338 


13-31V 


Ci 
Dl 


11-2A9 


12-281 


16-456 
U-374 


U-358 


12-287 


15-318 


17-526 
15-408 


15-390 


12-296 


15-528 


16-480  17-528 

16-447  17-516 


13-330 


17-555 


>'  :le«>id«*ceddm 
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DDflDSP  -  DISPATCH  TO  DDM  LE 

575 
377 
578 
379 
380 
58^ 
38? 
333 
384 
385 
386 
387 


389 
390 
391 
392 
393 
39A 
39i 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
4^0 
411 
412 
413 
,14 
415 
416 
417 
418 
419 
420 
421 
422 


y  28 
7EL 


B  6 

.SBTTL  DD1DSP  -  DISPATCH  TO  DDM  LEVEL 

**-DDMD5°-DISPATCH  TO  DD(1  LEVEL 

THIS  5UBR0UTIME  IS  CALLED  TO  DISPATCH  DOWN  TO  THE  DDM  LEVEL.  PROCESS 
DISPATCH  WILL  OCCUR  AT  THE  CURRENT  PRIORITY  OR  AT  THE  PROCESS  PRIORITY 
DEPENDENT  ON  A  PDV  FLAG. 


CE 

Ta 


INPUTS: 
R2 


SYSTE,^  LINE  NUMBER 


REGISTERS  MODIFIED: 
R5 


000206 

000212  000241 

C00214 

000220 

000222  010200 

000224  066700  OOOOOOG 

000230  011000 

000232  032760  100000  000010 

000240  001406 

000242 


DDMDSP: 


000250  146067  000007  OOOOOOG 


000256 

000260 

000264  005516 

000?6t 

00027- 


10$: 


CALL 

CLC 

MFPS 

SAVRG 

MOV 

ADD 

MOV 

BIT 

BEQ 


SSTDDI 

-(SP) 

<R0> 

R2,H0 

$PDVTA,RO 

(RO),RO 

#ZF.DVP,Z.FLG(RO 

10$ 


MTPS  #PR7 

.IF  DF  L$$SI1 

MFPS  -(SP) 

BICB  Z.SCH(RO),(SP> 

MTPS  (SP'+ 


SET  UP  DDM  PDV  INDEX  &   LINE  TABLE  ADDRESS 
SAVE  CURRENT  PRIORITY 

WITH  C-BIT  CLEAR 
GET  A  FREE  REGISTER 
COPY  DDM  PDV  INDEX 
POINT  INTO  PDV  INDEX  TABLE 
GET  POINTER  TO  PDV 

IF  EQ,  RUN  DDM  AT  CURRENT  PRIORITY 

RAISE  PROCESSOR  PRIORITY 


GET  CURRENT  PRIORITY 
SET  UP  PROCESS  PRIORITY 
SET  UP  PROCESSOR  PRIORIT" 


.IFF 

BICB 

7.SrH(R0),PS 

.ENDC 

RESRG 

CALL 

ADC 

MTPS 

RETURN 

<R0> 
$PPDSP 
(SF) 
(SP)  + 

DROP  TO  PROCESS  PRIORITY 


RESTORE  REGISTER 
DISPATCH  TO  THE  DDM 
UPDATE  C-BIT  IN  SAVED  ''S 
RESTORE  PROCESSOR  PRIORI  lY 


CbDDM 
SDDASl 
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CE 


7- 

117 

$DC?^? 

9- 

196 

DDCMI  - 

10- 

236 

DDCM2  - 

11- 

317 

DDCM3  - 

n- 

518 

DDCM4  - 

V- 

376 

DDCDSP 

11- 

A2A 

SDDAST 

14- 

463 

SDDXMP 

u- 

A6A 

SDDRCP 

K- 

465 

SDDCCP 

1A- 

466 

SDDKCP 

1'j- 

533 

SSTDDM 

•  Dl.  TO  DDM  REQUESTS 

COI«MON  PROCESS  FOR  SPECIAL  fWN-rCR  FUNCTIONS 
COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 
COMMON  PROCESS  FOR  FUNCTIONS  WITH  CC8 
COMMON  PROCESS  fOR  FUNCTIONS  WITH  CCB 

•  DISPATCH  TO  DDil  LEVEL 

•  ASYNCHRONOUS  COMPLETION  TO  DLC  LEVEL 

•  TRANSMIT  COMPLETE  TO  DLC  i EVEL 
■  RECEIVE  COMPLETE  TO  DLC  LEVEL 

-  CONTROL  COMPLETE  TO  DLC  LEVEL 

-  KILL  COMPLEIE  TO  DLC  LEVEL 

-  SET  DDM  PDV  INDEX  AND  LINE  TA8I E  ADDRESS 
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If 


CEDDMM  MACRO  V05.03b  Friday  28-Jun-85  18:18  Page  }', 
tDDXIP  -  TRANSMIT  COMPLETE  TO  DLC  LEVEL 

.SBTTL 
.SBTTL 
.S8TTL 
.S8TTL 


A63 
A6i 
A65 
A66 
i67 
468 
469 
470 
471 
472 
473 
474 
47S 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497  000430 

498  0004  36 
499 

500  000440 

501  000446 
502 

503  000450 

504  000456 
505 

506  000460 

507  000404 

508  000466 
509 

510  000472 
511 

512  000500 

513  JP0500 

514  000500 
515 

516 
517 
518 
519 


B  8 


SDDXMP  -  TRANSMIT  COMPLETE  ^O  DlC  LEI'EL 
SDDRlP  -  RECEIVE  COMPLETE  TO  DLC  LEVEL 
SDDCCP  -  CONTOOL  COMPLETE  TO  DLC  LEVEL 
SDDKCP  -  KILL  COMPLETE  TO  DLC  LEVEL 


112764  000012  000010 
000420 

112764  000014  000010 
000414 

112764  000016  000010 
000410 

005764  010006 
100002 


010364  000012 


*»-$DDXMP-TRANSMIT  COMPLETE  TO  DATA  LINK  CONTROL 
»«-$DDRCP-RECElVE  COMPLETE 
♦•-SDDCCP-CONTROL  COMPLETE 
*»-$DDKCP-KILL  -.'OMPLETE 
»«-$LLCSP-SPEClAL  ENTRY  POINT  FOR  X25 

THIS  SUBROUTINE  IS  CALLED  BV  DEVICE  DRIVERS  TO  QUEUE 
COMPLETION  NOTIFICATIONS  TO  DATA  LINK  CONTROL  MODULES. 

THE  SLLCSP  ENTRY  POINT  IS  PROVIDED  FOR  USE  BY  THE  X25  DATA  LINK  MAPPING. 


I\PUTS: 


R5  =  OPERATION  COMPLETION  STATU" 
R4  =  ADDRESS  OF  CCB  TO  QUEUE 

THE  CCe  CONTMMS  A  VALID  lINL  NUMBER 


OUTPUTS: 

THE  CCB  IS  QUEUED  TO  A  DlC  LIST  BASED 

ON  THE  SYSTEM  LINE  NUMBER  PARAMETER  IN  THE  CCB  UITF;  A 

TRANSMIT  OR  RECEIVE  COMPLETE  FUNCTION  CODE. 

REGIS'E.'S  MODIFIED: 

XXX 


SDDXMP: 


:MOVB 
BR 


SDDRCP: :MOVB 
BR 


SDDKCP: 
IDDCCP: 


112764  00C020  000010  1?$: 


SLLCSP: 
SDDSPC: 
20$: 


:MO'/B 
BR 

:TSr 
BPL 
CALLR 

M0V6 


MOV 
.IF  DF 

Move 

ASL 


#FC.XCP,C.FNC(R4' 
20$ 

*FC.RCP  C  rNC(R4) 
20$ 

*FC.KCP,C.FNC(R4) 
20$ 


;  SET  TRANSMIT  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

;  SET  RECEIVE  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

;  SET  KILL  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 


C.LI.N(R4)       ;  SPECIAL  MODEM  CONTROL  COMPLETION? 

10$  ;  NO 

SCCBRT         ;  YES  -  RETURN  CCB  TO  POOL 

;  MODEM  CONTROLLER  WILL  POST  COMPLETION 

#FC.CCP,C.FNC(P4)  ;  SET  CONTROL  COMPLETE  FUNCTION  CODE 


R3,C.STS'R4) 

M$$PRO 

C.LIN(R4),R3 
R3 


SET  COMPLETION  STATUS 


GET  SYSTEM  LINE  « 
FORM  WORD  OFFSET 
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e   9 


58 
59 
60 
61 
62 
63 
6^ 
65 

66  000000 

67  000000 

68  000000 
69 


MACRO  LIBKViV  CALLS 


.MCALL 
.MCALL 
•MCALl 
rC8DF$ 
PDVDFS 
SLTDFS 


!f\IHi8$,ENABLS,SAVR6,RESRG 

CC8[)F$,PDVDF$,SL1DKJ 

CALlR  ;    AVOID    SyS'^M   DEPENDEt^CY 

;  DEFINE  THE  CCB  OFFSETS 
,  DEFINE  THE  PD'/  OFFSETS 
;    DEFINE    THE    SLT   OFFSETS 
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CEDD^',N  MACRO  V05.03b  Frida/  ?8-Jun' 
tSTDDM  -  ?E1  ODM  PDV  IMDEX  AND  LINE 


555 
b54 
555 
556 
557 
558 
559 
540 
5A1 
5i2 
545 
544 
545 
546 
547 
548 
549 
550 
551 
552 
555 
554 
555 
556 
557 
558 
559 
560 
561 
562 
565 
564 
565 
566 
567 
568 
569 
570 
571 
572 
575 
574 
575 


•85  18:1?  Page  15 
TABLE  ADDRESS 
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.SBTTL  SSTDDM  -  SET  DDM  PDV  INDEX  AND  LINE  TABLE  ADDRESS 

*»-$STDDM-SET  DD-1  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
**-$STDd1-(ALTERNATE  ENTRY) 

THIS  SUBROUTINE  IS  CALLED  TO  SET  UP  A  DEVICE  DRIVER  PDV  INDEX  AND 
LINE  TABLE  ADDRESS  BASED  ON  A  SYSTEM  LINE  NUMBER. 


INPUTS: 


R2  =  SYSTE-^  LINE  NUMBER  (ALTERNATE  ENTRY  ONLY) 
R4  =■-  CCB  ADDRESS  «ITH  A  VALID  SYSTEM  LINE  NUMBER  IN 
C.LIN  (MAIN  ENTRY  ONLY) 


OUTPUTS: 


R2  =  PDV  INDEX 

R5  =  ADDRESS  OF  DEVICE  LINE  TABLE 


000000 

000000  1 16-02  C0CC06 

000004 


0C0004  006502 

0C0006  066702  OOOOOOG 

000C12  011202 


576  000014 

016205 

000004 

577  000020 

11620? 

000002 

578  000024 

579 

580 

581 

000001 

;  REGISTERS  MOD 

IFiED: 

;      "^S 

SSIDDM:  :.IF  ND'^ 

N$$!LN 

MOVB 

C.LIN(R4),R2 

.ENDC 

$SrDD1::.IF  DF 

N$$1LN 

MOV 

a$SLTMA,R2 

.IFF 

ASL 
ADD 

MOV 

R2 

$SLTMA,R2       ; 

(R2),R2 

.ENDC 

MOV 

MOVB 

RETURN 

L.DDS(R2),R5 
L.DDM(R2),R2 

EXTRACT  SYSTEM  LINE  NUMBER 


GET  ADDRESS  OF  SYSTEM  LINE  ENTRY 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

GET  A">DRESS  OF  SYSTEM  LINE  ENTRY 


GET  DEVICE  LINE  TABLE  ADDRESS 

GET  DEVICE  DRIVER  PDV  INDEX  (WORD  INDEX) 

RETURN 


.END 
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t>,L[MP   -   <1LL    COMPLETE    TO   LLC    LEVEL 

20A 
205 
206 
207 

208  OOC'64 

209  000170     012602 

210  000172     000241 

211  000174  30$: 
212 
213 
2U 
2'' 5                  OOOCOl 
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CLR 

C.URM(RA) 

.ENDC 

CALL 
•10V 
CLC 
RETURM 

SPDQUF 
{SP/+,R2 

.DSABL 

LS8 

.END 

ALLOW  PROCESS  TO  RUM  OM  AMY  PROCESSOR 


QUEUE  CCB  AND  SCHEDULE  PROCESS 
RESTORE  R2 
CLEAR  C-BIT 
RETURN  TO  CALLER 
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SLLCRS  -  LLC  TO  LLC  REQUEST  QUEUING  SUBROUTINE 


B  12 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
KO 
141 
142 
143 
144 
145 
146 
147 
143 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 

167  000074 

168  0C-:074 
169 

170 
171 
172 
173 

174  000074 

175  C00100  052764 


.SBTTL   SLLCRS  -  LLC  TO  LLC  REQUEST  QUEUING  SUBROUTINE 

**-  SLLCRS  -  LLC  TO  LLC  REQUEST  QUEUING  SUBROUTINE 

**-  SDLCRS  -  OLC  TO  LLC  REQUEST  QUEUING  SUBROUTINE  FOR  X25 

*«-  SNMCRS  -  LLC  TO  DIG  REQUEST  QUEUING  SUBROUTINE  FOR  NETWORK  MANAGEMENT 

THIS  ROUTINE  IS  CALLED  BY  A  LLC  PROCESS  TO  QUEUE  REQUESTS  TO 
ANOTHER  LLC  PROCESS.   NOTE  THAT  THE  CAlLERS  CONTEXT  IS  SAVED  AS 
IF  AN  INTERRUPT  HAD  OCCURRED. 

THE  SDLCRS  ENTRY  POINT  IS  SUPPLIED  FOR  USE  BY  THE  X25  DATA  LINK  MAPPING. 


THE  SNMCR 
IT  CAN  F] 
FOR  LINE/ 

INPUTS; 


S  ENTRY  POINT  IS  SUPPLIED  fqR  USE  BY  NETWORK  MANAGEMENT  SO  THAT 
LL  IN  THE  UNIBUS  RUN  MASK  BEFORE  ISSUEING  A  REQUEST  TO  A  DLC 
CIRCUIT  COUNTERS  ETC. 


R4=     ADDRESS  OF  CCB  (OR  FIRST  IN  CHAIN) 

THE  CCB  MUST  CONTAIN  A  VALID: 

C.FNC  8  C.MOC  -  REOUEST  FUNCTION  CODE 
C.STA  -         DESTINATION  LLC'S  PDV  INDEX 
C.LIN  -        OPTION  CALLING  PARAMETER 

OUTPUTS: 

THE  REQUEST  IS  QUEUED  AND  THE  APPROPRIATE  LEVEL  IS  SCHEDULED 
NOTE:    A  LLC  PROCESS  CAN  DETERMINE  IF  A  COMPLETION  HAS  COME  FROM 
A  DLC  PROCESS  OR  ANOTHER  LLC  BY  EXAMINING  THE  MSB 
OF  THE  C.LIN/C.STA  CELL  IN  THE  CCB. 
MS8=0   THE  REQUEST  CAME  FROM  A  DLC  AND  THE  BYTE  C.LIN 

CONTAINS  THE  LLC'S  CH.'NNEL  NUMBER  FOR  THE  LOGICAL 
LINE  THAT  HAD  THE  COMPLETION. 
MSB=1    THE  REQUEST  CAME  FROM  A  LLC  AND  THE  BYTE  C.LIN 
CONTAINS  AN  OPTIONAL  CALLING  PARAMETER  FROM  THE 
REQUESTING  Li.  C. 


176  000106 
177 

178  000114 

179  000120 

180  CC0124 


152764 


100000 
000200 


000006 
000003 


;  REGISTERS  'lODIFIED: 
NONE 

SDLCRS:: 
SLLCRS::.  IF  D'^ 

MSSPRO 

CLR 

C.URM'R4) 

.ENDC 

SNMCRS::SAVRG 
BIS 
BIS8 

<R3,R4> 

#100000,. .LIN(R4 
#200,C.BID(R4) 

CALL 

RESRG 

RETURN 

SPDQUi 
<R4,R3> 

ALLOW  PROCESS  TO  RUN  'M   ANY  PROCESSOR 


SAVE  R3  AND  H4 

;  FLAG  DESTINATION  PROCESS  IS  LLC 

MARK  CCB  AS  COMING  FROM  ANOTHER  LLC 

QUEUE  REQUEST  CCB  AND  SCHEDULE  PROCESS 

RESTORE  REGISTERS 

AND  RETURN  10  CALLING  LLC 
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Symbol   table 


A$tCH<= 

000000 

I$$RAR= 

000000 

N$$ACi:  = 

000001 

T$$KMG= 

000000 

ZF.PSE= 

002000 

ASSCPS= 

000000 

!S$RDN= 

000000 

NS$BUF= 

000001 

T$$M1N= 

000000 

ZF.SL!-^ 

010000 

A$$PRI= 

nonroo 

K$$CNT= 

1775^6 

N$$LD7= 

000001 

V$$CTR= 

001000 

ZF.TIM= 

000200 

AI,STRP= 

OCOOOO 

K$$CS''  = 

1775',6 

N$$MCP= 

000001 

X$$DBT= 

000000 

ZF.y3P= 

000000 

C$SC<P= 

OOCOOO 

K$$L'  = 

000000 

N$$MLL= 

000001 

ZF.C0U= 

001000 

ZS.ASN= 

100000 

':$tORE  = 

OOO'.OO 

K$$:  ^ 

000074 

N$$^0V= 

000010 

ZF.DDM= 

000001 

zs.asY= 

140000 

CS$RSH= 

1775  b-' 

LD$ 

000000 

N$$NCr= 

000001 

ZF.DIA= 

OOAOOO 

Z.AVL 

000014 

D$$B(JG= 

1775K 

LSSASli- 

000000 

N$$PEM= 

000001 

ZF.,OLC  = 

000002 

Z.DAF 

000016 

DS$!S<= 

000000 

LSSDRV^-- 

000000 

P$$PA5= 

ooocoo 

ZF.DVP= 

100000 

2. DSP 

000000 

D$$L11= 

000001 

L$$P11  = 

000001 

P$$WRD= 

000000 

ZF.INI= 

0';oooo 

Z.FLG 

000010 

D$$YNC= 

000000 

l:$iir-= 

000000 

Q$$OPr= 

000010 

ZF.,<MX= 

000020 

Z.LEN  = 

000016 

DS$YNH= 

oocooo 

M$$CRfi= 

000121 

R$$DER= 

000000 

ZF.LLC= 

000001 

Z.LLN 

000006 

ESSXPR= 

000000 

M$$CR'(  = 

ooocoo 

R$J>K11  = 

000001 

ZF.LMC= 

000100 

Z.MAP 

000020 

F$$LVL= 

000001 

M$$FCS= 

000000 

R$'tSMD= 

000000 

ZF.f1AN= 

020000 

Z.MAM 

000004 

G$STPP  = 

ooococ 

M$!.MGE  = 

000000 

R$$11M= 

ooooon 

ZF.f1FL  = 

000010 

Z.PCB 

000012 

GS$TSS= 

000000 

M$'iNfT  = 

000000 

S'i$URG= 

000000 

ZF.MTM= 

000400 

Z.SCH 

000007 

G$STT<= 

000000 

M$$07R= 

000000 

s$iysz= 

007600 

ZF.viuX  = 

000040 

SCELOG 

OCOOOORG 

G$$WRD= 

000000 

.  ABS. 

00C020    000   (RW,i,GBL,A8S,0VR) 

000002    001    (RW,1,L 

CL,REL,C0N) 

Errors 

detected:  0 

Assembler    statistics 


Work      Tile      reads:    0 

Work      file   writes:    0 

Size  of   work    file:    10159  i..ords      (   40  Pages) 

Size   of    core  pool:    14440   Words      (    55   Page^) 

Operating      system:    RSX-1    M/PLUS 


Elaosed    tirne:    00:00:06. ?=9 

SY: CELOG. V2,[1 30, 134]CE.rG/CR/-SP-SV:[l 


,l]RSXMCM.S|V|L/ML,[130,110?NETLie/Ml,Ll30,10]RSXMCM/PA:1,[130,10]CELOG 


rRFATFT.    RY       MAFRH      nW    ?R-JIINI-fi5    AT     18:19 
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3 
A 
5 
6 

7 

8 
9 

10 
1] 

:2 

13 

u 

15 
16 

17 
IS 

19 
20 
?1 
22 
23 
2A 
25 

^A 

27 
28 
29 
30 
31 
32 
■  3 
-;;. 
35 
36 
37 
38 
39 
40 
(,^ 
1.1 

43 
AA 
45 
46 
47 
48 
49 
50 
51 

,  f. 

53 

54 
55 
56 
57 


.TITLE   CESCH 
.IDENT  /V05.00/ 

COPYRIGHT  :c)  1978  1979,1980,1982,1983,  1984,  1935  BY 
DIGITAL  EQUIPMENT  CORPORATIOfJ,  MAYNARC,  MASS. 

THIS  SOFTWARE  iS  FURNISHED  UNDER  A  LICENSE  AND  MAY  EiE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  Tu  ANY 
OTHER  PERSON.  NO  TIT'"-  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBlLl 1 Y  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  13  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION 

CEX  PROCESS  SCHEDULING  ROUTINES 

DISTRIBUTED  SYSTEMS  S0F1WARF  ENGINEERING 
'DENT  HISTORY: 

l.Ou 


10-FEB-:^8 

VERSION  2.0  RELEASE 


2.00     '4-DEC-79 

DECNET-IIM'S   V3.0 
DECNET-,1M-PIUS   VI. 0 

3.00     16-APR-82 

DECNET-rM   V3.1 
DECNET-HM-PLUS   VI. 1 

4.00     07-NOV-83 

DECNE^-IIM  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-liM/5  V4-2 
DECnet-llM-Plus  V3.0 
DECnet-M-cro/RSX  VI. 0 


i.nc  A7k  r  r. ; 


n_ai;  ia.  :)n 
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LESCH 

CREATED  BY 

MACRO     OM  28 

-JUN-85   AT   18:20 

PAGE    1 

SYMBOL 

[ROSS   REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

CF.DDM 

- 

000002 

G 

*4-65 

CF.DYN 

- 

OOOOOA 

G 

#4-65 

CF.EIS 

r 

000010 

G 

#4-65 

CF.FR< 

= 

100000 

G 

#4-65 

CF.LOG 

r 

000020 

G 

#4-65 

CF.MDM 

- 

000001 

G 

#4-65 

CF.TIM 

- 

000400 

G 

#4-65 

CS.LST 

- 

040000 

9-311 

9-315 

C.LIN 

C0C006 

•9-306 

C.STS 

000012 

*9-311 

•9-315 

i'BSAS 

- 

ft-***** 

4-64 

KISAR5 

- 

****** 

GX 

•5-132 

•6-177 

8-247 

•8-255           ^8-269 

iaSAR6 

- 

****** 

GX 

8-246 

8-270 

K$$DAS 

- 

****** 

5-112 

6-172 

8-249 

8-264 

L$$SI1 

= 

**    -*** 

5-93 

7-208 

9-317 

9-348 

MSSPRO 

- 

****** 

5-100 

5-106 

9-319 

9-344 

PR7 

- 

****** 

GX 

5-110 

7-203 

9-317 

PS 

- 

****** 

GX 

•  5-97 

•5-110 

•7-203 

•7-214             9-317           *9- 

317            •9-348 

R$$MPL 

=: 

****** 

4-67 

9-331 

10-361 

10-370 

R$$11D 

~ 

****** 

4-64 

R$S11M 

- 

000000 

4-64 

R$$11S 

~ 

****** 

4-64 

X$$MCB 

r 

****** 

4-64 

4-64 

ZF.COU 

r 

001000 

#4-64 

ZF.DDM 

= 

000001 

#4-64 

ZF.DIA 

r 

0C4000 

#4-64 

ZF.DLl 

= 

000C02 

#4-64 

ZF.DVP 

- 

100000 

#4-64 

If  .m 

r 

040000 

#4-64 

ZF.KMX 

r 

000020 

#4-64 

ZF.LLC 

= 

OOOOOA 

#4-64 

Zf .LMC 

- 

000100 

#4-64 

ZF.MAN 

~ 

020000 

#4-64 

ZF.MFL 

~ 

000010 

#4-64 

ZF.MTM 

- 

OCC  .00 

#4-64 

ZF.MUX 

- 

OOOOAO 

#4-64 

ZF.PSE 

~ 

002000 

#4-64 

ZF.SLI 

- 

010000 

#4-64 

ZF.TIM 

- 

000200 

#4-64 

ZF.X3P 

~ 

000000 

#4-64 

ZS.ASN 

- 

100000 

#4-64 

ZS.BSV 

- 

1A0000 

#4-64 

Z.Avl 

oooou 

#4-64 

/.DAT 

000016 

#4-64 

Z.DSP 

000000 

#4-64 

4-64 

Z.fLG 

000010 

#4-6^ 

Z.IC-I 

~ 

000016 

#4-6' 

Z.LLN 

000006 

#4-64 

Z.'^AP 

000020 

#4-64 

Z.NAM 

000004 

#4-64 

Z.PCB 

000012 

#4-64 

Z.SCH 

000007 

#4-64 

7-214 
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?10 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 

326  000316 

327  000322 
328 

329 

330 

331 

332 

333  000326 

33A  000330 

335  000334 

336  000340 

337  000342 

338  000344 

339  000350 

340  000352 

341  000354 
342 

3m  3 
344 
345 
346 

347  000360 

348  000362 

349  00C3b6 

350  000372 

351  000376 

352  000402 

353  000404 
354 

355  000410 

356 

357 

353 

359 

360 

361  00041? 

3o2  C00416 

363  000422 


000006 


016746 
016746 


012546 

016701 
012102 
001776 
026215 
001373 
005725 
011267 


005741 
166701 
010167 
016602 
010566 
010205 


.SBTTL  SCALLX  -  MAPPED  SUBROUTINE  CALL 

>'-$CALLX-MAPPED  SUBROUTINE  CALL  TO  ANOTHER  PROCESS 

CAL,  ING  SEQUENCE: 

JSR     R5, SCALLX 
.WORD  <ADDRESS  OF  SUBROUTINE  TO  CALL> 
.RAD50  <PROCESS  NAME> 

NOTE  THAT  THIS  SUBROUTINE  ASSUMES  THAT  THE  NAMED  PROCESS  EXISTS  IN  THE 
SYSTEM  AND  DOES  NOT  CHECK  IF  THE  PROCESS  IS  LOADED. 


OOOOOOG 
OOOOOOG 


OOOOOOG 

000004 

OOOOOOG 


OOOOOOG 
OOOOOOG 
000012 
000012 


.IIF  NDF  KSSDAS  0FS=6 

.IIF  DF  KSSDAS  OFS=10 

SCALLX: :M0V     $CMPDV,-(SP> 
MOV     KISAR5,-(SP) 


012667 
012667 


10S: 


OOOOOOG 
OOOOOOG 


.IF  DF 

KSSDAS 

MOV 

KINAR5,-(SP) 

.ENDC 

;  DF  KSSDAS 

MOV 

(R5)+,-(SP) 

SAVRG 

<R1,12> 

MOV 

SPDVTA.RI 

MOV 

(R1)+,R2 

BEO 

10S 

CMP 

Z.NACi>R2),(R5) 

BNE 

lOS 

TST 

(R5)  + 

MOV 

(R2),KISAR5 

.IF  DF 

KSSDAS 

MOV 

(R2),KINAR5 

.ENDC 

;  DF  KSSDAS 

TST 

-(PI) 

SUB 

SPtVTA.RI 

MOV 

R1,SCMPDV 

MOV 

0FS-4{SP),R2 

MOV 

R5,CFS<-4(SP) 

MOV 

R2,R5 

RESRG 

<R2,R1> 

CALL 

a(SP)t 

.IF  DF 

KSSDAS 

MOV 

(3P)+,KINAR5 

.ENDC 

;  DF  K'SSDAS 

MOV 

{SP)t,» 1SAR5 

MOV 

(SP)f,tCMPDV 

RETURN 

STACK  OFFSET  FOR  R5 

STACK  OFFSET  FOR  R5 

SAVE  CURRENT  PDV  INDEX 

AND  CURRENT  PROCESS  MAPPING 


SAVE  INSTRUCTION  MAPPING 


SAVE  DESTINATION  SUBROUTINE  ADDRESS 

GET  2  FREE  REGISTERS 

POINT  TO  PDV  INDEX  TABLE 

GET  POINTER  TO  NEXT  PDV 

IGNORE  ZERO  ENTRIES 

DO  WE  HAVE  A  MATCH? 

IF  NE,  NO 

SKIP  OVER  PROCESS  NAME 

MAP  TO  DESTINATION  PROCESS 


ALSO  MAP  INSTRUCTION  SPACE 


BACK  UP  PDV  INDEX  TABLE  POINTER 
COMPUTE  PDV  INDEX 

AND  SAVE  IT 
SWAP  OLD  R5  AND  RETURN  ADDRESS 


RESTORE  REGISTERS 
CALL  THE  SUBROUTINE 

RESTORE  INSTRUCTION  MAPPING 


RESTORE  PROCESS  MAPPING 
RESTORE  CURRENT  PDV  INDEX 
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C  1 

•CEBUf 

cccccccc 

EEEEEEEEEE 

BBBBBB8B 

UU 

UU   F 

FFFFFFFFF 

cccccccc 

EEEEEEEEEE 

BBBBBB8B 

UU 

UU   F 

FFFFFFFFF 

EE 

BB      BB 

UU 

UU   F 

EE 

BB      BB 

UU 

UU   F 

EE 

BB      BB 

UU 

UU   F 

EE 

BB      BB 

UU 

UU   F 

EEEEEEEE 

BB8BBB88 

UU 

UU   F 

FFFFFFF 

EEEEEEEE 

B8888B8B 

UU 

UU   F 

FFFFF^f 

EE 

BB      88 

UU 

UU   F 

EE 

BB      BB 

UU 

UU   F 

EE 

BB      B8 

UU 

UU   F 

•  •  *  • 

EE 

B8      BB 

UU 

UU   F 

*  >  ■  > 

cccccccc 

EEEEEEEEEE 

BBBB8B8B 

UUUUUUUUUU   F 

*  •  •  • 

cccccccc 

EEEEEEEEEE 

BBBB8BBB 

UUUUUUUUUU   F 

5SSSSS5S 

'TTTT 

TTTrr 

SS55SSSS 

TTTTT 

TTTTT 

SS 

SS 

SS 

SS 

5SS5SS 

S5SSS5 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLUULLLL 

SSSSS5SS 
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l,^0 

'.I! 

412 

413 

AU 

415 

416 

417 

418 

419 

420 

421 

422 

425 

424 

425 

426 

42/ 

428 

429 

430 

431 

432 

433 

434 

435 

436  000534 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

4  52 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 


.SBTIL  CC86T   -  CCB  allocation  routine 

•♦-CCBGI-  CCB  allocation  routine 

This  subroutine  is  callecj  within  this  module  to  allocate  a  CCB 
from  the  CC8  pool  or  from  System  Dynamic  "'emory.  This  routine  is 
always  executed  with  interrupts  inhibited  (and  rrul ti-processors 
locks  set). 

Inputs : 

None. 

Outputs: 

R4  contains  the  address  of  allocated  CCB 

C-Bit  is  CLEAR  if  the  CCS  was  successfully  allocated 

C-Bit  is  SET  if  'ihe  allocation  failed 


Notes 


Before  this  routine  is  called,  the  calling  routine  must  have  issued 
a  CLC  instruction  followed  by  an  INHIBS.  No  other  values  must  be 
stored  on  the  stack  because  if  the  allocation  fails,  the  FAIL:  code 
will  reach  back  on  the  stack  and  set  the  C-Bit  in  the  saved  PSW  so 
that  when  the  calling  routine  executes  an  ENABLS  the  C-Bit  will  be 
set  to  indicate  the  allocation  failure. 


CCBGT:   .IF  DF   N$$OPT 


TSTB 
BMI 

PRI0FFt2(SP) 
10$ 

CMP 
PHI 

$CC6CT,$RDB'H 
10$ 

CMP 
BHIS 

$CCBAL,$RDBNM 
30$ 

SAVRG 
MOV 

<R0,R1,R2> 
$CC8SZ,R1 

.IF  DF 

ADD 

.ENDC 

M$$PRO 
*2,R1 

CALL 
MOV 
RESRG 
BCS 

$ALOCB 
R0,R4 

<R2,R1,R0> 
10$ 

.IF  DF 

TST 

.ENDC 

M$$PRO 
(R4)t 

INC 
PR 

SCCBAL 
20$ 

;;;  Can  we  dynamically  allocate  a  CCB? 

;;;  If  MI,  No 

;;;  Else,  are   we  below  the  RDB  threshold 

;;;  If  HI,  No  ...  allocate  from  pool 

; ; ;  Have  we  allocated  enough  dynamic  CCBs? 

;;;  If  HIS,  Yes 

; ; ;  Save  some  registers 

; ; ;  Get  size  of  block  to  allocate 


; ; ;  2  more  bytes  on  a  Multi-Processor 


Try  to  allocate  a  dynamic  CCB 
Copy  adrecs  of  allocated  block 
Restore  registers 
If  CS,  DSR  allocation  failed 


; ; ;  Skip  over  Unibus  Run  Mask 


: ; ;  Count  aynamically  allocated  fcb 
; ; ;  EntP'  rommon  code 


.ENDi 
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CClCCCCC 

EEEEEEEEEE 

BBBBBBBB 

UU 

UU   F 

FFFFFFFFF 

1 

1 

CCCCCCCr 

EEEEEEEEEE 

BBBBBBBB 

U'J 

UU   F 

FFFFFFFFF 

1 

1 

'^  L 

£E 

BB      BB 

UU 

UU   F 

111 

1 

EE 

BB      BB 

UU 

UU   F 

111 

1 

EE 

BB      BB 

UU 

UU   F 

1 

1 

EE 

BB      BB 

UU 

UU   F 

1 

1 

EEEEEEEE 

BBBBBBBB 

UU 

UU   F 

FFFFFFF 

1 

1 

EEEEEEEE 

BBBBBBBB 

UU 

UU   F 

FFFFfFF 

1 

1 

EE 

BB      BB 

UU 

UU   F 

1 

1 

EE 

BB      BB 

UU 

UU   F 

EE 

BB      BB 

UU 

UU   F 

1 

EE 

BB      BB 

UU 

UU   F 

• 

1 

cccccccc 

EEEEEEEEEE 

BBBBBBBB 

UUUUUUUUUU   F 

111 

1  1  1 

cccccccc 

EEEEEEEEEE 

BBBBBBBB 

UUUUUUUUUU   F 

111 

i  1  1 

SSSSS5SS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

TTTTT 

SS 

ss 

SS 

ss 

SS5SSS 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLlI ll 

SSSSSSSS 

LLLLLLLLLL 
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^10 

411 

A12 

413 

4U 

415 

4-,6 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436  000534 

437 

438  000534 

439  000540 
440 

441  C00542 

442  000550 
443 

444  000552 

445  000560 
446 

447  U00562 


.SBTTL 


CC8GT 


-  CCB  allocation  routire 


♦♦-CCBGT-  CCB  allocation  routine 

This  subroutine  is  called  within  this  module  to  allocate  a  CCB 
from  the  CCB  pool  or  from  System  Dynamic  Memory.  This  routine  is 
always  executed  with  interrupts  inhibited  (and  multi-processors 
locks  set). 

Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  allocated  CCB 

C-8it  is  CLEAR  ir  the  CCB  was  successfully  allocated 

C-6it  is  SET  if  the  allocation  failed 


Notes: 


Before  this  routine  is  called,  tht  calling  routine  must  hav/e  issued 
a  CLC  instruction  followed  by  an  INHIB$.  No  other  values  must  be 
stored  on  the  stack  because  if  the  allocation  fails,  the  FAIL:  code 
will  reach  back  on  the  stack  and  set  the  C-Bit  in  the  saued  PSW  so 
that  when  the  calling  routine  evecutes  an  ENABL$  the  C-Bit  will  be 
set  to  indicate  the  allocation  failure. 


CC8GT:   .IF  DF   N$$0PT 


105766 
100427 

C2b767 

101023 

026767 
103033 


ooooor 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOLb 


448  000570 

016701 

OOOOOOG 

449 

450 

451 

452 

455 

454  0OC574 

455  000600 

010004 

.  456  000602 

457  000610 

1034C3 

458 

459 

460 

461 

462 

463  000612 

005267 

OOOOOOG 

464  00C616 

000^07 

465 

466 

TSTB 
BMl 

PRIOFF 
10$ 

2(SP) 

CMP 
BHI 

$CrBCT 
10$ 

$RDBTH 

CMP 
BHIS 

$CC8AL 
50$ 

$RDBNM 

SAVRG 

MOV 

<R0,R1 
$CC8SZ 

R2> 

R1 

.IF  DF 

ADD 

.ENDC 

M$$PRO 
#2,R1 

CALL 

HESRG 
BCS 

$AL0C8 
R0,R4 
<R2,R1 
10$ 

R0> 

.IF  DF 

T^T 

.ENDC 

M$$PRO 
(R4)* 

INC 
BR 

$cceAL 
<^o$ 

; ; ;  Can  we  dynamically  allocate  a  CCB? 

;;;  If  MI,  No 

; ; ;  Else,  are  we  below  the  ROB  threshold 

; ; ;  If  HI,  No  ...  allocate  from  oool 

; ; ;  Have  we  allocated  enough  dynamic  CCBs? 

;;;  If  HIS,  Yes 

;;;  Save  some  regisvprs 

; ; ;  Get  size  of  block  to  allocate 


2  more  bytes  on  a  Multi-Processor 


Try  to  a'  locate  a  dynamic  CCB 
Copy  adress  of  allocated  block 
Restore  registers 
If  CS,  DSR  allocation  failed 


.ENDC 


; ; ;  Skip  over  UniLus  Run  Mask 


; ; ;  Count  dynamically  alloreted  lCB 
; ; ;  Enter  comnon  c^de 


0     4 
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C  6 


SDDAS^ 


CE 


42*. 
1,2' 
42ti 
42? 
428 
429 
430 
431 
4  32 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
46^ 


.SBTTL  SDDAST  -  ASYNCHSOMOUS  C-'MPLETIOM  TO  DLC  LEVEL 

h 
**-$DDAST-ASyMCHRONOUS  COMPLETION  TO  DATA  LINK  CONTROL 

THIS  SUBROUTINE  IS  CALLED  BY  DEVICE  DRIVERS  WHEN  AN  ASYNCHRONOUS 
CCNDITICN  MUST  BE  RETURNED  TO  A  DATA  LINK  CONTROL  MODUlE  AND  NO  tCB 
IS  AVAILABLE  AT  THE  DEVICE  DRIVER. 

INPUTS: 

R3  =  ASYNCHRONOUS  COMPLETION  STATUS  (MOVED  INTO  C.STS) 
R4  =  SYSTEM  LINE  NUMBER 

OUTPUTS: 

A  CCB  IS  ALLOCATED  ON  BEHALF  OF  THE  DEVICE  DRIVER 
AND  THE  ASYNCHRONOUS  STATUS  IS  QUEUED  TO  THE 
DATA  LINK  CONTROL  MODULE  WITH: 

C.FNC=  FC.CCP 

C.MOD=  FS.AST 

REGISTERS  MODIFIED: 
XXX 
.ENA8L 


000274  C10446 

000276 

000302  103406 

000304  Q12664     000006 

00031C  012764     000020     00001C 

000316  00es26 

00032C  012604 
000322 


SDDAST: 


5$: 


:(»IOV 
CALL 
BCS 
MOV 
MOV 
BR 

MO'' 
RE  'URN 


LSB 

R4,-(SP)  ;  SAVE  LINE  NUMBER 

tCCBGT  ;  ALLOCATE  A  CCB 

5$  ;  IF  CS  ERROR 

(SP)+,C.LIN(R4)  ;  SET  LINE  NUMBER  IN  CCB 

#FC.CCP»FS.AST,C.FNC(R4)  ;  SET  ERROR  COMPLETE  FUNCTION  CODE 

20$  ;  FINISH  IN  COMMON  CODE 


(SP)+,R4 


CLEAN  THE  STACK 
RETURN  TO  CALLER 


fCDDM   MACRO  V05.03b  rnaay 
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C  7 


CE 


9 
10 
11 

:2 

13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2'- 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 


55 
54 
55 
56 
57 


.HF  DF  X$$NJDM   .TITLE   CEOOMN 
JIF  DF  X$$f1DC   .TITLE   CEDDMM 
.IIF  MDF  X$$NDM  6  X$$MDC  .TITLE  CEDDM 
.IDENT   /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMEfJT  CORPORATIO»J,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FuRNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ,  NY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  "HE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY   OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CEX  DDM/DLC  INTERFACE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOF'WARt  ENGINEERING 

IDENT  HISTORY: 

1.00      10-FE8-78 

VERSION   2.0  RELEASE 

2. no     14-DEC-79 

Di^CNET-IIM/S   V3.0 
DECNET-11M-PLUS   VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   Vl.1 

4.00     07-N0V-83 

DECNET-11M   V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-)UL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/KSX  Vl.O 


ITS 
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520 

521 

522 

523 

52^ 

525 

526 

527  00050A 

528 

529 

530 

551 
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C  8 


ADD  $SLTMA,R3 

MOV  (R3),R3 

MOV  L.KR8A(R3),R3   .  _. 

MOV  K.URM(S3),C.URMfR4) 


POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
GET  POINTER  TO  KRB 


.ENDC 

CALLR   S^DQUI 

.DSABL  LS6 

.ENDC 


QUEUE  CCB  AND  SCHEDULE  PROCESS 


CEDDMM  M>\rRO  V05.03b  Frida 
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C  9 


71 

^2 

73 

?4 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

''O 

91 

92 

V3 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

1OA 

10^ 

106 

107 

108 

109 

no 

111 
112 
113 
1U 


LOCAL  MACRO  DEFINITIONS 


.If  DF  K,$$DAS 

.MACRO  DDFDF.FNCARGl 

MOV  R3,-(SP) 

MOV  *FNC,R3 

.IF  B  <ARG1> 

ER  DDCM1 

.IFF 

.IF  IDN  <ARG1>,<MDC> 

BR  DDCM2 

.IFF 

.IF  IDN  <ARG1>,<SUB> 

BR  DDCM4 

.IFF 

BR  DDCM5 

.ENDC 

.ENDC 

.ENDC 

.ENDM  DDFDF 


10$: 


SAVE  R3 

GET  FUNCTION  CC&E 

COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR  MODEM  CONTROL  FUNCTIONS 

COMMON  PROCE'SING  FOR  CONTROL  FUNCTIONS  WITH  CCB 


IFF 


;  DF  K$$DAS 


.MACRO  DDFDF, FNCARGl 

.IF  B   <ARG1> 

JSR     R3,DDCM1 

.IFF 

.IF  IDN  ^ARG1>,<MDC> 

JSR     H',DDCM2 

.IFF 

.IF  IDN  <A.'G1>,<5UB> 

JSR     R3,DDCMA 

.IFF 

JSR     R3,DDCM3 

.ENDC 

.ENDC 

.ENDC 

.WORD   FNC 

.ENDM 


COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR   MODEM  CONTROL  FUNCTIONS 

COMMON  PROCESSING  FOR  CONTROL  FUNCTIO^JS  WITH  CCB 


.ENDC 


DF  <$$DAS 


.J 
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Symbol  table 

A$,$CHK=  000000 

CS.ENB= 

000020 

FC.KIL= 

000004 

LD$LP  = 

000000 

N$$BUF= 

000001 

A$I.CPS=  000000 

CS.ERR= 

100000 

FC.riAN= 

000024 

LF.ACT= 

100000 

M$$LDV= 

000001 

A$$PR!=  000000 

CS.FrL= 

001000 

FC.HI.D= 

000026 

lF.BRO= 

000400 

N$$MCP= 

000001 

A$$TRf'=  000000 

CS.HCR= 

000001 

FC.PCT= 

000030 

LF.8UT= 

000007 

Ni$MLL= 

000001 

CB.CCB=  000002 

CS.hFE= 

002000 

FC.PWR= 

000022 

LF.ENA= 

002000 

N$$MOV= 

0000  lO 

CB.30fl=:  000040 

CS.LST= 

04.J00 

FC.RCE= 

000002 

LF.lPB= 

001000 

N$$NCT= 

000001 

CB.DLl=  0OC020 

CS.MTL= 

:;;'^inM 

FC.RCP= 

000014 

LF.MDC= 

000100 

N$$PEM= 

000001 

CB.RDB=  OOOOOA 

CS.RNIG= 

ooooio 

FC.T]M= 

000010 

LF.MFL-- 

004000 

P$$P45= 

000000 

CB.SDB=  000010 

CS.R0V= 

000004 

FC.aCP= 

000012 

;.F.MTP= 

000020 

P$$WRD= 

cooooo 

rB.SLi=  oooioo 

CS.RSN= 

010000 

FC.XME= 

000000 

ir.PAC^ 

000200 

Q$$OPT= 

000010 

CB.XLB-^  000001 

CS.SH1J= 

000001 

FS.AST= 

000000 

LF.RDY= 

O'.OOOO 

R$$DER= 

000000 

:c.LLC=  000200 

CS.SID= 

000002 

FS.CIB= 

002000 

LF.REA= 

010000 

R$$K11= 

000001 

:E.AB0=  100362 

CS.STR= 

000004 

FS.CRA= 

001000 

LF.SER= 

000040 

R$$SMD= 

000000 

~E.DAO=  100346 

CS.SUC= 

000001 

FS.DIS= 

013000 

LF.llM^; 

000010 

R$$11M= 

000000 

rE.OiS=  100366 

CS.TM0= 

020000 

FS.DVC= 

001000 

lF.UNL= 

020000 

SF.ACT= 

000200 

::e.err=  100370 

C'^.,>(UR  = 

000004 

FS.EN8= 

0120C0 

LF.X2P= 

000000 

SF.ENA= 

000100 

CE.ILN=  100350 

C$SCKP= 

000000 

FS.EXI= 

001000 

LN.C10= 

000000 

SF.LPB= 

000004 

CE.LTC=  100356 

C$$0RE= 

000400 

FS.GETn 

006000 

LN.DiJM= 

000005 

SF.MFL= 

000040 

CE.MOP=  100372 

C$tRSH= 

177564 

FS.HLT= 

000000 

LN.LOA-- 

000004 

SF.PAC= 

000020 

CE.'  .''=  100361 

C.ADD 

000034 

FS.]NI= 

000000 

LN.L0O= 

000C03 

SF.RtA= 

000010 

CE.R,'e=  100376 

c.eiD 

000003 

FS.K]l  = 

000000 

LN.OAU= 

000003 

SF.SER^ 

000001 

CE.SRC^  100364 

C.BUF 

000014 

FS.LCL= 

100000 

LN.OFF= 

000001 

SF.SVC= 

000002 

CE.STP=  100352 

C.BUF1 

000014 

FS.LTM= 

001000 

LN.ON  = 

000000 

SF.UNL= 

000040 

CE.TME=  100354 

C.BUF 2 

000024 

FS.MNT= 

004000 

LN.OOP= 

000004 

S$$WRG-- 

000000 

CE.TMO=:  100374 

C.CNT 

00002U 

FS.MSN= 

014000 

LN.0PE= 

000001 

S$$YSZ= 

007600 

CE.UNS=  100344 

C.CN'TI 

000020 

FS.REA= 

001000 

LN.REF:; 

000002 

S.COST 

000001 

CF.CHN=  000001 

C.CI^T2 

000030 

f;.ret= 

000000 

LrJ.SER  = 

000002 

S.FL6 

cooooo 

CF.EOM=  000004 

C.FLG 

000022 

FS.REZ= 

003000 

lN.5TA= 

000017 

S.LEN 

000004 

CF  .HDR=  000020 

C.FLGi 

000022 

FS.RLB^ 

002000 

LN.SUS= 

000360 

S.NMST 

000002 

CF.LB  ~    '00000 

C.FLG? 

000032 

FS.RNG^ 

011000 

LN.TR!= 

000006 

S.OUNR 

000003 

CF.LIN=  00OOC2 

C.FNC 

000010 

FS.RST= 

000000 

L$$ASG^^ 

000000 

T$$KMG= 

cooooo 

CF.SOM=  OCOOIO 

C.LIN 

000006 

FS.RTN= 

00 1000 

L$$i>RV= 

000000 

T$$MiN= 

cooooo 

CF.S''N=  000040 

C.LNK 

000000 

FS.SFT-- 

005000 

L$$P11= 

000001 

V$$CTR= 

031000 

rF.TRN=  000100 

C.MOD 

000011 

FS.SFC= 

005000 

L$$11R= 

000000 

X$$DST= 

cooooo 

CM.CIR=  000002 

C.NSP 

000004 

FS.SFR= 

006000 

L.COST 

000015 

X$$NDM= 

000001 

cM.FMr=  100000 

C.PRO 

000042 

FS.S'"S  = 

0040C0 

L.CTL 

000012 

ZF.C0U= 

001000 

CM.HRD=  000002 

C.RSV 

000002 

FS.SPW= 

040000 

L.CVA 

177776 

ZF.DDM= 

000001 

CM.LI^J-  000000 

C.S1A 

000007 

FS.3TM= 

cooooo 

L.DDM 

000002 

ZF.D1A= 

004000 

CM.lOO^  000001 

t.srs 

000012 

FS.STP= 

002000 

L.DDS 

000004 

ZF.DLC= 

000002 

CM.XLO=  000004 

C.URM 

177776 

FS.3TR= 

001000 

L.DCC 

0U0003 

ZF.DVP= 

100000 

CP.DCF=  000040 

C.XACP 

000004 

FS.TRM= 

003000 

L.DLM 

000006 

;f.in!= 

040000 

rP.HDL=  : 00007 

C.XID 

000035 

FS.UI.8= 

001000 

L.DLS 

000010 

ZF.KMX= 

000020 

cp.ps  =  r^/400 

C .aLEN 

000044 

rG.XKl.: 

AQTAnn 

L  .  F  1  fi 

000000 

ZF. LLC  = 

000004 

CP.PSI=  000200 

C.XPLI 

000040 

FS.X0F= 

oi'oooo 

t, .  KRBA 

OOUL'lb 

zr.LMc- 

nnmnn 

CP.XCF=  000 1 00 

C.XPT 

0O0C34 

fS.KOU= 

007000 

L.LEN  = 

000022 

ZF.MAN= 

020655 

fP.?FR=  000030 

C.X5VC 

000042 

FS.ZER= 

002000 

L.MPF 

C00022 

ZF.MFL= 

000010 

fS.A80=  OGOIOO 

C.XTC 

0U0037 

F$$LVL= 

000001 

I  .NMST 

000020 

ZF.h  '= 

000400 

CS.BRO=  00COO2 

C.X25 

000036 

G$$TPP= 

000000 

L.NSTA 

000014 

ZF.MfX=: 

000040 

CS.BUF=  000200 

()$$BUG= 

177514 

G$$TSS= 

000000 

I.  .OWNR 

000021 

ZF.PSE= 

002000 

CS.CES=  000002 

D$$ISK--= 

OOOCCO 

GS$TrK= 

000000 

L.UNI 

000013 

ZF.r,i.i=^ 

010000 

CS.CHIV=  000010 

D$$L11= 

OOOCOl 

n$$WRD^ 

000000 

ir$$CRB= 

000124 

Zf.IIM= 

000200 

CS.CMF=  000200 

0$$YNC-= 

000000 

1$$RAR= 

000000 

yi%ii?x- 

000000 

ZF.X3P= 

cooooo 

C5.DCR=  000400 

D$$yNM- 

oooono 

iSiRP":-- 

000000 

"$$FCS= 

000000 

ZS.ASM= 

1 00000 

rS.DEt=  000004 

E$$XPR= 

OGOOOO 

K$$C.\'T  = 

17^546 

M$$MGE^ 

000000 

Z5.BSY= 

140000 

CS.DEV=  000002 

Fr.CCP= 

000020 

<$$CSR= 

177546 

f1$$NtT  = 

000000 

Z .  AVL 

000014 

rs.DlS=  000040 

Ff.CTL= 

C00006 

!<$$LDC  = 

OOCOOO 

M$$OVR= 

000000 

Z.DAF 

000016 

.S.EMA=  000001 

FC.KCP= 

000016 

K$trPS= 

000074 

NStACC^ 

000001 

Z.05P 

cooooo 
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A$$CH<= 
A$$COS= 
A$$PR I = 
AJSTRP^ 
CB.CCB= 
CB.DDM= 
CB.riC  = 
CB.RDB^ 
CB.S08= 
CB.SlI= 
CB.)(LB= 
CC.LLt= 
CE.ABO= 
CE.DAO= 
CF.DIS= 
Ct.ERR= 
CE.ILN^ 
CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
CE.TMO= 
CE.UNS= 
CF.CHN-- 
CF.EOM= 
CF.HDR= 
CF.LB  = 
CF.LIN= 
CF.SOM= 
CF.SVN= 
CF.[RN= 
CM.CIR-= 
CH.rMf= 
CM.HRO= 
CM.L!N= 
CM.LOO= 
CM.XLO= 
CP.OCF= 
CP.MDL= 
CP.PS  = 
rP.PSI^ 
CP.XCF= 
CP.2rR= 
CS.ABO= 
CS.ERC= 
CS.B!JF  = 
CS.CFS= 

cs.rHN= 

CS.CMP= 
CS.DfR= 
CS.Dc''  = 
CS.DEV= 
rS.[)!S= 

">.e:,a-- 


000000 
000000 
000000 
000000 
000002 
OOOOAO 
000020 
OOOOOA 
000010 
000100 
000001 
000200 
100362 
1003A6 
100366 
100370 
100350 
100356 
100372 
100361 
1003?6 
10036A 
100352 
10035A 
10037A 
1003AA 
000001 
OOOOOA 
00002C 
100000 
000002 

000010 
orjOAO 

000100 
0O00C2 
'00000 
000002 

ooooco 

000001 
OOOOCA 
OOOOAO 
000007 
17^A00 
000200 
OUUiOO 
000030 
00C100 
000002 
000^"0 
000002 
000010 
000200 
OOOAOn 
000C04 
000002 
OOOOAO 
OO'iOd 
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CS.ENB= 

000020 

FC.KIL= 

OOOOOA 

TDSLP  = 

000000 

N$$BUF= 

000001 

CS.ERR= 

100000 

fC.f1AN= 

00002A 

LF.ACT= 

100000 

n$;ldv'= 

000001 

CS.FTL= 

001000 

FC.MLD= 

000026 

LF.3R0= 

OOOAOO 

N$$MCP= 

000001 

CS.HCR= 

000001 

FC.PCr= 

000030 

LF.BWT= 

000007 

N$$MLL= 

000001 

CS.HFE= 

002000 

FC.PWR= 

000022 

LF.ENA:^ 

002000 

N$$M0V= 

000010 

CS.LST= 

OAOOOO 

FC.RCE= 

000002 

LF.LPB= 

001000 

N$$NCT= 

000001 

CS.MTL= 

OOAOOO 

FC.RCP= 

00001A 

LF.MDC= 

000100 

N$$PEM= 

000001 

CS.RNn= 

000010 

FC.riM= 

000010 

LF.MFL= 

OOAOOO 

P$$PA5= 

000000 

CS.ROV- 

OOOOOA 

FC.XCP= 

000012 

LF.MTP= 

000020 

P$$WRD= 

000000 

CS.RSN-^ 

010000 

FC.XME= 

000000 

LF.PAC= 

000200 

0$$OPT= 

000010 

rs.SHu= 

000001 

FS.AST= 

000000 

LF.RDY= 

OAOOOO 

R$$DER= 

000000 

lS.S]D= 

000002 

FS.CI8= 

002000 

LF.REA= 

010000 

R$$K11= 

000001 

CS.3TR= 

OOOOOA 

FS.CRA= 

001000 

LF.SER= 

OOOOAO 

R$$SND= 

000000 

CS.5UC= 

000001 

FS.DIS= 

013000 

LF.TIM= 

000010 

R$$11M= 

000000 

CS.TMO= 

020000 

FS.DVC= 

001000 

LF.UNL= 

020000 

SF.ACT^ 

000200 

tS.XUR= 

OOOOOA- 

FS.ENB= 

012000 

LF.X2P= 

000000 

SF.ENA= 

000100 

CSSCKP^ 

OOOOOC 

FS.EXI= 

00100D 

LN.CLO= 

000000 

SF.LPB= 

OOOOOA 

C$$ORE= 

OOOAOO 

FS.GET= 

006000 

LN.DUM= 

000005 

SF.»1FL  = 

OOOOAO 

C$$RSH= 

17756A 

FS.Hl.T  = 

000000 

LN.L0A= 

OOOOOA 

SF.PAC= 

000020 

C.ADD 

00003A 

FS.INI= 

000000 

LN.L00= 

000003 

SF.REA= 

000010 

C.BID 

000003 

FS.KIL= 

000000 

LN.0AU= 

000003 

SF.SER= 

000001 

C.BUF 

00001A 

FS.LCL= 

100000 

LN.OFF= 

000001 

SF.SVC= 

000002 

C.BUF1 

00001A 

FS.LFM= 

001000 

LN.ON  = 

000000 

SF.UNL= 

OOOOAO 

C.8UF2 

00002A 

FS.MNT= 

OOAOOO 

LN.OOP= 

OOOOOA 

S$$WRG= 

000000 

C.CNT 

000020 

FS.MSN= 

OUOOO 

LN.0PE= 

000001 

S$$YSZ= 

007600 

C.CNT1 

000020 

FS.REA= 

001000 

LN.REF= 

000002 

S.COST 

000001 

C.CNT2 

000030 

FS.RET= 

000000 

LN.5ER= 

000002 

S.FLG 

000000 

C.FLG 

000022 

FS.R;-Z= 

003000 

LN.STA= 

000017 

S.LEN 

OOOOOA 

C.FiGI 

000022 

FS.RL8= 

002000 

LN.SUB= 

000360 

S.NMST 

000002 

':.FI.G2 

OOOC32 

FS.RNG== 

011000 

LN.TRI= 

000006 

S . OWNR 

000003 

C.FMC 

000010 

FS.RST= 

000000 

L$$ASG= 

000000 

T$$KMG= 

000000 

C.LIN 

000006 

FS.RrN= 

001000 

L$$DRV= 

000000 

T$$MIN= 

OOOOOC 

C.LNK 

000000 

FS.SEr= 

005000 

L$$pn  = 

000001 

V$$CTR= 

001000 

C.MOO 

ooocn 

FS.SFi^ 

005000 

L$$11R= 

000000 

X$$[)BT  = 

OOOOOC 

c.;,sp 

OOOOOA 

FS.SFR-- 

006000 

L.C03T 

000015 

ZF.COU^- 

001000 

C.PRO 

0000A2 

FS.SFS-- 

OOAOOO 

L.CTL 

000012 

ZF.DDM= 

000001 

C.RSV 

000002 

FS.S?W= 

OAOOOO 

L.CVA 

177776 

ZF.D1A= 

OOAOOO 

C.STA 

000007 

FS.SIM= 

000000 

L.DDM 

000002 

ZF.DLC= 

000002 

C.S1S 

000012 

FS.STP= 

002000 

I. DCS 

OOOOOA 

ZF.DVP= 

100000 

C.URM 

177776 

FS.STR= 

001000 

L.DLC 

000003 

ZF.INI= 

OAOOOO 

C.XACP 

OOOOOA 

FS.TRM= 

003000 

L.DLM 

000006 

ZF.KMX= 

000020 

C.XIO 

0)0035 

FS.WLB= 

C01000 

I.DI.S 

000010 

ZF.LLC= 

OOOOOA 

C.XLEN 

C )0OAA 

FS.XKL= 

002000 

L.FLG 

000000 

ZF.LMC= 

000100 

C.XPLl 

OOOOAO 

FS.Xuf^ 

010000 

L.KRBA 

000016 

ZF.MAN= 

0200C0 

r.xp^ 

r\nnri-^i. 

FS.XON= 

007000 

L.LEN  = 

000022 

ZF.MFL= 

000010 

C.XSV'C 

l'M',2 

r.S.,;tK  = 

002000 

1  MPF 

000022 

ZF.|V|TM= 

OOOAOO 

C.XTC 

000037 

F$$LVL  = 

OOOfOI 

l!nmst 

000020 

Zf  .MIIX  = 

OOOOAO 

C.X25 

000036 

P$$FPP= 

000000 

L.NSTA 

00001A 

ZF.PSE= 

OOf'OOO 

P$$BUG= 

17751A 

G$$TS?= 

000000 

L . OUNR 

000021 

ZF.SLI= 

010000 

D$»ISK= 

000000 

GI$TTK= 

OOOOOC 

L.UNT 

000013 

ZF.T1M= 

000200 

0$$L11= 

000001 

G$$WRD= 

007000 

M$$CRB= 

00012A 

ZF.X3P=^ 

OOCOOO 

DS$yMC= 

OOOOOC 

!$$RAR= 

000000 

M$$CRX= 

000000 

ZS.ASN^ 

100000 

D$$VNM-- 

OOCOOO 

:$$r:n= 

000000 

M$$FCS= 

OCOOOO 

ZS.BSY= 

1A0000 

F5$XPR= 

000000 

K$$CNT= 

1775A6 

Mt$MGE= 

COOOOO 

Z.AVL 

C0001A 

FC.CCP-- 

000020 

<$$C5R= 

1775^6 

M$$NEr= 

000000 

Z.DAT 

000016 

FC.CTL= 

000006 

K$$LDC= 

000000 

M$$OVR= 

ooooco 

Z.nsp 

OOOOCO 

Fl.KCF: 

000016 

KI$IPS= 

C0007A 

N$$ACC= 

000001 

Z.FLG 

000010 

CFDlC   MACRO  v05.G3h  Frida/  28-Jun-85  18:19  Page  -'-3 


0  11 


CELLC   MACRO  V05.03b  Frida/  ?8-Jun-85  18:19 
PROCESS  TO  PROCESS  DIRECT  CALL  INTERrACE 
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182 
183 
181 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 

216  000126 

217  000130 

218  000134 

219  000140 
220 

221  000146 

222  000150 

223  000152 

224  000156 

225  000160 
22^ 

Z27   000164 
I2t 

229  000170 

230  000172 
251 

23? 


.SBTTL  PROCESS  TO  PROCESS  DIRECT  CALL  INTERFACE 


010403 
062703 
116402 
116764 


010205 
066705 
011505 
016505 


000001 


INPUTS: 


»*-$LLCLC-PR0CESS  TO  PROCESS  DIRECT  CALL  INTERFACE  (WITH  CCB) 
*»-?LLCAL-PR0CESS  TO  PROCESS  DIRECT  CALL  INTERFACE 

THIS  ROUTINE  IS  CALLED  Br  A  PROCESS  (TYPICALLY  AN  LLC)  TO  DISPATCH  TO 
ANOTHER  PROCESS  (TYPICALLY  ANOTHER  LLC)  VIA  IT'S  DISPATCH  TABLE. 

RO  =  OPTIONAL  CALLING  PARAMETER  TO  DESTINATION  PROCESS 

Rl  = 

R2  =  PROCESS  PDV  INDEX  (SLLCAL  ONLY) 

R3  =  ADDRESS  OF  FUNCTION  CODE  (SLLCAL  ONLY) 

R4  =  ADDRESS  OF  CCB  (SLLCLC  ONLY) 

C.FNC  -  FUNCTION  CODE 

C.MOD  -  FUNCTION  MODIFIER 

C.STA  -  DESTINATION  PDi/  INDEX 

OUTPUTS:  (TO  THE  DESTINATION  PROCESS) 
R3  ^  SU8FUNCTI0N  CODE 
R4  =  ADDRESS  OF  CCB  (OPTIONAL) 

C.STA  -  SOURCE  PDV  INDEX 
R5  =  ADDRESS  OF  PROCESS  DATABASE  DESCRIPTOR 


REGISTERS  MOIFIED: 

RO,  Rl,  R2,  R3, 


R4 


NOTE : 

If  the  SLLCAL  call  is  being  performed  from  a  tasi  in  an  I  and  D 
space  system,  the  word  pointed  to  by  R3  will  not  be  accessable  by  SPDDSP 
because  it  will  be  mapped  via  Kernel  Instruction  APRS.   To  work  around 
em,  the  word  pointed  to  by  R3  should  be  in  DSR  or  on 


000010 
000007 
OOOOOOG  00000^ 


OOOOOOG 
000016 


this  mapping  probl 
the  Kernel  ^tack. 

SLLCLC 


SLLCAL: 


;M0V 
ADD 
M0V8 
M0V8 

:SAVRG 
MOV 
ADD 
MOV 
MOV 

CALL 

RESRG 
RETURN 

.END 


R4,R3 
#C.FNC,R3 
C.STA(R4),R2 
$CMPDV,C.STA(R4> 

<R5> 

R2,R5 

SPDVTA.RS 

(R5),R5 

Z.DAT(R5),R5 

SPDDSP 

<R5> 


COMPUTE  ADDRESS  OF  FUNCTION  CODE 

GET'dESTINATION  PDV  INDEX 
SAVE  SOURCE  PDV  INDEX 

SAVE  CURRENT  DATABASE  DESCRIPTOR 

CCPY  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  PDV  ADDRESS 

GET  ADDRESS  OF  DATABASE  DESCRIPTOR 

DISPATCH  TO  THE  PROCESS 

RECOVER  DATABASE  DESCRIPTOR 
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CELOG 

CREATED  BY  M 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

I$$AS 

~       ****** 

N$$EVL 

=   ****** 

RSSIID 

=   ****** 

RSSIIM 

=  000000 

RSSllS 

=  ****** 

XSSMCB 

=  ****** 

ZF.COU 

=  001000 

ZF.DOM 

=  000001 

ZF.DIA 

=  OOAOOO 

ZF.DLC 

=  000002 

ZF.DVP 

=  100000 

ZF.INl 

=  040000 

ZF.K.MX 

=  000020 

ZF.LLC 

=  OOOOOA 

ZF.LMC 

=  000100 

Z F.MAN 

=  020000 

ZF.MFL 

=  000010 

ZF.MTM 

=  000400 

ZF.MUX 

=  OOOOAO 

ZF.PSE 

r   002000 

ZF.SLI 

=  010000 

ZF.TIM 

=  000200 

ZF.X3P 

=  000000 

ZS.ASN 

=  100000 

ZS.BSY 

=  KOOOO 

Z .  AVL 

OOOOU 

Z.DAT 

000016 

Z.DSP 

000000 

Z.FLG 

000010 

Z.LEN 

=  000016 

Z.LLN 

000006 

Z.MAP 

000020 

Z.NAM 

000004 

Z.PCB 

000012 

Z.SCH 

000007 

SCElOG 

000000  RG 

MACRO  ON  28-JUN-85  AT  18:19 
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CREF   OA.OO 


REFERENCES 

A-54 

A-1 

A-54 

4-54 

4-54 

4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#4-54 
#5-104 


4-2 


4-54 


5-104 


4-54 
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C  U 


58 

59 

60 

61 

62 

63  000000 

6^  OOCOOO 

65  000000 

66 

67 

68 

69 

70 

71 

72 


MACRO  LIBRARy    CALLS 

.MCALL  !NHIB$,ENABL$,SAVRG,RESRG 

.MCALL  CCBDF$,PDVDF$,OPTDF$ 

CCBDFS  ;  DEFINE  IHE  CCB  OFFSETS 

PDVDFS  ;  DEFINE  THE  PDV  OFFSETS 

OPTDFS  <=>.<:>  :    DEFINE  COMM/EXEC  OPTIONS 

.IF  DF   R$$MPL 

.MCALL  SC3DF}. 

SC8DF$  ;  DEFINE  SC8  OFFSETS 

.ENDC 


/ 


D  14 


CtSCH 


CREATED  B*      MACRO     ON  28-JUN-85    AT    ^8:20 


SYMBOL    CROSS   REFERENCE 
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PAGE   2 

CREF        OA.OO 


iVMB'-'L 

VALUE 

REFERENCES 

tCEPWR 

000304 

RG 

#10-361 

iCMFRK 

r  «+*♦** 

GX 

9-316 

SCMPDV 

~     ****** 

GX 

8-242 

♦8-243 

SCXOPT 

r  ****** 

GX 

9-527 

SDDFNC 

r  ****** 

GX 

10-366 

$FRK,HD 

r  ****** 

GX 

9-339 

•9-340 

SINTSX 

000000 

RG 

#5-91 

tINTXl 

-  ****** 

GX 

5-148 

SINTX? 

000042 

RG 

#6-169 

SPDDSP 

000076 

RG 

#8-241 

tPDQUE 

000170 

RG 

#9-306 

SPDQUl 

000174 

RG 

#9-308 

SPDSPL 

000052 

RG 

#7-203 

10-368 

SPD'.'TA 

z  ** t **« 

GX 

7-205 

8-244 

SSTKDP 

=  »♦*»*» 

GX 

♦5-91 

♦8-271 
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$CE4CC  -  ACCE5S 

BLOCf-  IN  EXTENDED  POOL 

365 

.SBTTL 

SCEACC  -  ACCESS  E 

LOCK  IN  EXTENDED  POOL 

366 

.S8TTL 

SCECAC  -  ACCESS  BLOCK  IN  ALTERNALE  EXTENDED  POOL 

567 

368 

t 

369 

«— SCEACC-ACCESS  BLOCK  IN  EXTENDED  POOL 

370 

zn 

372 

**-$CECAC-ACCESS  BLOCK  IN  ALTERNALE  EXTENDED  POOL 

THIS  SUBROUTINE  MAPS  TO  A  BLOCK 

IN  EXTENDED  SINGLE  WORD  POOL, 

375 

AND  RETURNS  A 

VIRTUAL  ADDRESS  TO  ACCESS  THE  BLOCK.   IF  THE 

374 

tCECAC  ENTRY 

IS  CALLED,  THE  EXTENDED  POOL  MUST  ALREADY  BE  MAPPED 

375 

VIA  APfi6. 

376 

377 

INPUTS; 

378 

2(SP)  = 

ADDRLSS  OF  BLOCK 

TO  BE  ACCESSED 

379 

KISAR6 

MAPPED  TO  ALTERNATE  EXTENDED  POOL  BASE  (SCECAC) 

380 

3S1 

OUTPUTS: 

382 
385 
38'; 

2(SP)  = 

VIRTUAL  ADDRESS  OF  MAPPED  BLOCK 

NOTE: 

335 

KISAR6 

ALWAYS  MAPPED  INTO  EXTENDED  POOL  ON  EXIT  EVEN  IF  BLOCK 

386 

IS  IN  DSR. 

387 

- 

388 
389 
390  000A2A 

016767 

OUOOOOG 

OOOOOOG 

tCtACC::MOV 

$XBJAS,KISAR6 

MAP  TO  BASE  ADDRESS  OF  POOL 

391  000432 

032766 

000001 

000002 

tCElAC::8IT 

*1,2(SP) 

IS  THE  BLOCK  IN  EXTENDED  POOL  ? 

392  00OA4O 

001A2A 

BEQ 

100$ 

IF  Ea,  NO  -  ALREADY  MAPPED  TO  IT 

393  0OOAA2 

SAVRG 

<R0> 

ELSE,  SAVE  RO 

39A  OOOAAA 

016600 

OOOOC 

MOV 

A(SP),R0 
*177701,A(SP) 

COPY  BLOCK  ADDRESS 

395  000A50 

0A2766 

17770i 

OOOOOA 

BIC 

RETURN  VIRTUAL  ADDRESS 

396  000A56 

052766 

1AO00O 

OOOOOA 

BIS 

#iA0000,A(SP) 

...  MAPPED  THROUGH  KISAR6 

397 
398 

.IF  DF 

R$$EIS 

399 

AGO 

ASH 

«-6,R0 

AOl 

A02 

.IFF 

;  DF  R$$EIS 

A03 

AOA 

000006 

.REPT 

6 

A05 

ROR 

RO 

CONVERT  ADDRESS  TO  BLOCK  BIAS 

A  06 

.ENDR 

A07 

A08 

.ENDC 

;  DF  R$$EIS 

A09 

A10  000500 

CA2700 

176000 

BIC 

*176000,R0 

CLEAR  EXTRANEOUS  BUS 

All  00050A 

060067 

OOOOOOG 

ADD 

R0,KISAR6 

...  UPDATE  TO  PROPER  BLOCK 

A12  000510 

RESRG 

<R0> 

RESTORE  RO 

A13  000512 

100$:   RETURN 

RETURN  TO  THE  CALLER 
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Table  ot  contents 

Stack  Offsets  and  Common  Buffer  Return  Table 

-  Allocate  a  Standard  CC8 

-  Get  a  Large  Data  Buffer 

-  Get  a  Receiue  Data  Puffer 

-  Return  a  Recei'ue  Data  Buffer 

-  Return  a  Large  Data  Buffer 

-  Return  a  CCB 

-  Get  a  CCB  and  a  Small  Data  Buffer 

-  Return  a  CCB  and  a  Small  Data  Buffer 

-  Queue  a  request  for  a  Receive  Data  Buffer 

-  Purge  Buffer  Wait  Queue 

-  CCB  allocation  routine 

-  CCB  Deallocation  Routine 
tion  Control  Block  Documentation 

-  General  Buffer  Allocation  Routine 

-  General  Buffer  Deallocation  Routine 


^- 

56 

Def  ine 

fl- 

76 

ICCBGT 

109 

$LDBGT 

ti- 

"!  57 

SRDBGT 

^- 

188 

SRDBRT 

9- 

189 

SLDBRT 

10- 

230 

SCCBRT 

11- 

258 

SCSBGT 

1?- 

500 

SCSBRT 

11- 

542 

SRDBWT 

K- 

i76 

tRDBQP 

1S- 

410 

CCBGT 

1ft- 

485 

CCBRT 

1/- 

557 

Al  loca 

1H- 

548 

BUFGT 

19- 

600 

BUFRT 
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CCBGT   -  CC9  allocation  routine 


46/ 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
485 


000534  016704  OOOOOOG       10$: 

000540  001411 

000542  011467  OOOOOOG 

000546  005367  OOO'^OOG 

000552  112764  000002  000003  20$: 


000560  005014 
000562 

000564  005267  OOOOOOG 

000570  000433 


30$: 


MOV 
BEO 
MOV 
DEC 

MOVB 

.IF  OF 

CLR 

.ENDC 

CLR 
RETURN 

INC 
BR 


$CCeLH,R4 
30$ 

(R4),$CCBLH 
$CC8CT 


Get  address  of  first  CC8  in  list 

If  EO,  list  is  empty 

Unlink  CCB  from  list 

Reduce  count  of  a\/ailable  CCBs 


#Ce.CCB,C.BID(R4)  ; ; ;  Set  up  buffer  ID  byte 

; ; ;  Allow  process  to  run  on  any  processor 


M$$PRO 
C.URM(R4) 


(R4) 


$CC8AF 
FAIL 


Zero  next  pointer  (clear  C-Bit) 
Return  to  caller 

Count  allocation  failures 

Enter  common  failure  processing  code 
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CCBRT   -  CCB  Deallocation  Routine 


CEBUF1  -  CEX  BUFFER  MANAGEMENT 
Table  of  contents 


6- 

56 

Define 

Stack  Of 

l- 

76 

SCCBGT 

-  Alloc 

8- 

10^5 

SLDBGT 

-  Get  a 

y-- 

137 

SRDBGT 

-  Get  a 

10- 

188 

SRDBRT 

-  Retur 

10- 

189 

SLDBRT 

-  Retur 

11- 

230 

SCCBRT 

-  Retur 

V- 

258 

SCSBGT 

-  Get  a 

1^- 

300 

SCSBRT 

-  Retur 

H- 

3A2 

SRDBUT 

-  Queue 

n- 

376 

SRDBQP 

-  Purge 

16- 

410 

CCBGT 

-  CCB  a 

M- 

485 

CCBRT 

-  CCB  D 

18- 

537 

ALlocat 

-.on  Cont 

19- 

5A8 

BUFGT 

-  Gener 

^-O- 

600 

BUFRT 

-  Gener 

D  3 

MACRO  V05.03b  Friday  28-Jun-85  18:17 


fsets  and  Common  Buffer  Return  Table 
ate  a  Standard  CCB 

Large  Data  Buffer 

Receive  Data  Buffer 
n  =1  Receive  Data  Buffer 
n  a  Large  Data  Buffer 
n  a  CCB 

CCB  and  a  Small  Data  Buffer 
n  f  CCB  and  a  Small  Data  Buffer 

a  request  for  a  Receive  Data  Buffer 

Buffer  Wait  Queue 
llocation  routine 
ealLocation  Routine 
rol  Block  Documentation 
al  Buffer  Allocation  Routine 
al  Buffer  Deallocation  Routine 
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CEBUF1  - 
CCBQT 

467 
468 
469 
470 
471 
472 
473 
474 
475 
i.76 
477 
478 
479 
480 
481 
482 
483 
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000620  016704  OOOOOCG        10$: 

000624  001411 

000626  011467  OOOOOOG 

000632  005367  OOOOOOG 

00C636  112764  000002  000003  20$: 


000644  0C5014 
000646 

000650  005267  OOOOOOG 

000654  000470 


30$: 


MOV 
BEQ 
MOV 
DEC 

$CCeLH,R4 
30$ 

(R4),$CCBLH 
$CCBCT 

MOVB 

#Ce.CCB,C.BID(R4) 

.IF  DF 

CLR 

.ENDC 

M$$PRO 
C.URM(R4) 

CLP 
RETURN 

(R4)          ;; 

INC 
BR 

$CCeAF 
FAIL 

Get  address  of  first  CCB  in  list 

If  EQ,  list  is  empty 

Unlink  CCB  from  list 

Reduce  count  of  available  CCBs 

; ;  Set  up  buffer  ID  byte 
Allow  process  to  run  on  any  processor 


;  Zero  next  pointer  (cleaf-  C-Bit) 

;  Return  to  caller 

;  Count  allocation  failures 

;  Enter  common  failure  processing  code 
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6- 

117 

$DD??? 

«.- 

196 

DDCM1  - 

9- 

236 

DDCM2  - 

10- 

3V 

DDCM3  - 

10- 

518 

DDC'*14  - 

11- 

376 

DDMDSP 

V- 

424 

SDDAST 

H- 

463 

SDDXMP 

H- 

464 

SDDRCP 

Ti- 

465 

SDDCCP 

H- 

466 

SDDKCP 

K- 

533 

SSTCDM 

■  DLC  TO  DDM  REQUESTS 

COMMON  PROCESS  FOR  SPECIAL  NON-CCB  FUNCTIONS 
COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 
COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 
COMMON  PROCESS  FOR  ^UNCTIONS  WITH  CC8 

■  DISPATCH  TO  DDM  LEVEL 

■  ASYNCHRONOUS  COMPLETION  TO  DLC  LEVEL 

•  TRANSMIT  COMPLETE  TO  DLC  LEVEL 

•  RECEIVE  COMPLETE  iO  DLC  LEVEL 

■  lONTROL  complete  TO  DLC  LEVEL 

•  KILL  COMPLETE  TO  DLC  LEVEL 

■  SET  DDM  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
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0  6 

465 
464 
465 
466 
467 
468 
469 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 

.SBTTL  SDD.XMP  -  TRANSMIT  COMPLETE  TO  DLC  LEVEL 
.S8TTL  SDDRfP  -  RECEIVE  COMPLETE  TO  DLC  LEVEL 
.SBTTL  SDDCCP  -  CONTROL  COMPLETE  TO  DLC  LEVEL 
.SBTTL  SDDKCP  -  KILL  COMPLETE  TO  DLC  LEVEL 

**-$DDXMP-TRANSMIT  COMPLETE  TO  DATA  LINK  CONTROL 
♦  — SDDRCP-RECEIVE  COMPLETE 
»*-$DDCCP-CONTROL  COMPLETE 
•*-$DDKCP-KJLL  COMPLETE 
**-$LLCSP-SPECIAL  ENTRY  pQINT  FOR  X25 

THIS  SUBROUTINE  IS  CALLED  BY  DEVICE  DRIVERS  TO  QUEUE 
COMPLETION  NOTIFICATIONS  TO  DATA  LINK  CONTROL  MODULES. 

THE  SLLCSP  ENT.TY  POINT  IS  PROVIDED  FOR  USE  BY  THE  X25  DATA  LINK  MAPPING. 
INPUTS: 

R3  =  OPERAT'ON  COMPLETION  STATUS 
R4  =  ADDRESS  OF  CCB  TO  QUEUE 

THE  CCfi  CONTAINS  A  VALID  LINE  NUMBER 

485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497  000324 

498  000552 
499 

500  000334 

501  000342 
502 

503  000344 

504  000352 
5C5 

506  000354 

507  000360 

508  000362 
509 

510  000366 
511 

512  000374 

513  000374 

514  000374 
515 

516 
517 
518 
519 

OUTPUTS: 

THE  CCB  IS  QUEUED  TO  A  DLC  LIST  B/- ^ED 

ON  THE  SYSTEM  LINE  NUMBER  PARAMETER  IN  THE  CCB  WITH  A 

TRANSMIT  OR  RECEIVE  COMPLETE  FUNCTION  CODE. 

REGISTERS  MODIFIED: 

XXX 

112764 
000420 

U00012 

000010 

tDDXMP::MOVe 
BR 

#FC.XCP,C.FNC(R4) 
20$ 

;  SET  TRANSMIT  COMPLETE  FUNCTION  CODE 
JUIN  COMMON  CODE 

112764 
000414 

OOOOU 

000010 

tDDRCP::MOVB 
BR 

#FC.RCP,C.FNC(R4) 
20$          ; 

;  SET  RECEIVE  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

112764 
0CC410 

000016 

000010 

SDDKCP::MOVB 
BR 

#FC.KCP,':.-NC(R4) 
20$ 

;  SET  i^iLL  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

005764 
100002 

"12764 
010564 

000006 
C00020 
000012 

000010 

IDDCCP::TS^ 
BPL 
CALLR 

10$:    MOVB 

$LLCSP:: 
EDDSPC:: 
20f:    MOV 

.If  C'^ 

C.LIN(R4) 

10$ 

$CC8R- 

#FC.C      MC(R4i 

R3,C.STS((<h) 
M$rPRO 

SPECIAL  MODEM  CONTROL  CO.VLETION? 

NO 

YES  -  RETURN  CCB  TO  POOL 

MODEM  CONTROLLER  WILL  POST  COMPLETION 

;  SET  CONTROL  CCMP^EIE  ^UNCrnN  CODE 

:.   COKPLE'ION  SUTUS 

MO^B 
ASL 

C.l:N(R4),R3 
R5 

GE1  SYSIF^  LINE  # 
FORM  WORD  OFFSET 

CE 
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58 
59 
60 
61 
62 
63 
M 
65 

66  OOOOCO 

67  000000 

68  000000 
69 


MACRO  LI9RAPV  CALLS 

.MCALL  INHiB$,ENABL$,SAVRG,RESRG 

..1CALL  CC8DF$,PDVDF$,SLTDF$ 

.MCALL  CALLR  ;  AVOID  SrSTEM  DEPENDENCV 

CCSOFS  ;  DEFINE  THE  CCB  OFFSETS 

PDVDFS  ;  DEFINE  THE  PDV  OFFSETS 

SLTDFS  ;  DEflNE  THE  SLT  OFFSETS 
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53^ 

55A 

53; 

536 

537 

558 

539 

5A0 

5A1 

5A2 

543 

5A4 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

57U 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 
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.SBTTL  SSTDDM  -  SET  DDM  PDV  r:CEX  AND  LINE  TABLE  ADDRESS 

**-$STDDM-SET  DDM  PDV  INDEX  AND  LINE  TAF_E  ADDRESS 
*«-$STDD1-(ALTERNATE  ENTRY) 

THIS  SUBROUTINE  IS  CALLED  TO  SET  UP  A  DEVICE  DRIVER  PDV  INDEX  AND 
LINE  TABLE  ADDRESS  BASED  ON  A  SYSTEM  LINE  Im-WBER. 


INPUTS: 


R2  =  SVSTE,^  LINE  NUMBER  (ALTERNATE  ENTRr  ONLY) 
R4  =  CCB  ADDRESS  WITH  A  VALID  SYSTEM  LINE  NUMBER  IN 
C.LIN  (MAIN  ENTRY  ONLY) 

OUTPUTS: 

R2  =  PDV  INDEX 

R5  =  ADDRESS  OF  DEVICE  LINE  TABLE 

REGISTERS  MODIFIED: 

R5 


000510 

000310  116402  000006 

000514 


000514  006302 

0005'6  066702  OOOOOOG 

000522  011202 


000524  016205  000004 
000550  T!620:  0C0002 
00C534 


$STDDM::.IF  NDF  N$$1LN 

MOVB  C.LIN(R4),R2 
.ENDC 

SSTDDI :  :.IF  DF  N$$1LN 


MOV 

£$SLTMA,R2 

.IFF 

ASL 
ADD 
MOV 

R2 

$SLTMA,R2       ; 

(R2),R^ 

.ENDC 

M1V 

MUVB 

RETURN 

L.DDS(R2),,75 
L.DDM(R2),R2 

00000 i 


.END 


EXTRACT  SYSTEM  LINE  NUMBER 


GET  ADDRESS  OF  SYSTEM  LINE  ENTR^ 


FORM  WOr.u  INDEX 

POINT  i,\TO  SYSTEM  LINE  INDEX  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  ENTRY 


GET  DEVICE  LINE  TABLE  ADDRESS 

GET  DEVICE  DRIVER  PDV  INDEX  (WORD  INDEX) 

RETURN 
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116 
117 
118 
119 
120 
121 
122 
12? 
124 
125 
126 
127 
128 
129 
130 

132 
(33 
134 
135 
136 
137 
138 
139 
KO 
141 
142 
143 
144 
KS 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 

i;; 

159 

160 

16 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

1/2 


.IF  NDF  X$$NDM 

.SRTTL  tDD???  -  DLC  TO  DDI^  REQUESTS 


GENERAL  REQUESTS  WITH  CCB 


FORMAT  0=  CALL: 

CALL    $DD??? 

INPUTS: 


R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

(All  ccer-  must  contain  a  valid  sln) 

OUTPUTS  to  ODM: 

R4  =  ADDRESS  OF  FIRST  CLB  IN  CHAIN 

R5  =  ADDn-:SS  OF  DDM  LINE  TABLE 

R2  8  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTERS  ACROSS  CALL: 

RO.RI  -  ^UST  BE  PRESERVED  BV  DDM  IF  USED 
R2,R3,fi5  -  .■'.'RESERVED  BY  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN  TO  DLC: 

C-BIT  CLEAR  -  REQUEST  HAS  COMPLETED  SYNCHRONOUSLY 
R4  =  ADDRESS  OF  CCB 

C-BIT  SET  -  REQUEST  WILL  COMPLETE  ASYNCHRONOUSLY 
R4  =  0 


SPECIAL  REQUESTS  WITHOUT  CCB 


FORMAT  OF  CAlL: 

CALL    $DD??7 

INPUTS: 

R3  =  SYSTEM  LINE  NUMBER 

R4  =  OPTIONAL  CALLING  PARAMETER  TO  DDM 

OUTPUTS  TO  DDM: 

R4  ^  OPT.ONAL  CALLING  PARAMETER  fROM  DLC 

R5  =  ADDRESS  OF  DDM  LINE  TABLE 

R2  £  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTER'  ACROSS  CALL: 

R   (1  -  MUST  BE  PRESERVED  BY  DDM  IF  USED 
R2,R3.R5  -  PRESERVE^  BY  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN  TO  DLC; 

C-eiT  ALWAYS  CLEAR 

R4  =  OPT'j\.'L  RETURNING  PARAMETER  FROM  DDM 
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Z.FLG  000010 
?.LEN  =  000016 
Z.lLN   000006 

AB5.   177776 
000026 
Errors  detected: 
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Z.MAP 
Z.NAM 


000020 
000004 


7. PCS 
Z.SCH 


0000  1 2 
000007 


$SLTMA=  »***•*  GX 
SSTDDM  OOOOOORG 


SSTDDI  OOOOOARC 
.$$$$.=  000034 


000 
001 
0 


(Rw,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


•♦♦  Assembler  statistics 


Work   file  reads:  8 

Worn   tile  writes:  11 

Size  of  work  f\e:  17456  Words   (  69  Pages) 

ze  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-llM/PLUS 

Elapsed  time:  00:00:16.18 
SY:CEDDMN.V2,[130,134]CEDDMN/CR/-SP=Sy:[l 


,  ;]RSXMCM.SML/ML, L"l 30,11  OlNETLIB/ML, [130,1 03RSXMCM/PA:, Ml 30,1 0]V2,CFDDM 
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Symbol 


MACRO  V05.03h  Frida/  28-Jun-85  18:19     Page 
table 


0  11 


Z.LEN  =  000016 

Z.LLN  000006 

Z.MAP  000020 

Z.NAM  OOOOOA 

.  ABS.   177776 
000176 
Errors  cetected: 


000 
001 
0 


Z.PCB   000012 
Z.SCH   000007 
SASCMP  00003ARG 
$CCBGT=  **«♦».  G>' 

(RW.I.GBL.ABS.OVn) 
(RU,I,LCL,REL,C0N) 


SCTCMP  000066RG 
SKLCMP  000076RG 
$LLCTA=  »**»*.  GX 
$PPQUE=  •»»•«»  GX 


SRCCMP  000106RG 
$SLTMA=  ******  GX 
$ST!)LC  OOOOOORG 


SSTDLI  000004RG 
SXMCMP  000056RG 
.$$$$.=  00003-; 


'♦*  Assembler  itati'stics 


Work   file  reads:  8 

Uork   f i le  writes:  10 

Size  cf  work  file:  17269  Words 

Size  ot  core  pool:  17608  Words 

Operating  system:  RSX-11M/PLUS 


(  68  Pages) 
(  u7  Pages) 


Elapsed  time:  00:00:12.57 

SY  :  CEDL  C.  V2,  [130,1 34]  CEDLC/CR/-SP=SV:[1,1]RSXMCM.'^1L/ML,[  130, 


!10]'jETLI8/ML,[130,10JRSXMCM/PA:1,C130,10JCEDLC 


CEDLC 
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AS$CHK= 

A$tCPS= 

A$$PRI= 

A$tTRP= 

CB.CCB= 

CB.DDM= 

CB.D1C  = 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

Ct.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN=- 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.L0O= 

CM.XLO= 

CP.DCF= 

CP.HDL^ 

CP.PS  = 

CP.PSI= 

CP.XlF= 

CP.2FR= 

CS.ABO= 

C.-BRO;: 

fS.BUF= 

CS.rES= 

CS.CHN= 

C5.CMP= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.D1S= 

CS.ENA= 


000000 
000000 
000000 
000000 
000002 
OOOO^O 
000020 
OOOOOi 
000010 
000100 
000001 
000200 
100362 
1003^6 
100366 
100370 
100350 
100356 
100372 
100361 
100376 
100364 
100352 
10035A 
100374 
100344 
000001 
000004 
000020 
100000 
000002 

ooomo 

0^0040 

'■JOIOO 
J00002 
100000 
000002 
000000 
000001 
000004 
000040 
000007 
177400 
000200 
000100 
000030 
000100 
000002 
000200 
000002 
000010 
000200 
000400 
000004 
000002 
000040 
000001 


CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.R0V= 
CS.RSN= 
CS.SHU= 
CS.SID= 
CS.STR= 
CS.SUC= 
CS.TM0= 
CS.XUR= 

c$$cr,p= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.BUFl 

C.BUF2 

C.CNT 

C.CNTl 


.CNT2 

.FLG 

.FLGl 

,FLG2 


C.FNC 

C.LIN 

C.LNK 

C.HOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.vACP 

C.XID 

C.XLEN 

C.XPLi 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

D$$BUG= 

D$$ISK= 

D$$L1U 

D$$rNC= 

D$$rNM= 

E$$XPR= 

FC.CCP-- 

fC.CTL= 

FC.KCP= 


000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

OOOOH 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000056 

177514 

000000 

000001 

000000 

000000 

000000 

000020 

000006 

000016 


FC.KIL= 
FC.riAN= 
FC.MLD= 
FC.PCT= 
FC.PWR= 
FC.f<i.E= 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CJ8= 
FS.CRA= 
FS.DIS= 
FS.DVC= 
FS.ENB= 
FS.EXI= 
FS.GET= 
FS.HLT= 
FS.INI= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.I»INT= 
FS.MSN= 
FS.REA= 
FS.RET=: 
FS.REZ= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.UL8= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS^ 
G$$TTK= 
G$$URD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 


000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 


LD$LP  = 
LF.ACT= 
LF.BRO= 
LF.8WT= 
LF.ENA= 
LF.LP8= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
T1M= 
UNL= 
X2P= 
CLO= 
LN.DUM= 
LN.LOA= 
i.N.LOO= 
lN.OAU= 
LN.0FF= 
LN.ON  = 
LN.00P= 
LN.0PE= 
LN.REr= 
LN.SER= 
LN.STA= 
LN.SU8= 
LN.TRI= 
L$$ASG= 
L$$DRV= 

L$$pn  = 

L$$11R= 


LF. 
LF. 
LF. 
LN. 


COST 

CTL 

CVA 

DDM 

DDS 

DLC 
L.DLM 
L.DLS 
L.FLG 
L.KR8A 
L.LEN  = 
L.MPF 
L.NMSi 
L.NSTA 
L . OWNR 
L.ONT 
M$$CR8= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
'1J$NET  = 
M$$0VR= 
N$$ACC= 


000000 
100000 
000400 
U00007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 
000000 
000000 
000000 
000000 
000001 


N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLt  ■= 

N$$HOV 

N$tNCT= 

N$$PEM= 

PS 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$Kn  = 

R$$SND= 

R$$11M= 

SF.ACr= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NHST 

S.OUNR 

Tt$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBI= 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  (jx 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 
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CI 


PDVDFt 

#4-52 

?ESRG 

#4-52 

RETURN 

5-125 

SAVRG 

#4-52 
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E  13 
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CESCH 
SIMTSX 


COW  EVEC  DEVICE  INTERRUPl 
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SAVE  ROUTINE 


D  1h 


7A 

75 

^6 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91  000000  005367  OOOOOOG 

92 

93 

9*4 

95 

96 

97  OUOOC^  042567  OOOCOOG 

98 

99 
100 
101 
102 
103 

10A  000010 
105 
106 
107 
108 
109 

110  000012 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12'i 

125 

126 

127 

128 

129 

130 


.SSTTL  SINTSX  -  COMM  EXEC  DEVICE  INTERRUPT  SAVE  ROUTINE 

••-SINTSX-COMM  EXEC  DEVICE  INTERRUPT  SAVE  ROUTINE 

CALLED  BV:    JSP  R4, SINTSX 

Inputs: 

R5  =  Pointer  to  pn'o'^ity  specification  in  device  tine  table 

Outputs:  . 

The  System  St^ck  Depth  is  decremented,  and  if  zero  a  switch 
to  the  Svstem  Stack  is  effected. 

R5  =  Pointsr  to  word  following  device  priority 


SINTSX: 


DEC 

SSTKDP 

.IF  DF 

TST 

.JFF 

LSS5I1 
(R5;  + 

eic 

.ENDC 

(R5)+,PS 

.IF  DF 
CACHES 
.ENDC 

MSSPRO 
SAVE 

CALL 

aR4 

.IF  DF 
CACHES 
.ENDC 

MSSPRO 
UNSAVE 

MTPS 

#PR7 

.JF  DF 

KSSDAS 

MOV 
MOV 

4(SP),KINAR5 
6(SP),KISAR5 

MOV 

MOV 


.IFF 


(SP)t,2(SP) 
{SP)+,2(SP) 


;;  DF  KtSDAS 


;  Decrement  Stack  Depth  Indicator 
;  Point  past  device  priority  complement 
Lower  priority  to  device  level 

Save  bypass  state  of  cache 

Call  caller  back 

Restore  bypass  state  of  cache 

Inhibit  interrupts 

Slightly  different  for  RSX-llMt 
with  Kernel  Data  Space  enabled 

Rpstore  previous  I-Space  APR  Contents 

Restore  previous  0-Space  APR  Contents 
Current  contents  of  stack: 
R4  (Saved  by  JSR  R4, SINTSX  in  DDM) 
R5  (Saved  by  JSR  RS.'ISR'  in  Line  Table) 
KINAR5     (Saved  in  Line  Table) 
KISAR5      (Saved  in  Line  Table) 
PS  (Saved  by  Interrupt) 
PC  (Saved  by  Interrupt) 

Move  saved  M   down  on  stack 

Move  saved  R5  down  on  stac! 
Contents  of  stack  (necessary  for  SINTXX) 
R«  (Saved  by  JSR  RA, SINTSX  in  DDM) 
R5  (Saved  by  JSR  R5,'ISR'  in  Line  Table) 
PS  (Saved  by  Interrupt) 
PC  (Saved  by  Interrupt) 


rPQru   MirBn  \/n=;  nXK  Frirtjju  ?H-i,jn-HS  1R:?n   Pans  5-1 


E  H 


CFSCH 

CREA 

TED  BV      N 

AfRO     ON 

MACRO   C 

ROSS 

REf 

ERENCE 

MACPO   ^A^1E 

REFERENC 

ES 

'-ALL 

5-104 

8-262 

LCBDFt 

#4-62 

4-63 

EUABLt 

#4-61 

9-548 

INHlJt 

#4-61 

9-517 

MIPS 

5-11C 

7-203 

OPTDFS 

4-62 

4-65 

PDVOF$ 

#4-62 

4-64 

RESRG 

#4-61 

RETURN 

8-272 

9-550 

SAVRG 

#4-61 

ON  28-JUM-85  AI  18:20 


10-368 


D  15 

PAGE  5 

CREF   04.00 


10-374 


E  15 
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D  16 


415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
450  000514 

431  000520 

432  000524 

433  000530 

434  000532 

435  000534 

436  000540 

437  000542 

438  000544 

439  000546 

440  000550 
441 

442  000552 

443  000554 

444  000560 

445  000562 

446  000564 

447  000570 
4^8 


.SBTTL  SPDVID  -  PROCESS  NAME  TO  PDV  INDEX 


»*-  SPDVID  -  PROCESS  NAME  TO  PDV  INDEX 

THIS  SUBROUTINE  MAPS  A  PROCESS  NAME  (UP  TO  THREE  CHARACTERS  IN  RAD50) 
INTO  A  PDV  INDEX. 

INPUTS: 

R2  =  PROCESS  NAME  (RAD50) 

OUTPUTS: 

R2  =  PDV  INDEX 


016700  OOOOOOG 

016746  OOOOOOG 

012001 

001403 

026102  OOOOC 

001404 

005316 

CC1371 

000261 

000404 

010002 

i 66702  OOOOOOG 

005742 

005226 


SPDVID: :SAVRG   <R0,R1> 


lOS: 
15S: 

20$: 
25S: 


MOV 
MOV 
MOV 
BED 
CMP 
BEQ 
DEC 
BNE 
SEC 
BR 

MOV 

SUB 

TST 

INC 

RESRG 

RETURN 


SPDVTA.RO 

$PDVNM,-(SP) 

(R0)+,R1 

15S 

Z.NAM(R1),R2 

20$ 

(SP) 

10$ 

25S 

R0,R2 
$PDVTA,R2 
-(R2) 
(SP)  + 
<R1,R0> 


SAVE  REGISTERS 

GET  ADDRESS  OF  PDV  ADDRESS  TABLE 

GET  TOTAL  NUMBER  OF  PDVS  IN  SYSTEM 

GET  ADDRESS  OF  PDV 

PROCESS  NOT  LOADED  -  GO  TO  NEXT  ONE 

DOES  PROCESS  NAME  MATCH? 

YES  -  GO  CALCULATE  INDEX 

DECREMENT  COUNT  -  DONE  LOOPING? 

NO 

YES  -  NO  MATCH 

RETURN  WITH  C-BIT  SET 

GET  CURRENT  POSITION  IN  PDV  ADDRESS  TABLE 

SUBTRACT  STARTING  ADDRESS  OF  TABLE 

GET  PROCESS  PDV  IWDEX 

CLEAN  UP  STACK  AND  DON'T  CHANGE  C-BIT 

RESTORE  REGISTERS 

RETURN 
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3 

I, 
5 
6 

7 

8 
9 
10 
11 
-.2 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.IIF  NDF  N$$OPT  .TITLE   CEBUF  -  CEX  BUFFER  MANAGEMENT  ROUTINES 
.IIF  DF  N$$OPT   .TITLE   CEBUF1  -  CEX  BUFFER  MANAGEMENT  ROUTINES  (DrNAMIC) 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1980,  1982  ,1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  BUFFER  ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   lO-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-IIM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 


F  1 
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Define  Stack  Offsets  and  Common  Buffer  Return  Table 


CEBUF  -  CEX  BUFFER  MANAGEMENT  R  MACRO 
CCBRT   -  CCB  Deal  location  Routine 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501  000572 

502 

503 

■■^4 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532  000572  016714  OOOOOOG 

535  000576  31046/  OOOOOOG 

534  000602  00526:'  OOOOOOG 

535  000606 


E  2 
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.SSTTL  CC8RT   -  CCB  Deallocation  Routine 

I- 
•«-CCBRT-  CCB  Deallocation  Routine 

This  subroutine  is  called  within  this  module  to  deallocate  a  CCB 
to  the  CCB  pool  or  to  System  Dynamic  Memory.  This  routine  is  always 
executed  with  interrupts  inhibited  (and  Multi-Processor  locks  set). 

Inputs: 

R4  contains  the  address  of  the  CCB  to  release 

Outputs: 

None. 


CCBRT: 


10$: 


.IF  DF   N$$0PT 
.If  NDF  R$$MPL 


CMP 

BHIS 

.ENDC 

TSTB 
BMI 

CMP 
BLOS 
TST 
BEQ 

SAV'RG 

MOV 

MOV 

.IF  DF 
ADD 
TST 
.ENDC 


R4,#$CEAVL 
lOo 


PRI0FFt2(SP) 
10$ 

$CC8CT,$RDBTH 

10$ 

$CC6AL 

10$ 

<R0,R1,R2,R3> 

R4,R0 

$CCBSZ,R1 

M$$PR0 

*2,R1 

-(RO) 


CALL  $DEACB 

RESRG  <R3,R2,R1 

DEC  $CC8AL 
RETURN 


R0> 


.ENDC 

MOV 
MOV 
INC 
RETURN 


$CC8LH,(R4) 

R4,$CCBLH 

$CC8CT 


Is  CCB  from  the  internal  pool? 
It  HIS,  Yes 


Were  we  called  from  Device  Priority  Level? 
If  MI,  Yes  ...  can't  interlock  $DEAC8 

Can  we  satisfy  RDB  requests? 
If  LOS,  No  ...  return  to  list 
Any  dynamic  CCBS  allocated? 
If  EQ,  No  ...  return  to  list 

Save  some  registers 
Copy  address  of  CCB 
Get  size  of  block  to  deallocate 


2  more  bytes  on  Multi-Processors 
Backup  ouer  Unibus  Run  Mask 


Deallocate  the  CCB 

Restore  the  registers 

Decrement  count  of  dynamic  CCB's 


Set  first  pointer  in  retiirned  CCB 

Set  new  first  pointer 

Increment  count  of  CCB's  in  pool 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
2t 
27 
28 
29 
30 
31 
32 
33 

7/, 

3d 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
4  5 
46 
47 
48 
49 
50 
51 
52 
53 
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.IIF  NDF  N$$OPT  .TITLE   CEBUF  -  CEX  BUFFER  MANAGEMENT  ROUTINES 
.IIF  DF  N$$0PT   .TITLE   CEBUF1  -  CEX  BUFFER  MANAGEMENT  ROUTINES  (DYNAMIC) 
.IDENT  /V05.C0/ 

COPYRIGHT  (C)  1980,  1982  ,1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  BUFFER  ALLO  ■  HON  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  IO-rEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-IIM  V3.1 
DECNET-llM-PLUS  Vi.l 


OF 


4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
B:Cnet-11M-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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485 
^.86 
487 
488 
489 
490 
491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

505 

504 

505 

506 

507 

508 

509 

510 

511 

512 

515 

514 

515 

516 

517 

518 

519 

520 

521 

522 

525 

524 

525 

526 

527 

528 

529 

530 

551 

552 

555 

534 

535 


.SBTTL   CCBRT 


CCB  Deallocation  Routine 


**-CCBRT-  CCB  Deallocation  Routine 

This  subroutine  is  called  within  this  module  to  deallocate  a  CCB 
to  the  CCB  pool  or  to  System  Dynamic  Memory.  This  routine  is  always 
executed  with  interrupts  inhibited  (and  Multi-Processor  locks  set). 


Inputs 


R4  contains  the  address  of  the  CCB  to  release 


000656 


000656  020427  OOOOOOG 
000662  105052 


000664  105766  000002 

000670  100427 

000672  026767  OOOOOOG  OOOOOOG 

000700  101425 

000702  005767  OOOOOOG 

000706  001420 

000710 

000720  010400 

000722  016701  OOOOOOG 


000726 

000732 

000742  005367  OOOOOOG 

000746 


Outputs: 

None. 


CCBRT:   .IF  DF  N$$0!=T 


000750  016714  OOOOOOG 

f00754  010467  OOOOOOG 

000760  005267  OOOOOOG 
000764 


10$: 


.IF  NDF 
CMP 
BHIS 
.ENDC 

TSTB 
BMI 

CMP 
BLDS 
1ST 
BEQ 

SAVRG 
MOV 

MOV 

.IF  DF 
ADD 
TST 
.ENDC 

CALL 
RESRG 
DEC 
RETURN 

.ENDC 

MOV 
MOV 
INC 
RETURN 


R$$MPL 

R4,#$CEAVL 

10$ 


PRI0FFt2(SF) 
10$ 

$CC8CT,$RDBTH 

10$ 

$CC8AL 

10$ 

<R0,R1,R2,R3> 

R4,R0 

$CC8S2,R1 

M$$PRO 

#2,R1 

-(RO) 


$DfACB 

<R3,R2,R1,R0> 

$CC8AL 


$CC8LH,(R4) 

R4,$CC8LH 

$CCBCT 


Is  CCB  from  the  internal  pool? 
If  HIS,  Yes 


Were  we  called  from  Device  Priority  Level? 
If  MI,  Ves  ...  can't  interlock  $DEAC8 

Can  we  satisfy  RDB  requests? 
If  LOS,  No  ...  return  to  list 
Any  dynamic  CCBS  allocated? 
n  EQ,  No  ...  return  to  list 

Save  some  registers 
Copy  address  of  CCB 
Get  size  of  block  to  deallocate 


2  more  bytes  on  Multi-Processors 
Backup  over  Unibus  Run  Mask 


Deallocate  the  CCB 

Restore  the  registers 

Decrement  count  of  dynamic  CCB's 


Set  first  pointer  in  returned  CCB 

Set  new  first  pointer 

Increment  count  of  CCB's  in  pool 
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9 
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11 
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U 
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16 
17 
18 
19 
20 
21 
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2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
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47 
48 
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50 
51 
52 
53 
54 
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.IIF  DF  XSSNDM  .TITLE   CEDDMN 

.J  IF  DF  X$$MDC  .TITLE  CEDDMM 

.IIF  NDF  X$$NDM  I   XStMRC  .TITLE  CEDDM 

.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  RE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CEX  DDM/DLC  INTERFACE  ROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FfS-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V5.0 
0ECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4 . 2 
DECnet-11M-PlL,s   V3.0 
DECnet-Mkro/RSX   VI. 0 


OF      ITS 


CEDDM 
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tDDKCP  -  KILL  COMPLETE  TO  DLC  LEVEL 

520 

521 

522 

523 

52A 

525 

526 

•^27   000400 

128 

529 

530 

531 


ADD  $SLTMA,R3 

MOV  (R3),R3 

MOV  L.KR8A(R3),R3   ,  ., 

MOV  K.URM(R3),C.URM(R^) 


POINT  INTO  SYSTEM  LINE  INDEX  TABl E 
GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
GET  POINTER  TO  <RB 


.ENDC 

CALLR   SPDQUI 

.DSA8L  LS8 

.ENDC 


QUEUE  CCB  AND  SCHEDULE  PROCESS 


CEDDM   MACRO  V05.03b  Friday  28-Jun-85  18:  ^  Page  U 
tSTDDM  -  SET  DDM  PDV  INDEX  AND  LINE  'ABLE  ADDRESS 
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CE 
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E  7 


71 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

101 

105 

106 

107 

108 

109 

no 

111 
112 
113 
1U 


LOCAL  MACRO  DEFIPJITIONS 


.IF  DF  K$$DAS 

.MACRO  DD^DF.FNCARGI 

MOV  R3,-(SP) 

MOV  #FNC,R3 

.IF  8  <ARG1> 

BR  DDCMl 

.IFF 

.IF    IDN  <ARG1>,<M[)C> 

BR  DDCM2 

.IFF 

.IF  IDN  <ARG1>,^SUB> 

BR  DDCM4 

.IFF 

BR  DDCM3 

.ENDC 

.ENDC 

.ENDC 

.ENDM  DDFDF 


10$: 


SAVE  R3 

GET  FUNCTION  CODE 

COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR  MODEM  CONTROL  FUNCTIONS 

COMMON  PROCESSING  FOR  CONTROL  FUNCTIONS  UITH  CCB 


.IFF 


DF  K$$DAS 


.MACRO  DDFDF, FNCARGI 

.IF  B   <AfiG1> 

JSR     R3, DDCMl 

.IFF 

.IF  IDN  <ARG1>,<MDC> 

JSR     R3,DDCM2 

.IFF 

.IF  IDN  <ARG1>,<SUB> 

JSR     R3,DDCM4 

.IFF 

JSR     R3,DDCM3 

.ENDC 

.ENDC 

.ENDC 

.WORD   FNC 

.ENDW 


COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR  Mf^'-FM  CONTROL  FUNCTIONS 

COMMON  PROCESSING  FOR  CONTROL  FUNCTIONS  WITH  CCB 


.ENDC 


DF  K$$DAS 
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A$$CHK= 
A$$CPS= 
A$$PRI= 
A$tTRP= 
CB.CCB= 
B.DDM= 
CB.DLC= 
CB.RC9= 
CB.SOB= 
CB.SLI= 
CB.XLB= 
CC.LLC= 
CE.ABO= 
CE.DAO= 
CE.DIS= 
CE.ERR= 
CE.iLN= 
CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
rE.TMO= 
CE.UNS= 
CF.CHN= 
CF.EOM= 
CF.HIR= 
CF.LB  = 
CF.LIN= 
CF.SOM= 
CF.SYN= 
Cr.TRN= 
CM.CIR= 
CM.FMT= 
CM.HRD= 
CM.LIN^ 
CM.LOO= 

CM.xro= 

CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
CS.A80= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.fHN= 
CS.CMP= 
fS.DCR= 
CS.DEFr 
CS.DE\/= 

cs.d;s= 


000000 

000000 

000000 

000000 

000002 

OOOOAO 

000020 

OOOOOA 

000010 

000100 

000001 

000200 

100362 

1003A6 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

C00400 

000004 

000002 

000040 

000001 


CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.R0V= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

C5.XUR= 

C$$rKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.EID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLGl 

C.FL62 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DDCMl 

DDCM? 

DDCM3 

DDCM4 

DDMDSP 

[)$$BUG= 

D$$ISK= 

D$$L11= 

D$$VNC= 


000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

&0C014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000140R 

000150R 

000254R 

000262R 

000312R 

177514 

000000 

000001 

000000 


D$$YNM= 
E$$XPR= 
FC.CCP= 
FC.CrL= 
FC.KCP= 
FC.K]L= 
fC.MAN= 
FC.«11D= 
FC.PCT= 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CIB= 
FS.CRA= 
FS.D]S= 
FS.DVC= 
FS.ENB= 
FS.EXJ= 
FS.GET= 
FS.HLT= 
FS.1NI= 
FS.K1L= 
FS.LCL= 
FS.LTM= 
FS.MNT= 
FS.MSN= 
F5.REA= 
FS.RET= 
FS.REZ= 
FS.RL8= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPU= 
f^S.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
F5.WLB= 
FS.XKL= 
FS.X0F  = 
FS.X0N= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WR[)= 
I$$RAR= 


OOOCOO 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
000000 


I$$R[)N= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LF.ACTr 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB^ 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIH= 
LF.UNL= 
LF.X2P= 
LN.CL0= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.00P= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA^ 
LN.SUB= 
LN.TRI= 
L$»ASG= 
L$$DRV= 
L$$P11= 
L$$11R: 


,C0ST 

,CTL 

,CVA 

,DDM 

.DDS 

.DEC 

,DLM 

,DLS 


L.FLG 

L.KRBA 

L.LEN  = 

L.'^PF 

L.NMST 

L.NSTA 

L . OWNR 

L.UNT 

M$$CRB= 

M$$CRX= 


000000 
177546 
177546 
000000 
000074 
000000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 


M$$FCS= 
M$$HGE= 
M$»NET= 
M$$0VR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$HCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PR7  = 
PS 

P$$P45=- 
P$$WRD= 
Q$$OPT= 
R$$OER= 
R$$K11= 
R$$SND= 
R$$11M= 
SF.ACT= 
SF.ENA= 
SF.LP8= 
SF.MFL= 
Sf.PAC= 
SF.REA^ 
SF.SER= 
SF.SVC= 
SF.UNL= 
S$$WRG= 
S$$YSZ= 
S.COST 
S.FLG 
S.LEN 
S.NMST 
S.OUNR 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
X$$MDC= 
F.COU= 
F.DDM= 
F.DIA= 
F.DLC= 
F.DVP= 


F.INI 

F.KMX= 

F.LLC= 

F.LMC= 

F.MAN= 

F.MFL= 

F.MTM= 

F.MUX= 

F.PSE= 

F.SLI= 


000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 

-  ****** 
=  **^*** 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 

cooooo 

000001 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
0000 ' 0 
000400 
000040 
002000 
010000 


GX 
GX 
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17A 
175 
176 
177 
178 
179 
180 
181 
182 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 


SDDXME 
SUDRCE 


:DDFDF 
:DDFDf 


FC.XME.SUB 
FC.RCE,SUB 


$DDMAN::DDFDF  F C.MAN, SUB 

$DDXKL::DDFDF  FC.KJL+FS.XKL ,CCB 

SDDCRA: :DDFDF  FC.KIL+FS.CRA.CCB 

$DDKIL::DDFDF  FC.KIL+FS.KIL.CCB 

$DDSTR::DDFDF  FC.  CTLtFS.STR,CC8 

$DDSTP::DDFDF  FC.  CTLtFS.STP.CCB 

$DDGET::DDFDF  FC.CTLtFS.GET.CCB 

$DDSET::DDFDF  FC.CTL+FS.SET.CCB 

$DDRNG::DDFDF  FC.CTL+FS.RNG.MDC 

$DDENB::DDFDF  FC.CTL+FS.ENB,MDC 

$DDDIS::DDFDF  FC.CTL+FS.DIS.MDC 

$DDXON::DDFDF  FC. CTL+FS.XDN 

$DDXOF;:DDFDF  FC.CTL+FS.XOF 

$DDMSN::DDFDF  FC.CTLtFS.MSN 


;  TRANSMIT  ENABLE 

;  RECEIVE  ENABLE 

;  NETWORK  MANAGEMENT 

;  TRANSMIT  KILL 

;  RECEIVE  KILL 

;  RECEIVE  AND  TRANSMIT  KILL 

;  START 

;  STOP 

;  GET  CHARACTERISTICS 

;  SET  CHARACTERISTICS 

;  LOOK  FOR  RING 

;  ENABLE  LINE 

;  DISABLE  LINE 

;  XON 

;  XOFF 

;  SENSE  MODEM  STATUS 
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CEDDMM 

CREATED  BY 

MACRO  ON  28 

-JUN-85  Al 

18 

SYMBOL 

[ROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

C.LIN 

000C06 

15-560 

I$$AS 

=  ****** 

5-67 

klSSDAS 

=  ****** 

6-75 

LF.ACT 

=  10P000 

#5-68 

Lf  .BRO 

=  000^00 

#3-68 

LF.BWT 

=  000007 

#5-68 

LF.ENA 

=  002000 

#5-68 

LF.LPB 

=  001000 

#5-68 

LF.MDC 

=  000100 

#5-68 

LF.MFL 

=  OOAOOO 

#5-68 

LF.MTP 

=  000020 

#5-68 

LF.PAC 

=  000200 

#5-68 

LF.ROY 

=  040000 

#5-68 

LF.REA 

=  010000 

#5-68 

LF.SER 

=  000040 

#5-68 

LF.TIM 

=  000010 

#5-68 

LF.UNL 

=  02000C 

#5-68 

LF.X2P 

=  000000 

#5-68 

LN.CLO 

=  000000 

#5-68 

LN.DUM 

=  000005 

#5-68 

LN.LOA 

=  OOOOOA 

#5-68 

LN.LOO 

=  000003 

#5-6' 

LN.OAU 

=  000003 

#5-68 

LN.OFF 

=  000001 

#5-68 

LN.ON 

=  000000 

#5-68 

LN.OOP 

=  000004 

#5-68 

LN.OPE 

=  000001 

#5-68 

LN.REF 

=  000002 

#5-68 

LN.SER 

000002 

#5-68 

LN.STA 

=  000017 

#5-63 

LN.SUB 

=  000360 

#5-68 

LN.TRI 

=  000006 

#5-68 

L.COST 

000015 

#5-68 

L.CTL 

C00012 

#5-68 

L.CVA 

177776 

#5-68 

L.DDM 

000002 

#5-68 

15-577 

L.DDS 

000004 

#5-68 

15-576 

L.DLC 

000003 

#5-68 

L.CLM 

000006 

#5-68 

L.DLS 

OOCOIO 

#5-68 

L.FLG 

000000 

#5-68 

L.KRBA 

000016 

#5-68 

L.LEN 

^  000022 

#5-68 

L.MPF 

000022 

#5-68 

L.NMST 

000020 

#5-68 

L.MSTA 

000014 

#5-68 

L.OWNR 

000021 

#5-68 

L.UNT 

000013 

#5-68 

N$$1LN 

-   ******* 

15-55S 

15-564 

RSSllD 

-   ****** 

5-67 

R$$nM 

=  000000 

5-67 

R$$11S 

r  ****** 

5-67 
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CEDLC 

CREATED  BY 

MACRO  ON  28-Jl'N-85  AT  18:19 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

C.BID 

000005 

•7-190 

C  . :  NC 

000010 

5-111     ♦6-142    ♦7-175 

♦7-178     .7-181 

♦7-184 

C.LIN 

000006 

5-92     ^6-143     7-187 

r.STA 

000007 

7-196 

C.STS 

000012 

♦7-189 

FC.CCP 

=  000020 

6-142     7-178 

FC.KCP 

=  000016 

7-181 

FC.RCP 

=  OOOOK 

7-184 

FC.XCP 

=  000012 

7-175 

FS.AST 

=  000000 

6-142 

ISSAS 

=  ****** 

4-63 

LF.ACT 

=  100000 

#4-64 

LF.BRO 

=  000400 

#4-64 

LF.BUT 

=  000007 

#4-64 

LF.ENA 

=  002000 

#4-64 

LF.LPB 

=  001000 

#4-64 

LF.MDC 

=  000100 

#4-64 

LF.MFL 

=  004000 

#4-64 

LF.MTP 

=  000020 

#4-64 

LF.PAC 

=  000200 

#4-64 

LF.RDY 

=  040000 

#4-64 

LF.REA 

=  010000 

#4-64 

LF.SER 

=  000040 

#4-64 

LF.TIM 

=  000010 

#4-64 

LF.UNL 

=  020000 

#4-64 

LF.X2P 

=  000000 

#4-64 

LN.CLO 

=  000000 

#4-64 

LN.DUM 

i  000005 

#4-64 

LN.LOA 

=  LI00004 

#4-64 

LN.LOO 

=  000003 

#4-64 

LN.DAU 

=  000003 

#4-64 

LN.OFF 

=  000001 

#4-64 

LN.ON 

=  000000 

#4-64 

LN.OOP 

=  000004 

#4-64 

LN.OPl 

=  000001 

#4-64 

LN.REF 

=  000002 

#4-64 

LN.SER 

=  000002 

#4-64 

LN.STA 

=  000017 

#4-64 

LN.SUB 

=  000360 

#4-64 

LM.TRI 

=  000006 

#4-64 

L.COST 

000015 

#4-64 

L.CTL 

000012 

#4-64 

L.CVA 

177776 

#4-64 

L.DDM 

000002 

#4-64 

L.DDS 

000004 

#4-64 

L.DLC 

000003 

#4-64      5-109 

L.DLM 

000006 

#4-64 

L.DLS 

000010 

#4-64      5-108 

L.FLG 

000000 

#4-64 

L.KRBA 

000016 

#4-64 

L.LEN 

=  000022 

#4-64 

L.MPF 

000022 

#4-64 

CEDLC 


CREATED  BY     MACRO     ON'  28-JUN-85   AT   18:19 


PAGE   2 


F  11 


CELLC 
Symbol 


MACRO  V05.03b  Friday  28-Jun-85  18:19 
table 


Page  7-2 


E  12 


Z.FLG  000010 

Z.LEN  =  000016 

Z.LLN  000006 

Z.MAP  000020 


.  ABS.   177776 
0001 7A 
Errors  detected; 


000 
001 
0 


Z.NAM  00000<. 
Z.PCB  C00012 
Z.SCH  000007 
$CMPDV=  «»*•**  GX 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


SDLCRS  000074RG 

SLLCAL  000U6RG 

SLLCLC  000126RG 

SLLCRQ  OOOOOORG 


SLLCRS  000074RG 
SNMCRS  000074RG 
$PDDSP=  *♦**♦•  GX 
$PDQU1=  ******   GX 


$PDSPL=  »**»♦♦  GX 
$PDVTA=  *♦♦***  GX 
$STDLC=  »*»***  GX 

.$$$$.=  oooo:?4 


'»•  Assembler  statistics 


Work  file  reads 
Work  file  writes 
Size  of  work  file 
Size  of  core  pool 
Operating  system 

Elapsed  time:  00:00:13.15 
SY:CELLC.V2,C130,13A]CELLC/CR/-SP=SY 


7 

9 

17290  Words      (   68  Pages) 

17608  Words      (   67  Pages) 

RSX-11M/PLUS 


[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10]RSXMCM/PA:1,[130,10]CELLC 


rFi  I  r 
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CI 
$ 


cccccccc 

EEFEEEEEEE 

000000 

GGGGGGGG 

cccccccc 

EEEEEEEEEE 

000000 

GGGGGGGG 

cc 

EE 

00 

00 

GG 

1111 

cc 

EE 

00 

00 

GG 

1111 

cc 

EE 

00 

00 

GG 

cc 

EE 

00 

00 

GG 

cc 

EEEEEEEE 

00 

00 

GG 

cc 

EEEEEEEE 

00 

00 

GG 

cc 

EE 

00 

00 

GG 

GGGGGG 

cc 

iE 

00 

00 

GG 

GGGGGG 

cc 

:E 

00 

00 

GG 

GG 

cc 

EE 

00 

00 

GG 

GG 

cccccccc 

EEEEEEEEEE 

LLLLLLLLLL 

000000 

GGGGGG 

111111 

cccccccc 

EEEEEEEEEE 

LLLLLLLLLL 

000000 

GGGGGG 

111111 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

fi-'fl.lM   /C  VC  , 
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131 
132 
133 
134 
135 
136 
137 
138 
139 
lAO 
Ul 
U2 
U3 
UA 
K5 
1A6 
H7 
K8 


000020  0,6667  000004  OOOOOOG 


000026  016666  000002  000004 
00003A  012616 


C00036  000167  OOOOOOG 


MOV     4(SP),K1SAR5 


MOV     2(SP),A(SP) 
MOV     (SP)+,(SP) 


.ENDC   ;;  DF  K$$OAS 
JMP     SINTXI 


Restore  previous  APR  contents 
Current  contents  of  stack: 
R4  (Saued  by  JSR  R4,$INTSX  in  DDM) 
R5  (Saved  by  JSR  R5,'ISR'  in  Line  Table) 
KISAfiS      (Saved  in  Line  Table) 
PS  (Saved  by  Interrupt) 
PC  (Saved  by  Interrupt) 

Move  saved  R5  down  on  stack 

Move  saved  R4  down  on  stack 
Contents  of  stack  (necessary  for  SINTXX) 
R4  (Saved  by  JSR  R4,$INTSX  in  DDM) 
R5  (Saved  by  JSR  R5,'ISR'  in  Line  Table) 
PS  (Saved  by  Interrupt) 
PC  (Saved  by  Interrupt) 


Return  through  RSX  Interrupt  exit  ;sjp0005 


MAron  wnc;  n^K  Cr 


^H-l,,^^-a';  iRon  P:>nD  A 


f  H 
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cccccccr 

EEEEEEEEEE 

S5SSSSSS 

uu 

uu 

BB3Be8B8 

cccccccc 

EEEEEEEEEE 

5SSSSSSS 

uu 

uu 

BBBBBSBB 

cc 

EE 

SS 

uu 

uu 

BB      BB 

cc 

EE 

SS 

uu 

uu 

BB     BB 

cc 

EE 

SS 

uu 

uu 

BB     BB 

cc 

EE 

SS 

uu 

uu 

BB     BB 

cc 

EEEEEEEE 

SSSSSS 

uu 

uu 

BBBBBBBB 

cc 

EEEEEEEE 

ssssss 

uu 

uu 

S8B88B88 

cc 

EE 

SS 

uu 

uu 

B8     BB 

cc 

35 

uu 

uu 

BB     BB 

cc 

g£ 

SS 

uu 

uu 

BB     BB 

cc 

EE 

SS 

uu 

uu 

BB     BB 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

88888886 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

B8B888B8 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTirT 

SS 

SS 

SS 

SS 

SSSSSS 

ssssss 

SS 

SS 

SS 

S"i 

LLLLLLLLLL 

SSSSSSSS 

LLLI  LLLLLL 

SSSSSSSS 
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CESUB 
SCEMUL 

450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
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.SBTTL  SCEMUL  -  UNSIGNED  MULTIPLY 

*•-  SCEMUL  -  UNSIGNED  MULTIPLY 

THIS  SUBROUTINE  PERFORMS  UNSIGNED  MULTIPLICATION  WHERE  THE  RESULT  IS  LESS 
THAN  16  BITS.  IT  IS  INCLUDED  HERE  SO  THAT  UE  CAN  CONDITIONALISE  THE  CODE 
FOR  EXTENDED  INSTRUCTION  SET. 

NOTE  THAT  IT  IS  THE  CAILERS  RESPONSIBILITY  TO  ENSURE  THAT  THE  RESULT 
WILL  FIT  IN  16  BITS. 

INPUTS: 

RO  =  MULTIPLIER 
R1  =  MULTIPLICAND 

OUTPUTS: 

RO  =  CORRUPTED 

R1  =  LOW  16  BITS  Of  RESULT 


000572 


000572 


SCEMUL::. IF  DF  RSSEIS 

MUl     R0,R1 
RETURN 


.IFF 

CALLR 

.ENDC 


;  DF  RSSEIS 

SMUL 

;  DF  RSSEIS 


PERFORM  MULTIPLICATION 


;  CALL  EXEC  MULTIPLY  ROUTINE 
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Define  Stack  Offsets  and  Common  Buffer  Return  Table 


56 
57 
58 
59 
60 
61 

62  000000 

63  000000 
6^ 

65 
66 
67 
68 
69 
70 
71 
72 
73 


000000 


.SSTTL  Define  Stack  Offsets  and  Common  Buffer  Return  Table 

.MCALL   INHIB$,ENABL$,SAVRG,RESRG,SA\/MAP,RESMAP,MAP 
.MCALL   CC6DF$,SLTDF$ 

CC8DF$  ;  Define  CCB  Offsets 

SLTDFS  ;  Define  SLT  Offsets 

Define  offsets  to  saued  PSW  from  SINHIB.  This  offset  is  used  by  the 
FAIL  entry  (refer  to  BUFGT)  to  set  the  C-Bit  so  that  failures  to  allocate 
an  RDB,  LDB,  or  SD8  will  set  the  C-Bit  on  the  ENABLS. 


PRIOFF=0 


PRIOFF= 


.IF  DF 
".ENDC 


M$$PR0 


Offset  to  Saued  Priority 

Extra  word  on  Stack  for  Multi-Processors 
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SCCBGT  -  Allocate  a  Standard  CCB 


F  2 

CEBUF  -  CEX  BUFFER  MAMAGEMENT  R  MACRO  V05.03b  Friday  28-Jun-85  18:16  Page  17 
Allocation  Control  Block  Documentation 
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558 
539 
540 
541 
542 
543 
544 
545 
546 


.SBTTL  Allocation  Control  Block  Documentation 

Allocation  Control  Blocks  are  used  to  control  the  allocation 
of  fixed  length  blocks  from  doubley  link  lists  (address 
doublewords) .  The  control  blocks  haue  the  following  format: 


.WORD   <#  of  buffers  available> 
.WORD   0,0  ; 

.WORD   <"#  of  allocation  failures> 


Allocation  listhead 


G  2 

CEB'JF  -  CEX  BUFFER  MANAGEMENT  R  MACRO  V05.03b  Friday  28-Jun-85  18:16  Page  18 
BUFGI   -  General  Buffer  Allocation  Routine 


I 
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56 
57 
58 
59 
60 
61 

62  000000 

63  000000 
M 

65 
66 
67 
68 
69 
70 

7- 

72 
73 
7A 


.SBTTL  Define  Stack  Offsets  and  Common  Buffer  Return  Table 

.MCALL   INHI8$,ENABL$,SAVRG,RESRG,SAVMAP,RESMAP,MAP 
.MCALL  CCBDF$,SLTDF$ 

CCBDFS 
SLTDFS 


Define  CCB  Offse-s 
Define  SLT  Offsets 


Define  offsets  to  saved  PSi«  from  $INHI3.  This  offset  is  used  by  the 
FAIL  entry  (refer  to  BUFGT)  to  set  the  C-Bit  so  that  failures  to  allocate 
an  RDB,  LDB,  or  SDB  will  set  the  C-Bit  on  the  ENABLS. 


000000 


f'RIOFF=0 


PRIOFF= 


.IF  DF 
.ENDC 


M$$PRO 


Offset  tc  Saved  Priority 

Extra  word  on  Stack  for  Multi-Processors 
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$CCBGT     -   Allocate  a   Standard   CCB 
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Allocation  Control  Block  Documentation 


537 
538 
539 
5^0 
5A1 
5A2 
5';3 
5A4 
5A5 
546 


.S8TTL  Allocation  Control  Block  Documentation 

Allocation  Control  Blocks  are  used  to  control  the  allocation 
of  fixed  length  blocks  from  doubley  link  lists  (address 
doublewords) .  The  control  blocks  have  the  following  format: 


.WORD   <*  of  buffers  available> 

.WORD   0,0 

.WORD   <"*  of  allocation  failures) 


Allocation  listhead 
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58 
59 
60 
61 
62 
63 
64 
65 

66  OOOOOC 

67  000000 

68  000000 
69 


MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 
.MCALL 
CCSDFS 
PDVDFS 
SLTDFS 


INHi8$,ENABL$,SAVRG,RESRG 
CC8DF$, PDVDFS, SLTDFI 


CALLR 


AVOID  SYSTEM  DEPENDENCY 
DEFINE  THE  CCB  OFFSETS 
DEFINE  THE  PDV  OFFSETS 
DEFINE  THE  SLT  OFFSETS 
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533 

53A 

535 

536 

537 

538 

539 

5A0 

5A1 

5A2 

5A3 

5AA 

545 

546 

5A7 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 
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.SBTTL  SSTDDM  -  SET  DDM  FDV  INDEX  AND  LINE  TABLE  ADDRESS 

f 
**-$ST:.DM-SET  DDM  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
♦  *-$STDD1-(ALTERNATE  E;JTRY) 

THIS  SUBROUTINE  IS  CALLED  TO  SET  UP  A  DEVICE  DRIVER  PDV  INDEX  AND 
LINE  TABLE  ADDRESS  BASED  ON  A  SYSTEM  LINE  NUMBER. 


INPUTS: 


R2  ^  SYSTEil  LINE  NUMBER  (ALTERNATE  ENTRY  ONLY) 
R4  =  CC8  ADDRESS  UITH  A  VALID  SYSTEM  LINE  NUMBER  IN 
C.LIN  (MAIN  ENTRY  ONLY) 


OUTPUTS: 


R2  =  PDV  INDEX 

R5  =  ADDRESS  OF  DEVICE  LINE  TABLE 


000404 

000404  116402  000006 

000410 


000410  006302 

000412  066702  OOOOOOG 

000416  011202 


000420  016205  000004 
000424  116202  000002 
0004  30 


;  REGISTERS  MODIFIED: 

;      R5 

SSTDDM::. IF  NDF 

N$$1LN 

MOVB 

C.LIN(R4),R2 

.ENDC 

$STDD1::.IF  DF 

NSIILN 

MOV 

S$SLTMA,R2      ; 

.IFF 

ASL 
ADD 
MOV 

R2 

$SLTMA,R2 

(R2),R2 

.ENDC 

MOV 

MOVB 

RETURN 

L.DDS(R2),R5    ; 
L.DDM(R2),R2    ; 

EXTRACT  SYSTEM  LINE  NUMBER 


GET  ADDRESS  OF  SYSTEM  LINc  ENTRY 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TmBLE 

GET  ADDRESS  OF  SYSTEM  LINE  ENTRY 


GET  DEVICE  LINE  TABLE  ADDRESS 

GET  DEVICE  DRIVER  PDV  INDEX  (WORD  INDEX) 

RETURN 


000001 


.END 
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116 

117 

118 

119 

120 

121 

122 

123 

12^ 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

1^0 

Kl 

K2 

U3 

14A 

1^.5 

146 

K7 

K8 

K9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

1tj2 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 


.IF  NDF  X$$NDM 

.SBTTL  $DD???  -  DLC  TO  DDM  REQUESTS 


GENERAL  REQUESTS  WITH  CCB 
FORMAT  OF  CALL: 


CALL 


$DD? 


INPUTS: 


R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

(ALL  CCBS  MUST  CONTAIN  A  VALID  SLN) 

OUTPUTS  TO  DDM: 

R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

R5  =  ADDRESS  OF  DDM  LINE  TABLE 

R2  8  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTERS  ACROSS  CALL: 

R0,R1  -  MUST  SF  PRESERVED  BY  DDf'  IF  USED 
R2,R3,R5  -  PRESERVED  BV  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN   TO  DLC: 

C-BIT    CLEAR  -   REQUEST   HAS    COMPLETED   SYNCHRONOUSLY 
R4   =  ADDRESS  OF    CCB 

C-8IT    SET   -  REQUEST  WILL    COMPLETE   ASYNCHRONOUSLY 
R4   =  0 


SPECIAL    REQUESTS   WITHOUT    CCB 
FORMAT  OF    CALL: 


CALL 


$DD??? 


INPUTS: 


R3  =   SYSTEM  LINE    NUMBER 

R4   =  OPTIONAL    CALLING  PARAMETER   TO  DDM 

OUTPUTS  TO  DDM: 

R4  =  OPTIONAL  CALLING  F  ^AMETER  FROM  DLC 

R5  =  ADDRESS  OF  DDM  LINl  TABLE 

R2  &  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTERS  ACROSS  CALL: 

RO.RI  -  MUST  BE  PRESERVED  BY  DDM  IF  USED 
R2,R3,R5  -  PRESERVED  BY  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN   TO   DLC: 

C-BIT    ALWAYS   CLEAR 

R4   =   OPTIONAL    RETURNING   PARAMETER   FROM  DDM 


CEDDMM     MACRO  V05.05b   Fridai 
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Symbol  table 

ZF.TIM=  000200        2. MAP   000020 

SDDDIS 

000110RG       SDDRNG 

000074RG 

SDDXON 

0001 16RG 

2F.X3P=  000000        Z.NAM   000004 

SDDENB 

000102RG       SDDSET 

000066RG 

SLLCSP 

000500RG 

ZS.ASN=  100000        Z.PCB   000012 

SDDGET 

000060RG       SDDSPC 

000500RG 

$PDDSP= 

******  uX 

ZS.BSY=  UOOOO        Z.SCH   000007 

SDDKCP 

000450RG       SDDSTP 

000052RG 

$PDQU1= 

******  GX 

2.AVL   OOOOK        $CC8GT=  ******  GX 

SDDKIL 

000036RG       SDDSTR 

000044RG 

$PDVTA= 

******  GX 

2. DAT   000016        $CCBRT=  ******  GX 

SDDMAN 

OOOOHRG       SDDXKL 

000022RG 

$SLTMA= 

******  GX 

Z.DSF   000000        SDDAST  00C400RG 

SDDMSN 

000132RG       SDDXME 

OOOOOORG 

SSTDDM 

000510RG 

Z.FLG   000010        SDDCCP  000460RG 

SDDRCE 

000006RG       SDDXMP 

000430RG 

SSTDDI 

0005URG 

Z.LEN  =  000016        SDDCRA  000030RG 

SDDRCP 

0004'iORG       SDDXOF 

000124RG 

.$$$$.= 

000034 

Z.LLN   000006 

.  ABS.   177776    OCO   (RW.I ,GBL,A8S,0VR) 

000536    001   (RW,I,LCL,REL,CON) 

Errors  detected:  0 

*♦♦  Assembler  statistics 

Work   tile  reads:  9 

Uork  Ti  le  wr"' tes  :  12 

Size  of  work  file:  17A61  Words  (  69  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-1 IM/PLUS 

Elapsed  n'me:  00:00:19.49 

Sy:CEDDMM.v2,[130,134JCEDDMM/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,t1 

:0,10DRSXMCM/PA 

1,[130,10]V2,CEDDM 

CEDDMM 
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196 

197 

198 

199 

200 

201 

202 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2H 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 


.SBTIL      DDCM1    -   COMMON  PROCESS   FOR   SPECIAL   NON-CCB   FUNCTIONS 


•*-DDCM1    -  COMMON  PROCESS   FOR  SPECIAL  NON-CCB  FUNCTIONS 

INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

R4  =  UNSPECIFIED  CALLING  PARAMETER  TO  DDM 

STACK  CONTAINS: 

OO(SP)  =  LINE  NUMBER  tORlGINALLY  IN  R3) 
02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE  (WORD  INDEX) 
R4  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

FUNCTION  HAS  BEEN  PERFORMED 

R4  =  UNSPECIFIED  RETURN  PARAMETER  TO  DLC  FROM  DDM 

REGISTERS  ACCROSS  CALL: 
R2,R3,R5  PRESERVED 
R4       MAY  BE  MODIFIED  BY  DDM 


.ENA6L  LS8 
.yCMI:   .IF  DF  K$$DAS 


MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

.ENDC 

MOV 
MOV 
BR 

R2,-(SP) 
2(SP),R2 
22$ 

STORE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


SAVE  R2 

GET  LINE  NUMBER 

JOIN  COMMON  CODE  TO  DISPATCH  TO  DDM 
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CREATED  BY 

MACRO  ON  28 

-JUN-85  AT  18:18 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SF.ACT 

=  000200 

#5-68 

5F.ENA 

=  000100 

#5-68 

SF.LPB 

=  OOOOOA 

#5-68 

SF.MFL 

=  OOOOAO 

#5-68 

SF.PAC 

=  000020 

#5-68 

5F.REA 

=  000010 

#5-68 

SF.SER 

=  000001 

#5-68 

SF.SVC 

=  000002 

#5-68 

SF.UNL 

=  000040 

#5-68 

S.COST 

000001 

#5-68 

S.FLG 

000000 

#5-68 

S.LEN 

000004 

#5-68 

S.NMST 

000002 

#5-68 

S.OWNR 

000003 

#5-68 

X$$MCB 

r  ****** 

5-67 

5-67 

X$$MDC 

-  ****** 

5-3 

X$$NDM 

=  000001 

#4-2 

5-1 

5-3 

ZF.COU 

=  001000 

#5-67 

ZF.DDM 

=  000001 

#5-67 

ZF.DIA 

=  004000 

#5-67 

ZF.DLC 

=  000002 

#5-67 

ZF.DVP 

=  100000 

#5-67 

ZF.INl 

=  040000 

#5-67 

ZF.KMX 

=  000020 

#5-67 

ZF.LLC 

=  000004 

#5-67 

ZF.LMC 

=  000100 

#5-67 

ZF.MAN 

=  020000 

#5-67 

ZF.MFL 

=  000010 

#5-67 

ZF.MTM 

=  000400 

#5-67 

ZF.MUX 

=  000040 

#5-67 

ZF.PSE 

=  002000 

#5-67 

ZF.SLI 

=  010000 

#5-67 

ZF.TIM 

=  000200 

#5-67 

ZF.X3P 

=  000000 

#5-67 

ZS.ASN 

=  100000 

#5-67 

ZS.BSY 

■-    140000 

#5-67 

Z.AVL 

000014 

#5-67 

Z.DAT 

000016 

#5-67 

Z.DSP 

000000 

#5-67 

5-67 

Z.FLfi 

000010 

#5-67 

Z.LEW 

=  000016 

#5-67 

Z.LLN 

000006 

#5-67 

Z.MAP 

000020 

#5-67 

Z.NAM 

000004 

#5-67 

Z.PCB 

000012 

#5-67 

Z.SCH 

000007 

#5-67 

SSLTMA 

=  •»♦•»•  GX 

15-571 

SSTDDM 

OOOOGO  RG 

#15-558 

SSTDDI 

000004  RG 

#15-564 
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CEDLC 

CREATED  BY 

MACRO     ON  28-JUN-85   AT   18:19 

PAGE   2 

SYMBOL 

CROSS  REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

L.NMST 

000020 

#4-64 

L.NSTA 

000014 

#4-64 

L.OWNR 

000021 

#4-64 

L.UNT 

000013 

#4-64 

M$$PRO 

r  ****** 

7-202 

N$$1LN 

=  ****** 

5-90               5-96 

R$$11D 

-  ****** 

4-65 

R$$11M 

=  000000 

4-65 

R$$11S 

-  ****** 

4-63 

SF.ACT 

-  000200 

#4-64 

SF.ENA 

=  000100 

#4-64 

SF.LPB 

=  000004 

#4-64 

SF.MF' 

=  000040 

#4-64 

SF.PAC 

=  000020 

#4-64 

SF.REA 

=  000010 

#4-64 

SF.SER 

=  000001 

#4-64 

SF.SVC 

=  000002 

#4-64 

SF.UNL 

=  000040 

#4-64 

S.COST 

000001 

#4-64 

S.FLG 

"00000 

#4-64 

S.LEN 

000004 

#4-64 

S.NMST 

000002 

#4-64 

S.OWNR 

000003 

#4-64 

X$$MCB 

-    *♦ t **  * 

4-63               4-65 

ZF.COU 

=  001000 

#4-65 

ZF.DDM 

=  000001 

#4-63 

ZF.DIA 

=  004000 

#4-65 

ZF.DLC 

=  000002 

#4-65 

ZF.DVP 

=  100000 

#4-63 

ZF.INI 

=  040000 

#4-63 

ZF.KMX 

=  000020 

#4-65 

ZF.LLC 

=  000004 

#4-65 

ZF.LMC 

=  000100 

#4-63 

ZF.MAI^ 

=  020000 

#4-63 

ZF.MFL 

=  000010 

#4-63 

ZF.MTM 

=  000400 

#4-65 

ZF.MUX 

=  000040 

#4-65 

ZF.PSE 

=  002000 

#4-63 

ZF.SLI 

=  010000 

#4-65 

ZF.TIM 

=  000200 

#4-65 

ZF.X3P 

=  000000 

#4-63 

ZS.ASN 

=  100000 

#4-63 

ZS.BSY 

=   140000 

#4-65 

Z.AVL 

000014 

#4-65 

Z.DAT 

000016 

#4-63 

Z.D5P 

000000 

#4-65               4-65 

Z.FLG 

000010 

#4-63 

Z.LBN 

=  000016 

#4-63 

Z.LLN 

000006 

#4-65 

Z.MAP 

00002C 

#4-65 

Z.NAM 

000004 

#4-65 

Z.PCB 

000012 

#4-63 

CEDLC 
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CELLC 

CREATED  BY 

MACRO  ON  28-JUN-85  AT 

SYMBOL 

CROSS  REFERr*J''E 

SYMBOL 

VALUE 

REFERENCES 

C.BID 

000003 

*6-176 

C.FNC 

000010 

7-217 

C.LIN 

000006 

5-114     ♦5-117 

C.STA 

000007 

7-218     .7-219 

I$$AS 

-      ♦+*♦** 

4-61 

LF.ACT 

=  100000 

#4-62 

LF.BRO 

=  000400 

#4-62 

LF.BWT 

=  00000? 

#4-62 

LF.ENA 

=  002000 

#4-62 

LF.LPB 

=  001000 

#4-62 

LF.MDC 

=  000100 

#4-62 

LF.MFL 

=  004000 

#4-62 

LF.MTP 

=  000020 

#4-62 

LF.PAC 

=  000200 

#4-62 

LF.RDY 

=  040000 

#4-62 

LF.REA 

=  010000 

#4-62 

LF.SER 

=  OOOOAO 

#4-62 

LF.TIM 

=  000010 

#4-62 

LF.UNL 

=  020000 

#4-62 

LF.X2P 

=  000000 

#4-62 

LN.CLO 

=  000000 

#4-62 

LN.DUM 

=  000005 

#4-62 

LN.LOA 

=  000004 

#4-62 

LN.LOO 

=  000003 

#4-62 

LN.OAU 

=  000003 

#4-62 

LN.OFF 

=  C00001 

#4-62 

LN.ON 

=  000000 

#4-62 

LN.OOP 

=  000004 

#4-62 

LN.OPE 

=  000001 

#4-62 

LN.REF 

=  000002 

#4-62 

LN.SER 

=  000002 

#4-62 

LN.STA 

=  000017 

#4-62 

LN.SUB 

=  000560 

#4-62 

LN.TRI 

=  000006 

#4-62 

L.COST 

000015 

#4-62 

L.CTL 

000012 

#4-62 

L.CVA 

177776 

#4-62 

:_.D[)M 

000002 

#4-62 

L.DDS 

000004 

#4-62 

L.DLC 

000003 

#4-62 

■   .DIM 

000006 

#4-62 

L.DLS 

000010 

#4-62 

L.FLG 

000000 

#4-62 

L.KRBA 

000016 

#4-62 

L.LEN 

=  000022 

#4-62 

1  .MPF 

000022 

#4-62 

L.NMST 

000020 

#4-62 

L.NSTA 

000014 

#4-62 

L.OWNR 

000021 

#4-62 

L.UNT 

000013 

*^-62 

M$$PRO 

=  *t **** 

5-86      6-168 

PS 

=  *»•♦••  GX 

»5-122 
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.S8TTL  $1NTX7  -  LEVEL  7  INTERRUPT  EXIT 


$INTX7  -  LEVEL  7  INTERRUPT  EXIT 

This  routine  is  used  by  Driver  ISRs  that  run  at  priority  leuel 
7  during  some  portion  of  Interrupt  Service.  Drivers  ISRs  may 
only  push  one  item  on  the  stack  during  level  7  interrupt 
service,  and  must  call  SINTSX  (to  drop  priority  and  switch  to 
the  system  stack)  to  post  any  completions. 


Inputs:  (stack  must  be  formatted  as  follows:) 
R5     (Saved  in  line  table) 

•  KINAR5  (Saved  in  line  table  for  RSX-11M+  only) 
KISAR5  (Saved  in  line  table) 
PS      (Saved  by  interrupt) 
PC     (Saved  by  interrupt) 


000042 

000042  012605 


000044  012667  OOOOOOG 
000050  000002 


$INTX7: : 


MOV  (SP)+,R5 

.IF  DF  K$$DAS 

MOV  (SP)+,KINAR5 
.ENDC 

MOV  (SP)+,KISAR5 
RTI 


Restore  R5 

Different  for  RSX-11Mt 

with  Kernel  Data  Space  enabled 
Restore  Kernel  I-Space  APR5 


Restore  Kernel  mapping  register  5 
Return  from  Interrupt 


rpcru   Miron  un";  n'^h  Fn'rlav  ?R- hin-RS  1R-?n   P;inp  7 
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s- 

68 

SCMQIN 

6- 

101 

SCMQRM 

U2 

SCNV18 

H- 

205 

SMVTBF 

4- 

256 

SMVFBF 

10- 

310 

SCALLX 

n- 

565 

SCEACC 

11- 

366 

SCECAC 

V- 

A15 

SPOVID 

M- 

450 

SCEMUL 

14- 

481 

SCEDIV 

QUEUE  A  CHAIN  OF  CCBS  TO  A  LIST 

REMOVE  A  CHAIN  OF  CCBS  FROM  A  LIST 

CONVERT  TO  18-BIT  UNIBUS  ADDRESS 

MOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

MOVE  FROM  UNMAPPED  BUFFER  TO  A  MAPPED  BUFFER 

MAPPED  SUBROUTINE  CALL 

ACCESS  BLOCK  IN  EXTENDED  POOL 

ACCESS  BLOCK  IN  ALTER.NALE  EXTENDED  POOL 

PROCESS  NAME  TO  PDV  INDEX 

UNSIGNED  MULTIPLV 

UNSIGNED  DIVISION 
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__J 


CCSUB 
$CEDIV 

A81 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
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.SBTTL  $CED;V  -  UNSIGNED  DIVISION 

♦♦-  SCEDIV  -  UNSIGNED  DIVISION 

THIS  SUBROUTINE  PERFORMS  UNSIGNED  DIVISION  WHERE  THE  RESULTS  ARE  LESS  THAN 
16  BITS.  IT  IS  INCLUDED  HERE  SO  THAT  WE  CAN  CONDITIONALISE  THE  CODE  FOR 
EXTENDED  INSTRUCTION  SET. 

NOTE  THAT  IT  IS  THE  CAILERS  RESPONSIBILITY  TO  ENSURE  THAT  THE  RESULTS  WILL 
FIT  IN  16  BITS. 

INPUTS: 

RO  =  DIVIDEND 
Rl  =  DIVISOR 

OUTPUTS: 

RO  =  QUOTIENT 
Rl  =  REMAINDER 


000576 


$CED1V::.IF  DF  R$$EIS 


000576 


MOV 
MOV 
CLR 
DIV 
RETURN 

.IFF 

CALLR 

.ENDC 


R1,-(SP) 
RO.RI 
RO 
(SPU,RO 


;  DF  R$$EIS 

$DIV 

;  DF  R$$EIS 


SAVE  DIVISOR 
SET  UP  DIVIDEND 
CLEAR  HIGH  ORDER  WORD 
PERFORM  THE  DIVISION 


CALL  EXEC  DIVIDE  ROUTINE 


DC   1  O  .  1 A 
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83 
8A 
85 
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90 
91 
92 
93 
9A 
95 
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97 
98 
99 

100 
101 
102 
103 
IDA 
105 
106 
107 
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-  Allocate  a  Standard  CC8 

.SBTTL  SCCBGT  -  Allocate  a  Standard  CCB 

»*-$CC8GT-  Allocate  a  Standard  CCB 


This  subroutine  is  called  to  allocate  a  CCB  from  the  CCB  pool.  If  the 
assembly  option  is  chosen,  the  CCB  may  be  allocated  from  System 
Dynamic  Memory  if  the  CCB  pool  is  empty. 


Inputs: 

None. 

Outputs: 

M   contains  the  address  of  the  allocated  ''C8 

C-Bit  is  CLEAR  if  the  CCB  was  successfull,  jllocated 

C-Bit  is  SET  and  RA=0  if  the  allocation  failed 


000000  000241 
000002 


OOOOU 


SCCBGT: :CLC 

INHJBS 


000020 
000024 


.IF  Df  M$$PRO 
CALL  SMPLCK 
.ENDC 


CALL 


CCBGT 


.IF  DF  M$$PRO 
CALL  a(SP)+ 
.ENDC 

ENABL$ 
RETURN 


Assume  Success 

;  Inhibit  Interrupts  (and  save  C-Bit) 


;  Lock  Access  to  CommExec  Resources 

;  Allocate  a  CCB 

;  Co-Routine  return  to  unlock  resources 

;  Enable  Interrupts  (and  load  final  C-Bit) 
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5^8 
5^9 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
57A 
575 
576 
577 

578  000610 

579  000612 

580  0006K 

581  000616 

582  000620 

583  000624 

584  000630 
585 

586  000632 

587  000636 

588  000642 

589  000646 
590 

591  000652 

592  000654 
593 

594  000656 
595 

596  000660 

597  000664 

598  000666 


.SBTTL  BUFGT   -  General  Buffer  Allocation  Routine 

**-BUFGT-  General  Buffer  Allocation  Routine 

This  subroutine  is  called  within  this  module  to  allocate  a 

buffer  from  a  double/  linked  list.  This  routine  is  always  executed 

with  interrupts  inhibited  (and  Multi-Processor  locks  set). 

Inputs:  .        ,   ,   , 

R5  contains  the  pointer  to  listhead  in  Allocation  Control  Block 

Outputs: 

R2  contains  the  Virtual  Address  of  buffer 

R3  contains  the  APR  Bias  of  buffer 

C-8it  is  CLEAR  if  the  buffer  was  successfully  allocated 

C-Bit  is  SET  if  the  allocation  failed 

Registers  Modified: 
R5 
APR6  will  be  mapped  to  the  buffer. 


Notes: 


000241 
012503 
012502 
001417 

016245  000002 
011245 

010364  000014 

010364  000024 

010264  000016 

010264  000026 

005345 


005225 

005266  000002 
000261 


Before  this  routine  is  called,  the  calling  routine  must  have  issued 
a  CLC  instruction  followed  by  an  INHIBS.  No  other  values  must  be 
stored  on  the  stack  because  if  the  allocation  fails,  the  FAIL:  code 
will  reach  back  on  the  stack  and  set  the  C-Bit  in  the  saved  PSW  so 
that  when  the  calling  routine  executes  an  ENABLS  the  C-Bit  will  be 
set  to  indicate  the  allocation  failure. 


Assume  success 
Get  next  buffer's  APR  Bias 
Get  next  buffer's  Virtual  Address 
If  EQ,  No  more  buffers  available 
Map  APR6  to  the  new  buffer 
Unlink  buffer  from 
the  free  list 

Load  the  Buffer  Bias 

Load  the  Buffer  Virtual  Address 

Decrement  count  of  available  buffers 

Increment  count  of  allocation  failures 

S' t  -Bit  in  saved  PSW  for  ENABL$. 
Indicate  buffer  allocation  failure 


BUFGT: 

CLC 

MOV 

(R5)  + 

,R3 

MOV 

(R5)  + 

,R2 

BEQ 

10$ 

MAP 

R3 

MOV 

2(fi2) 

,-(R5) 

MOV 

(R2), 

-(R5) 

MOV 

R3,C. 

BUF(R4) 

MOV 

R3,C. 

BUF2(R4) 

MOV 

R2,C. 

BUF+2(R4) 

MOV 

R2,C. 

BUF2+2(R4) 

DEC 

-(R5) 

RETURN 

10$: 

INC 

(R5)* 

FAIL: 

INC 

PRI0FF+2(SP) 

SEC 

RETURN 
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CEBUFl 
$CCBGT 


76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
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105 
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-  Allocate  a  Standard  CCB 

.SBTTL  $CC6GT  -  Allocate  a  Standard  CCB 

♦♦-$CC8GT-  Allocate  a  Standard  CCB 


This  subroutine  is  called  to  allocate  a  CCB  from  the  CCB  pool.  If  the 
assembly  option  is  chosen,  the  CCB  may  be  allocated  from  System 
Dynamic  Memory  if  the  CCB  pool  is  empty. 

Inputs: 

None. 

Outputs: 

M   contains  the  address  of  the  allocated  CCB 

C-Bit  is  CLEAR  if  the  CCB  was  successfully  allocated 

C-6it  is  SET  and  R4=0  if  the  allocation  failed 


000000  0002'il 
000002 


00001A 


$CCBGT::CLC 

INHIBS 


000020 
000024 


.IF  DF  M$$PR0 
CALL  SMPLCK 
.ENDC 


CALL 


CC8GT 


.IF  Df  M$$PRO 
CALL  a(SP)t 
.ENDC 

ENABLS 
RETURN 


Assume  Success 

;  Inhibit  Interrupts  (and  save  C-Bit) 


Lock  Access  to  CommExec  Resources 
Allocate  a  CCB 

Co-Routine  return  to  unlock  resources 
Enable  Interrupts  (and  toad  final  C-Bit) 
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548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 

578  000766 

579  000770 

580  000772 

581  000774 

582  000776 

583  001002 

584  001006 
585 

586  001010 

587  001014 

588  001020 

589  001024 
590 

591  001030 

592  001032 
593 

594  001034 
595 

596  001036 

597  001042 

598  001044 
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^ 

**-BUFGT-  General  Buffer  Allocation  Routine 

This  subroutine  is  called  within  this  module  to  allocate  a 

buffer  from  a  doubley  linked  list.  This  routine  is  always  executed 

with  interrupts  inhibited  (and  Multi-Processor  locks  set). 

Inputs:  ,  „,   , 

R5  contains  the  pointer  to  listhead  in  Allocation  Control  Block 

Outputs: 

R2  contains  the  Virtual  Address  of  buffer 

R3  contains  the  APR  Bias  of  buffer 

C-8it  is  CLEAR  if  the  buffer  was  successfully  allocated 

C-Bit  is  SET  if  the  allocation  failed 

Registers  Modified. 
R5 
APR6  will  be  mapped  to  the  buffer. 


Notes: 


000241 
012503 
012502 
001417 

016245  000002 
011245 

010364  000014 

010364  000024 

010264  000016 

010264  000026 

005345 


005225 

005266  000002 
000261 


Before  this  routine  is  called,  the  calling  routine  must  have  issued 
a  CLC  instruction  followed  by  an  INHIBS.  No  other  values  must  be 
stored  on  the  stack  because  if  the  allocation  fails,  the  FAIL:  code 
will  reach  back  on  the  stack  and  set  the  C-Bit  in  the  sai/ed  PSW  so 
that  when  the  calling  routine  executes  an  ENABLS  the  C-Bit  will  be 
set  to  indicate  the  allocation  failure. 


Assume  success 
Get  next  buffer's  APR  Bias 
Get  next  buffer's  Virtual  Address 
If  EQ,  No  more  buffers  available 
Map  APR6  to  the  new  buffer 
Unlink  buffer  from 
the  free  list 

Load  the  Buffer  Bias 

Load  the  Buffer  Virtual  Address 


BUFf^T: 

CLC 

MOV 

(R5)  + 

,R3 

MOV 

(R5)t 

,R2 

BED 

10$ 

MAP 

R^ 

MOV 

2(R2: 

,-(R5) 

MOV 

(R2), 

-(R5) 

MOV 

R3,r. 

BUFIR4) 

MOV 

R3,C. 

BUF2(R4) 

MOV 

R2,C. 

BUFt2(R4) 

MOV 

R2,C. 

BUF2t2(R4) 

DEC 

-(R5) 

RETURN 

10$: 

INC 

(R5)* 

FAIL: 

INC 

PR10FFt2(&P) 

SEC 

RETURN 

Decrement  count  of  available  buffers 


Increment  count  of  allocation  failures 

Set  C-Bii  '1  saved  PSW  for  ENABL$. 
Indicate  buffer  allocation  failure 
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71 

72 

73 

7^ 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 


LOCAL  MACRO  DEFINIflONS 


.IF  DF  K$$DAS 

.MACRO  DDFDF.FNCARGI 

MOV  R3,-(SP) 

MOV  #FNC,R3 

.IF  B  <ARG1> 

BR  DDCM1 

.IFF 

.IF  IDN  <AR61>,<HDC> 

BR  0DCM2 

.IFF 

.IF  IDN  <AR61>,<SUB> 

BR  DDCM4 

.IFF 

BR  DDCM3 

.ENDC 

.ENDC 

.ENDC 

.ENDM  DDFDF 


10$: 


SAVE  R3 

GET  FUNCTION  CODE 

COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR  MODEM  CONTROL  FUNCTIONS 

COMMON  PROCESSING  FOR  CONTROL  FUNCTIONS  WITH  CCB 


.IFF 


;  DF  K$$DAS 


.MACRO  DDFDF.FNCARGI 

.IF  B   <ARG1> 

JSfi     R3,DDCM1 

.IFF 

.IF  IDN  <ARG1>,<MDC> 

JSR     R3,DDCM2 

.IFF 

.IF  IDN  <ARG1>,<SUB> 

JSR     R3,DDCM4 

.IFF 

JSR     R3,DDCM:i 

.ENDC 

.ENDC 

.ENDC 

.WORD   FNC 

.ENDM 


COMMON  PROCESSING  FOR  NON-CCB  CONTROL  FUNCTION 
COMMON  PROCESSING  FOR  MODEM  CO.  ROL  FUNCTIONS 

COMMON  PROCESSING  FOR  CONTROL  FUNCTIONS  WITH  CCB 


.ENDC 


;  DF  K$$DAS 
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A$$CHK= 

AS$CPS= 

A$tPRI= 

A$$TRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CM.C1R= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

C5.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 

lS.ENA  = 


000000 

000000 

000000 

000000 

000002 

OOOO'.O 

000020 

000004 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 


CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

C$$CKP= 

C$$0RE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.8UF1 

C.BUF2 

C.CNT 

C.CNTI 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

CLIN 

C.LNK 


,M0D 

NSP 

PRO 

RSV 

STA 
..STS 
C.URM 
C.XACP 
C.XID 
C.XLEN 
C.XPLI 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
DDCM1 
[)DCM2 
DDCM3 
Di)CM4 
Dl)MDSP 
D$$BUG= 
D$$ISK= 
[)$$Ln  = 
D$$VNC= 


000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

OOC002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000140R 

0001 50R 

0001 50R 

0001 56R 

000206R 

177514 

000000 

000001 

000000 
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D$$VNM= 

000000 

I$$RDN= 

000000 

K$$FCS= 

000000 

E$$XPR= 

000000 

K$$CNT= 

177546 

M$$MGE= 

000000 

FC.CCP= 

000020 

K$$CSR= 

177546 

H$$NET= 

000000 

FC.CTL= 

000006 

K$$LDC= 

000000 

M$$OVR= 

000000 

FC.KCP= 

000016 

K$$TPS^ 

000074 

N$$ACC= 

000001 

FC.KIL= 

000004 

LD$LP  = 

000000 

N$$BUF= 

000001 

FC.MAN= 

000024 

LF.ACr= 

100000 

N$$LDV= 

000001 

FC".MLD= 

000026 

LF.BRO= 

000400 

N$$MCP= 

000001 

FC.PCT= 

000030 

LF.BWT= 

000007 

N$$MLL= 

000001 

FC.PWR= 

000022 

LF.ENA= 

002000 

N$$MOV= 

000010 

FC.RCE= 

000002 

LF.LPB= 

001000 

N$$NCT= 

000001 

FC.RCP= 

000014 

LF.MDC= 

000100 

N$$PEM= 

000001 

FC.TJM= 

000010 

LF.MFL= 

004000 

PR7   = 

*»**♦*  GX 

FC.XCP= 

000012 

LF.MTP= 

000020 

PS 

******  GX 

FC.XME= 

000000 

LF.PAC= 

000200 

P$$P45= 

000000 

FS.AST= 

000000 

LF.RDV= 

040000 

P$$WRD= 

000000 

FS.C]B= 

002000 

LF.REA= 

010000 

Q$$OPT= 

000010 

FS.CRA= 

001000 

LF.SER= 

000040 

R$$DER= 

000000 

FS.DJS= 

013000 

LF.nM= 

000010 

R$$K11= 

000001 

FS.DVC= 

001000 

LF.UNL= 

020000 

R$$SND= 

000000 

FS.ENB= 

012000 

LF.X2P= 

000000 

R$$11M= 

000000 

FS.EXI= 

001000 

LN.CLO= 

000000 

SF.ACr= 

000200 

FS.GET= 

006000 

LN.DUM= 

000005 

SF.ENA= 

000100 

FS.HLT= 

000000 

LN.LOA= 

000004 

SF.LPB= 

000004 

FS.JNI= 

000000 

LN.LOO= 

000003 

SF.MFL= 

000040 

FS.KIL= 

000000 

LN.OAU= 

000003 

SF.PAC= 

000020 

FS.LCL= 

100000 

LN.OFF= 

000001 

SF.REA= 

000010 

FS.LTM= 

001000 

LN.ON  = 

000000 

SF.SER= 

000001 

FS.MNT= 

004000 

LN.OOP= 

000004 

SF.SVC= 

000002 

FS.MSN= 

014000 

LN.OPE= 

000001 

SF.UNL= 

000040 

FS.REA= 

001000 

LN.REF= 

000002 

S$$WRG= 

000000 

FS.RET= 

000000 

LN.SER= 

000002 

S$$YSZ= 

007600 

FS.REZ= 

003000 

LN.STA= 

000017 

S.COST 

000001 

FS.RL8= 

002000 

LN.SUB= 

000360 

S.FLG 

000000 

FS.RNG= 

011000 

LN.TRI= 

000006 

S.LEN 

000004 

FS.RST= 

000000 

L$$ASG= 

000000 

S.NMST 

000002 

FS.RTN= 

001000 

L$$DRV= 

000000 

S . OWNR 

000003 

FS.SET= 

005000 

L$$P11= 

000001 

T$$KMG= 

000000 

FS.SFC= 

005000 

L$$i1R= 

000000 

T$$MIN= 

000000 

FS.SFR= 

006000 

L.COST 

000015 

V$$CTR= 

001000 

FS.SFS= 

004000 

L.CTL 

000012 

X$$DBT=: 

000000 

FS.SPW= 

040000 

L.CVA 

177776 

ZF.COU= 

001000 

FS.ST."1= 

000000 

L.DDM 

000002 

ZF.DDM= 

000001 

FS.STP= 

002000 

L.DDS 

000004 

ZF.DIA= 

004000 

FS.STR= 

001000 

L.DLC 

000003 

ZF.DLC= 

000002 

FS.rRM= 

003000 

L.DLM 

000006 

ZF.DVP= 

100000 

FS.UL6= 

001000 

L.DLS 

000010 

ZF.IN1= 

040000 

FS.XKL= 

002000 

L.FLG 

000000 

ZF.KMX= 

000020 

FS.X0F= 

010000 

L.KRBA 

000016 

ZF.LLC= 

000004 

FS.XON= 

007000 

L.LEN  = 

000022 

ZF.LMC= 

000100 

FS.ZER= 

002000 

L.MPF 

000022 

ZF.MAN= 

020000 

F$$LV1  = 

000001 

L.NMST 

000020 

ZF.MFL= 

000010 

G$$TPP= 

000000 

L.NSTA 

000014 

ZF.MTM= 

000400 

G$$TSS= 

000000 

L.OWNR 

000021 

ZF.MUX= 

000040 

G$$TTK= 

000000 

L.UNT 

000013 

ZF.PSE= 

002000 

G$$WRD= 

000000 

M$$CRB= 

000124 

ZF.SLI= 

010000 

I$$RAR= 

000000 

M$$CRX= 

000000 

ZF.TIM= 

000200 

CEDDM   MACRO  V05.03b  Friday 
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$DD???  -  DLC  TO  DDM  REQUEST! 

17A  OOOOCO 

175  000006 

176 

177  OCOOK 

178 

179  000022 

180  000030 

181  000036 

182  00004A 
185  0000',  2 
18A  000060 
185  000066 
186 

187  00007A 

188  000102 

189  OOOMO 
190 

191  000116 

192  00012A 

193  000132 
19A 
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SDDXME: 
SDDRCE: 


:D[)FDF 
:DDFDF 


FC.XME.SUB 
CC.RCE.SUB 


$DDMAN::DDFDF  FC. MAN, SUB 

SDDXKL::DDFDF  FC.KIL+FS.XKL,CCB 

SDDCRA: :DDFDF  FC.KIL+FS.CRA.CCB 

$DDK1L::DDFDF  FC.KIL+FS.KIL,CCB 

$DDSTR::DDFDF  FC.CTL+FS.STR.CCB 

$DDSTP::DDFDF  FC.CTL+FS.STP.CCS 

$DDGET::DDFDF  FC.CTLtFS.GET,CC8 

$DDSET::DDFDF  FC. CTL+FS.SET.CCB 

$DDRi\G::DDFDF  FC.CTL  +  FS.RNG.MDC 

$DDENB::DDFDF  FC.CTL+FS.ENB.MDC 

$DDDIS::DDFDF  FC.CTL+FS.DIS.MDC 

$DDXON::DDFDF  FC.CTL+FS.XON 

$DDXOF::DDFDF  FC.CTL+FS.XDF 

SDDMSN: :DDFDF  FC. CTL+F S .MSN 


TRANSMIT  ENABLE 
RECEIVE  ENABLE 

NETWORK  MANAGEMENT 

TRANSMIT  KILL 

RECEIVE  KILL 

RECEIVE  AND  TRANSMIT  KILL 

START 

STOP 

GET  CHARACTERISTICS 

SET  CHARACTERISTICS 

LOOK  FOR  RING 
ENABLE  LINE 
DISABLE  LINE 

XQN 

XOFF 

SENSE  MODEM  STATUS 


Cf 
5' 
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H     7 


G     8 

CEODMM 

CREATED  BY 

MACRO     ON  28 

-JUN-85   AT 

18:18 

PAGE   1 

SVMBOL 

■ROSS   REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

C.FNC 

000010 

♦10-281 

•11-350 

*11-361 

•13-456         *14-497 

•14-500 

♦  14-503         ♦U-SIO 

c.l:n 

000006 

10-290 

10-307 

*10-308 

11-365         ♦13-455 

14-506 

15-560 

C.STS 

000012 

*U-514 

DDCMl 

OOOKO  R 

8-191 

8-192 

8-193 

#9-223 

DDCM2 

000150  R 

8-187 

8-188 

8-189 

#10-271 

DDCM3 

00025A  R 

8-179 

8-180 

8-181 

8-182             8-183 

8-184 

8-185          #11-342 

DDCMA 

000262  R 

8-174 

8-175 

8-177 

#11-353 

DDMDSo 

000312  R 

10-309 

11-368 

#12-394 

FC.CCP 

=  000020 

13-456 

14-510 

FC.CTL 

=  000006 

8-182 
8-193 

8-183 

8-184 

8-185             8-187 

8-188 

8-189            8-191 

8-192 

FC.KCP 

=  000016 

14-503 

FC.KIL 

=  000004 

8-179 

8-180 

8-181 

FC.MAN 

=  00002A 

8-177 

FC.RCE 

=  000002 

8-175 

FC.RCP 

-  00001A 

14-500 

FC.XCO 

=  000012 

14-497 

FC.XME 

=  000000 

8-174 

FS.ASI 

=  OOGOOO 

13-456 

FS.CRA 

=  001000 

8-180 

FS.DIS 

=  013000 

8-189 

FS.ENB 

=  012000 

8-188 

FS.GET 

=  006000 

8-184 

FS.KIL 

=  000000 

8-181 

FS.MSN 

=  ouooo 

8-193 

FS.RNG 

=  011000 

8-187 

FS.SET 

=  005000 

8-185 

FS.STP 

=  002000 

»-183 

FS.STR 

=  001000 

8-182 

FS.XKL 

=  002000 

8-179 

FS.XOF 

=  010000 

8-192 

FS.XON 

=  007000 

8-191 

I$SA5 

=  ****** 

5-r 

K$$DAS 

-  ****** 

6-75 

9-223 

10-274 

11-543 

LF.ACT 

=   100000 

*5-68 

LF.BRO 

=  OOOAOO 

*5-68 

LF.BWT 

=  000007 

#5-63 

LF.ENA 

=  002000 

#5-68 

LF.LPB 

=  C01000 

#5-68 

LF.MDC 

=  000100 

#5-68 

10-296 

LF.1FL 

=  OOAOOO 

#5-68 

LF .MTP 

=  000020 

#5-68 

LF.PAC 

=  000200 

#5-68 

LF.-)Y 

=   OAOOOO 

#5-68 

LF.WEA 

=  010000 

#5-68 

LF.SER 

=  ODOOAO 

#5-68 

LF.TIM 

=  000010 

#5-68 

LF.UNL 

=  020000 

#5-68 

LF.X2P 

=  000000 

#5-68 

LN.CLO 

=  000000 

#5-68 

LN.DUM 

=  000005 

#5-68 

LN.LOA 

=  OOOOOA 

#5-68 

CEDDMM 
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236 

237 

238 

239 

2A0 

241 

2A2 

243 

244 

245 

245  . 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 


.SBTTL  DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

••-DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

IF  THE  SPECIFIED  LINE  HAS  MODEM  CONTROL  ENABLED  THE 
FUNCTION  REQUEST  IS  DERAILED  TO  THE  MODEM  CONTROLLER. 
ON  RETURN  FROM  THE  MODEM  CONTROLLER  THE  REQUEST  IS 
ROUTED  TO  THE  PROPER  DDM  AS  USUAL.   IF  THE  LINE  IS 
HARDWIRED  THE  REQUEST  IS  ROUTED  DIRECTLY  TO  THE  DDM. 
INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

R4  =  ADDRESS  OF  CCB 

STACK  CONTAINS: 

OO(SP)  =  CALLER'S  R3 

02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  MODEM  CONTROLLER: 
R3  =  SU6FUNCT10N  CODE 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE 
R4  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

C-BIT  CLEAR  -  FUNCTION  PERFORMED  SYNCHRONOUSLY 

C-8IT  SET  -  WAIT  FOR  ASYNCHRONOUS  REPORT  OF  FUNCTION  COMPLETION 

REGISTERS  ACROSS  CALL: 

R2,R3,R5  -  PRESERVED 
R4       -  MODIFIED 


DDCM2: 


.IF  DF 

X$$MDC 

.IF  DF 

K$$DAS 

MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

.ENDC 

MOV 
MOV 

(R3),C.FNC(R4) 
R2,-(SP) 

.IF  DF 

N$$1LN 

MOV 

$SLTMA,R2 

.IFF 

M0V8 

ASL 

ADD 

C.LIN(R4),R2 

R2 

$SLTMA,R2 

STORE  THE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


PUT  FUNCTION  CODE  IN  CCB 
SAVE  R2 


POINT  INTO  SYSTEM  LINE  INDEX  TABLE 


GET  SYSTEM  LINE  NUMBER 

FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
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MACRO  CROSS  REFERENCE  CREF   04.00 


5-66 


MACRO  NAME 

REFERENCES 

CALLR 

#5-65 

CCBDFt 

#5-64 

DDFDF 

#6-97 

ENABLS 

#5-63 

INHIBS 

#5-63 

PDVDFS 

#5-64 

RESRG 

#5-63 

RETURN 

15-578 

SAyRG 

#5-63 

SLTDFS 

#5-64 

5-67 


5-68 


•*FILE«*1D«*CEDLC 
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CEDLC 

CREATED  BY 

MACRO  ON  28-JUN- 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

Z.SCH 

000007 

#A-63 

SASCMP 

00003A  RG 

#6-U0 

SCCBGT 

-    ,..».«  GX 

6-UO 

SCTCMP 

000056  RG 

*7-178 

SKLCMP 

000076  RG 

#7-181 

SLLCTA 

=  ..»»**  GX 

7-192 

SPDQuE 

=  >«•«*»  GX 

7-208 

SRCCMP 

000106  RG 

#7-184 

SSLTMA 

-  ******  GX 

5-103 

SSTDLC 

000000  RG 

#5-90 

SSTDLI 

000004  RG 

#5-96 

SXMCMP 

000056  RG 

#7-175 

G  11 
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CRE.f   04.00 


CEDLC 
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CELLC 


CREATED  BY  MACRO  ON  28-JUN-85  AT  18:19 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


G  12 

PAGE  2 

CREF   OA.OO 


REFERENCES 


R$$11D 

=       **« t ** 

4-61 

n$iiM 

=  000000 

4-61 

nsiis 

=    ****** 

4-61 

SF.ACT 

=  000200 

#4-62 

SF.ENA 

=  000100 

#4-62 

SF.LPB 

=  OOOOOA 

#4-62 

SF.MFL 

=  000040 

#4-62 

SF.PAC 

=  000020 

#4-62 

SF.REA 

^  000010 

#4-62 

SF.SER 

=  000001 

#4-62 

SF.SVC 

=  000002 

#4-62 

SF.UNL 

=  000040 

#4-62 

S.COST 

000001 

#4-62 

S.FLG 

000000 

#4-62 

5.LEN 

000004 

#4-62 

S.NMST 

000002 

#4-62 

S.OWNR 

000003 

#4-62 

X$$MCB 

=    ****** 

4-61 

ZF.COU 

=  001000 

#4-61 

ZF.DDM 

=  000001 

#4-61 

ZF.DIA 

=  004000 

#4-61 

ZF.DLC 

=  000  02 

#4-61 

ZF.DVP 

=   100000 

#4-61 

ZF.INI 

=  040000 

#4-61 

ZF.KMX 

=  000020 

#4-61 

ZF.LLC 

=  000004 

#4-61 

ZF.LMC 

=  000100 

#4-61 

Zr.MAN 

=  02000O 

#4-61 

ZF.MFL 

=  000010 

#4-61 

ZF.MTH 

=  000400 

#4-61 

ZF.MUX 

=   000040 

#4-61 

ZF.P5E 

=  002000 

#4-61 

ZF.SLI 

=  010000 

#4-61 

ZF.TIM 

=  000200 

#4-61 

ZF.X3P 

=  000000 

#4-61 

ZS.ASN 

=  100000 

#4-61 

ZS.BSY 

=  140000 

#4-61 

Z.AVL 

000014 

#4-61 

Z.DAT 

000015 

#4-61 

Z.DSP 

000000 

#4-61 

Z.FLG 

000010 

#4-61 

Z.LEN 

=  000016 

#4-61 

Z.LLN 

000006 

#4-61 

Z.MAP 

000020 

#4-61 

Z.NAM 

ooooo-. 

#4-61 

Z.PCB 

000012 

#4-61 

Z.SCH 

000007 

#4-61 

SCMPOv 

=    ♦*»*♦»      GX 

5-111 

$DLCRS 

0000Z4   RG 

#6-167 

$LLCAL 

000146  RG 

#7-221 

SLLCLC 

000126  RG 

#7-216 

SLLCRO 

000000  RG 

#5-85 

-61 


7-225 
4-61 


5-117 


7-219 
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CI 
$1 


2 
3 

5 
6 

7 

8 
9 

10 
11 

:2 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
Zi, 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54  000000 


.IIF  NDF  N$$EVL  .TITLE 
.IIF  DF  N$$EVL  .TITLE 
.IDENT  /V05.00/ 


CELOG  -  COMM/tXEC  EVENT  LOGGING  ROUTINES 
CEL0G1  -  COMM/EXEC  EVENT  LOGGING  ROUTINES 


COPYRIGHT  (C)  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FO'  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  EVENT  LOGGING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     30-JAN-80 

3.00     16-APR-82 

DECNET-lIM  V3.1 
DECNET-11M-PLUS   VUI 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF 


.MCALL  PDVDF$,SAVRG,RESRG 
PDVDFS 


DEFINE  DDV  OFFSETS 
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CESCH 
SPDSPL 
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-  SET  UP  A  PROCESS  LEVEL  AND  DISPATCH  TO  IT 


G  H 


CE 


180 
181 
182 
183 
184 
185 
186 
137 
188 
189 
IQQ 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 

203  000052 

204  000060 

205  000062 

206  000066 
207 

208 

209 

210 

211 

212 

213 

214  000070 

215 


.SBTTL   SPDSPL  -  SET  UP  A  PROCESS  LEVEL  AND  DISPATCH  TO  IT 

»*-$PDSPL-SET  UP  A  PROCESS  LEVEL  AND  DISPATCH  TO  IT 

This  subroutine  is  called  to  set  up  the  level  of  a  process 

and  dispatch  to  it.  This  routine  assumes  that  the  stack  is  formatted 

properly  for  a  pass  throjgh  the  scheduler  when  the  dispatched  process 

exits. 

Inpu*'s: 

R2  =  PDV  index  (word  index) 

K3  =  Address  of  function  code 

R4  =  Address  of  a  CCB  (optional) 

R5  =  Address  of  a  Line  Table  (optional) 

Outputs: 

The  new  process  execution  priority  is  established  and  dispatch 
is  performed  by  the  routine  'SPDDSP'. 


010201 
066701 
011101 


SPDSPL: 


COOOOOG 


:MTPS 

*PR7 

MOV 

R2,R1 

ADD 

$PDVTA,R1 

MOV 

(R1),R1 

.IF  DF  L$$SI1 
MFPS    -(SP) 
BIC8    Z.SCH(RI), 
MTPS    (SP)+ 


(SP) 


146167  000007  OOOOOOG 


.IFF 
81 CB 
.ENDC 


;;  DF  L$$SI1 
Z.SCH(R1),PS 
;;  DF  L$$SI1 


Disable  Interrupts 

Copy  PDV  Index 

Point  into  PDV  Index  Table 

Get  address  of  process'  PDV 


Get  current  priority  leuel 
Set  priority  of  process 


Set  priority  of  process 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
11 
42 
13 
11 
15 
16 
17 
18 
19 
50 
51 
52 
53 
51 
55 
56 
57 


.IIF  NDF  R$$E1S  .TITLE  CESUB 
,JIF  DF  R$$EIS   .TITLE  CESU81 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,1981,  1982,  1983, 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 


1985  BY 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  8E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  ANu  .'ITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION 

CEX  SUBROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FE8-78 

VERSION  2.0  RELEASE 

2.00  11-DEC-79 

DECNET-11M/S  V3.0 
DECNET-ilM-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

1.00  07-NOV-83 

DECNET-11M  VI. 0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  VI. 2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI .0 
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515 
516 
517 
518 
519 
520 
521 
522 
523 
52^. 
525 
526 
527 
528 
529 
53C 
531 
532 
533 
53-!. 
535 


.IF  DF  M$$PRO 

.SBTTL  SMPLCK  -  MULTI-PROCESSOR  LOCK  ROUTINE 

»*-$MPLCK-MULTl-PROCESSOR  LOCK  ROUTINE 

THIS  ROUTINE  WILL  PERFORM  A  SPIN  LOCK  ON  THE  COMMEXEC  LOCK  (SCRESL) 
AND  THEN  CO-CALL  THE  CALLER.  ON  RETURN  IT  WILL  UNLOCK  THE  COMMEXEC 
LOCK  AND  RETURN.  NOTE  THAT  WE  PERFORM  THE  LOCK  OPERATION  OURSELVES 
SO  THAT  WE  CAN  CORRECTLY  MANIPULATE  THE  CACHE. 


SMPLCK: :ASRB  SCRESL 

BCC  SMPLCK 

CACHES  FLUSH 

CALL  a(SP)+ 

M0V8  #1, SCRESL 

RETURN 


SPIN  ON  THE  LOCK 

UNTIL  WE  HAVE  ACCESS 
FLUSH  THE  CACHE  OF  STALE  DATA 

CO-CALL  THE  CALLER  BACK 

RESET  THE  LOCK 


H  16 
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109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 

132  000026  026767 

133  000034  103003 

134  000036  0C.-267 

135  000042 


.SBTTL  SLDBGT  -  Get  a  Large  Data  Buffer 
•*-$LDBGI-  Get  a  Large  Data  Buffer 


This  subroutine  is  called  to  allocate  a  fixed  length 
Buffer.  Large  Data  Buffers  come  out  of  the  same  pool 


Large  Data 

.,_.  ,  ycjLa  Duller  Luriic  uuL  ui  LUC  same  pooL  as  Heceive 

Data  Buffers.  The  difference  is  that  Large  Data  Buffers  are  for 
use  by  non-DDM  processes  and  there  must  be  a  minimum  number  of 
buffers  remaining  in  the  pool  or  the  allocation  will  fail.  The 
minimum  number  reserved  for  DDM  processes  is  the  RDB  threshold. 


Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  buffers  allocated  CCB 

C-Bit  is  CLEAR  if  the  CCB/LDB  was  successfully  allocated 

C-8it  is  SET  and  R4=0  if  the  allocation  failed 


Note: 


The  caller's  APR6  is  preserved  across  this  call. 


OOOOOOG  OOOOOOG  $LDBGT::CMP  $RD8CT,$RDBTH 

BHJS  SRDBGT 

OOOOOOG  INC  SLDBAF 

RETURN 


Is  pool  minimum  threshold  exceeded? 
If  HIS,  No  ...  go  allocate  buffer 
Increment  count  of  allocation  failures 
Return  with  C-8it  SET 
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600 
601 
602 
603 
60^ 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 


000670  005225 

000672 

000676 

000702  012512 

000704  012562  000002 

000710 

00071A  010245 

000716  010345 

000720 


-SBTTL  BUFRT   -  General  Buffer  Deallocation  Routine 

**-BUFRT-  General  Buffer  Deallocation  Routine 

This  routine  is  called  within  this  module  to  deallocate  a  buffer 
to  a  double^  linked  list.  This  routine  is  always  called  with 
interrupts  inhibited  (and  Multi-Processor  locks  set). 

Inputs: 

R2  contains  the  Virtual  Address  of  buffer 

R3  contains  the  APR  Bias  of  buffer 

R5  points  to  the  buffer  count  in  allocation  control  block 


Increment  count  of  available  buffers 
Save  current  APR6  mapping 
Map  APR6  to  the  buffer  being  returned 
Link  buffer  to  start 

of  the  free  list 
Restore  APR6  mapping 
Set  new  first  buffer 

pointer 


Outputs: 

None. 

FRT:   INC 

(R5n 

SAVMAP 

MAP 

R3 

MOV 

(R5)+,(R2j 

MOV 

(R5)+,2(R2) 

RESMAP 

MOV 

R2,-(R5) 

MOV 

R3,-(R5) 

RETURN 
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109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 

132  000026 

133  000034 

134  000036 

135  000042 


.SBTTL  $LD8GT  -  Get  a  Large  Data  Buffer 

**-$LD8GT-  Get  a  Large  Data  Buffer 

This  subroutine  is  called  to  aHocate  a  fixed  length  Large  Data 
Buffer.  Large  Data  Buffers  come  out  of  the  same  pool  as  Receive 
Data  Buffers.  The  difference  is  that  Large  Data. Buffers  are  for 
use  by  ncn-DDM  processes  and  there  must  be  a  minimum  number  of 
buffers  remaining  in  the  pool  or  the  allocation  will  fail.  The 
minimum  number  reserved  for  DDM  processes  is  the  RDB  threshold. 

Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  buffers  allocated  CCB 

C-Bit  is  CLEAR  if  the  CCB/LDB  was  successfully  allocated 

C-Bit  is  SET  and  R4=0  if  the  allocation  failed 


Note: 


The  caller's  APR6  is  preserved  across  this  call. 


026767  OOOOOOG  OOOOOOG  $LDBGT::CMP  $RDBCT,$RDBTH 

103003  BHIS  SRDBGT 

005267  OOOOOOG  INC  ILDBAF 

RETURN 


Is  pool  minimum  threshold  exceeded? 
If  HIS,  No  ...  go  allocate  buffer 
Increment  count  of  allocation  failures 
Return  with  C-Bit  SET 
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CEBUF1  - 
BUFRT 

600 
601 
602 
603 
60^ 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6K 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62A 
625 
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0010^6  005225 

001050 

00105A 

001060  012512 

001062  012562  000002 

001066 

001072  0102A5 

00107A     010345 

001076 


.SBTTL  BUFRT   -  General  Buffer  DeaUocation  Routine 

**-BUFRT-  General  Buffer  DeaUocation  Routine 

This  routine  is  called  within  this  module  to  deallocate  a  buffer 
to  a  double^  linked  list.  This  routine  is  always  called  with 
interrupts  inhibited  (and  Multi-Processor  locks  set). 

Inputs: 

R2  contains  the  Virtual  Address  of  buffer 

R3  contains  the  APR  Bias  of  buffer 

R5  points  to  the  buffer  count  in  allocation  control  block 


Increment  count  of  available  buffers 
Save  current  APR6  mapping 
Map  APR6  to  the  buffer  being  returned 
Link  buffer  to  start 

of  the  free  list 
Restore  APR6  mapping 
Set  new  first  buffer 

pointer 


Outputs: 

None. 

FRT:   INC 

(R5)  + 

SAVMAP 

MAP 

R3 

MOV 

(R5)+,(R2) 

MOV 

(R5)+,2(R2) 

RESMAP 

MOV 

R2,-(R5) 

MOV 

R3,-(R5) 

RETURN 

CEBufi  -  CEX  BU'^FER  MANAGEMENT  MACRO  V05.03b  Friday  28-Jun-85 
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116 

117 

118 

119 

120 

121 

122 

123 

12^ 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

HI 

U2 

143 

144 

K5 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 


.IF  NDF  X$$NDM 

.SBTTL  $DD???  -  DLC  TO  DDM  REQUESTS 


GENERAL  REQUESTS  WITH  CCB 


FORMAT  OF  CALL: 

CALL    $DD??? 

INPUTS: 


R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

(ALL  CCBS  MUST  CONTAIN  A  VALID  SLN) 

OUTPUTS  TO  DDM: 

R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

R5  =  ADDRESS  OF  DDM  LINE  TABLE 

R2  8  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTERS  ACROSS  CALL: 

RO.RI  -  MUST  BE  PRESERVED  BY  DDM  IF  USED 
R2,R3,R5  -  PRESERVED  BY  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN  TO  DLC: 

C-8IT  CLEAR  -  REQUEST  HAS  COMPLETED  SYNCHRONOUSLY 
R4  =  ADDRESS  OF  CCB 

C-8IT  SET  -  REQUEST  WILL  COMPLETE  ASYNCHRONOUSLY 
R4  =  0 


SPECIAL  REQUESTS  WITHOUT  CCB 
FORMAT  OF  CALL: 


CALL 


$DD? 


INPUTS: 


R3  =  SYSTEM  LINE  NUMBER 

R4  =  OPTIONAL  CALLING  PARAMETER  TO  DDM 

OUTPUTS  TO  DDM: 

R4  =  OPTIONAL  CALLING  PARAMETER  FROM  DLC 

R5  =  ADDRESS  OF  DDM  LINE  TABLE 

R2  £  R3  -  AVAILABLE  FOR  USE  WITHOUT  SAVING 

REGISTERS  ACROSS  CALL: 

R0,R1  -  MUST  BE  PRESERVED  BY  DDM  IF  USED 
R2,R3,R5  -  PRESERVED  BY  COMM  EXEC 
R4  -  MAY  BE  MODIFIED 

ON  RETURN  TO  DLC: 

C-BIT  ALWAYS  CLEAR 

R4  -  OPTIONAL  RETURNING  PARAMETER  FROM  DDM 


CEDDM   MACRO  V05.03b  Fridaj 
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CE 
DD 


ZF.X3P= 

000000 

Z.MAP   000020 

SDDDIS 

000110RG 

SDDRNG 

000074RG 

SDDXON 

0001 16RG 

2S.ASN= 

100000 

Z.NAM   000004 

SDDENB 

000102RG 

$DDSET 

000066RG 

SLLCSP 

000374RG 

ZS.BSY= 

KOOOO 

Z.PCB   000012 

SDDGET 

000060RG 

$DDSPC 

000374RG 

$PDDSP= 

******  GX 

Z.AVL 

00001 A 

Z.SCH   000007 

SDDKCP 

000344RG 

SDDSTP 

000052RG 

$PRQU1= 

*  ****  GX 

Z.DAT 

000016 

$CCBGT=  •***»*  GX 

SDDKIL 

000036RG 

SDDSTR 

000044RG 

$PDVTA= 

******  GX 

Z  DSP 

000000 

$CCBRT=  ******   GX 

SDDMAN 

OOOOHRG 

SDDXKL 

000022RG 

$SLTMA= 

******  GX 

Z.FLG 

000010 

SDOAST  000274RG 

SDDMSN 

000132RG 

SDDXME 

OOOOOORG 

SSTDDM 

000404RG 

Z.LEM  = 

000016 

SDDCCP  000354RG 

SDDRCE 

000006RG 

SDDXMP 

000324RG 

SSTDDl 

000410RG 

Z.LLN 

000006 

SDDCRA  000030RG 

SDDRCP 

000334RG 

r.DDX0F 

000124RG 

.$$$$.= 

000034 

.  A8S. 

177776 
000432 

OCO 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

Assembler  statistics 


work   file  reads:  9 

Work   file  writes:  12 

Size  of  work  file:  17461  Words 

Size  of  core  pool:  17608  Words 

Operating  system:  RSX-llM/PLUS 


(  69  Pages) 
(  67  Pages) 
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196 

197 

198 

199 

200 

201 

202 

203 

20^ 

205 

206 

207 

208 

209 

210 

211 

212 

213 

21A 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

23^ 

232 

233 

23A 


.SBTTL  DDCM1  -  COMMON  PROCESS  FOR  SPECIAL  NON-CCB  FUNCTIONS 

**-DDCM1  -  COMMON  PROCESS  FOR  SPECIAL  NON-CCB  FUNCTIONS 

INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

RA  =  UNSPECIFIED  CALLING  PARAMETER  TO  DDM 

STACK  CONTAINS: 

OO(SP)  =  LINE  NUMBER  (ORIGINALLV  IN  R3) 
02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  DDM: 

R3  =  SU8FUNCTI0N  CODE  (WORD  INDEX) 
R4  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

FUNCTION  HAS  BEEN  PERFORMED 

R4  =  UNSPECIFIED  RETURN  PARAMETER  TO  DLC  FROM  DDM 

REGISTERS  ACCROSS  CALL: 
R2,R3,R5  PRESERVED 
RA       MAy  BE  MODIFIED  BY  DDM 


ooouo 


OOOUC  0102A6 

000U2  016602  000002 

000U6  OOOA52 


.ENA8L  LSB 
DDCM1:   .IF  DF   K$$DAS 


MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

.ENDC 

MOV 
MOV 
BR 

fi2,-(SP) 
2(SP),R2 
22$ 

STORE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


SAVE   R2 

GET   LINE   NUMBER 

JOIN   COMMON  CODE    TO  DISPATCH    TO  DDM 
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SYMBOL  VALUE 


LN.LOO 
LN.OAU 
N.OFF 
LN.ON 
LN.OOP 
LN.OPE 
LN.REF 
LN.SER 
LN.STA 
LN.SUB 
LN.TR! 
L$$SI1 
L.C05T 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
M$$PRO 
N$$1LN 
PR7 
PS 

R$$11D 
R$$11M 
R$$11S 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
SF.SER 
SF.SVC 
SF.UNL 
S.COST 
S.FLG 
S.LEN 
S . NMS  T 
S.OWNR 
Xt$MCB 
XSSMDC 
X$$NDM 


=  000005 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
=  000002 
=  000002 
=  000017 
=  000360 
=  000005 

r  ****** 

000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
-  000022 
000022 
000020 
000014 
000021 
000013 

3  ****** 
-   ****** 

=  ******   GX 
=  ******   QX 

-r  ****** 

=  000000 

::   ****** 

=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 

000001 

000000 

000004 

000002 

000003 

r  ****** 

=  000001 


REFERENCES 

#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 

12-406 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 

14-516 

10-284 

12-404 

12-396 

5-67 

5-67 

5-67 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 

5-67 
#4-2 

5-1 


15-577 
15-576 


15-558 
*12-404 


15-564 
02-414 


•12-421 


5-67 

5-2 

5-3 


5-3 

7-116 


10-272 
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293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 


.ENOC 


BII 

*LF.MDC,a(R2)+  ; 

BED 

20$ 

MOV 

R5,-(SP) 

MOV 

R3,-(SP) 

CLR 

R2 

MOV 

a$PDVTA,P5     ; 

MOV 

Z.DAT(R5),R5    ; 

CALL 

SPDDSP 

MOV 

(SP)+,R3 

MOVB 

C.LIN(R4),R2    ; 

BIS 

#100000, C.LIN(R4) 

CALL 

DDMDSP 

BCS 

25$           ; 

CALL 

$CC8RT 

CLR 

Rl            ; 

SEC 

BR 

25$ 

.ENDC 


DOES  LINE  NEED  MODEM  CONTROL? 

NO  -  JOIN  COMMON  CODE  TO  DISPATCH  TO  DDM 

SAVE  REGISTER 

SAVE  ADDRESS  OF  FUNCTION  CODE 

GET  AUXILARY  PROCESS  PDX  INDEX  (ALWAYS  0) 

GET  ADDRESS  OF  AUXILARY  PROCESS'  PDV 

THAT  WORKS  SINCE  IT'S  PDV  INDEX  =  0 

GET  ADDRESS  OF  DATA  BASE  DESCRIPTOR  BLOCK 

DISPATCH  TO  MODEM  CONTROLLER 

RESTORE  R3 

OBTAIN  LINE  NUMBER  (NO  SIGN  EXTENSION) 

;  INDICATE  MODEM  CONTROL  RE(3UEST 

DISPATCH  TO  THE  DEVICE  DRIVER  (DDM) 

REQUEST  WILL  COMPLETE  ASYNCHRONOUSLY 

OTHERWISE  RETURN  CCB  TO  POOL 

MODEM  CONTROLLER  WILL  RETURN  ASYNCHRONOUS  COMPLETION 

SET  C-81T,  LINE  IS  MODEM  CONTROLLED 

JOIN  COMMON  CODE 
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cccccccc 

EEEEEEEEEE 

DDDDDDDD 

LLLLLLLLLL 

cccccccc 

SSSSSS5S 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 
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PAGE  A 

CREF   04.00 


MACRO  NiAME 

REFERENCES 

CALL 

6-UO 

7-208 

CALLR 

#<;-6i 

CCBDFt 

#A-60 

4-62 

=DVDFS 

#A-60 

4-63 

RESRG 

#4-50 

RETURN 

5-112 

7-211 

SAVRG 

#4-59 

SLTDFS 

#4-60 

4-64 

*«FILE»«ID«*CELLC 
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CREF       OA.OO 


CI 


SYMBOL      VALUE 


SLLCRS 
tPii'iCRS 
IPDDSP 
SPDQUI 
SPDSPL 
SPDVTA 
SSTDLC 


00007A  RG 
00007A  RG 
♦»♦♦»»  GX 
••*»*♦  GX 
♦  «»■»*»  GX 
♦»**•»  GX 
«♦*•*»      GX 


REFERENCES 

#6-168 
#6-174 

7-227 

6-178 

5-121 

5-112 

5-120 


7-223 
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CEL0G1  -  COMM/EXEC  EVENT 
LOG  NETWORK  EVENT 

56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
7? 
73 
74 
75 
•r6 

n 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 


000000 

000000  016702  OOOOOOG 

000004  001417 

000006  016746  OOOOOOG 

000012  010346 

000014  010146 

000016  010601 
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?i 

ge  6 

.SBTTL  LOG  NETWORK  EVENT 

**-$CELOG-LOG  NETWORK  EVENT 

INPUTS: 

RO  -  EVENT  CLASS  AND  TYPE 

R1  -  EVENT  CONTROL  WORD: 

LOW  BYTE: 

BIT   0 

1  =>  R4  IS  ADDRESS  OF  A  CCB 
0  =>  R4  IS  A  DATA  AREA  POINTER 

1  =>  LINE-ID  IS  SLN  8  STATION 
0  =>  LINE-ID  IS  PDV  8  CHANNEL 

1  =-  EVENT  IS  ASSOCIATED  WITH  A  LINE 

0  ='   EVENT  IS  NOT  ASSOCIATED  WITH  A  LINE 

1  =>  EVENT  IS  ASSOCIATED  WITH  A  REMOTE  NODE 

0  ->   EVENT  IS  NOT  ASSOCIATED  WITH  A  REMOTE  NODE 

1  =>  EVENT  IS  ASSOCIATED  WITH  A  CIRCUIT 

0  =>  EVENT  IS  NOT  ASSOCIATED  WITH  A  CIRCUIT 

1  =>  EVENT  IS  ASSOCIATED  WITH  A  MODULE 

0  ->   EVENT  IS  NOT  ASSOCIATED  WITH  A  MODULE 

1  =>  USE  LINE-ID  FROM  CCB 

0  =>  USE  LINE-ID  FROM  EVENT  DESCRIPTOR  BLOCK 

HIGH  BYTE: 

#  OF 

BYTES  OF  DATA  TO  COPY 

R3  -  POINTER  TO  EVENT 

DESCRIPTOR  BLOCK: 

WORD  1 
;                 2-4 
5 
6 

i               \ 

LINE-ID  (SLN  I   STATION  OR  PDV  %   CHANNEL) 

EVENT  DEPENDENT  DATA 

NODE  ADDRESS 

MODULE  ID  (CODED  VALUE) 

PORT  # 

LOGICAL  CHANNEL  # 

';                 R4  -  POINTER  TO  CCB  OR 

)ATA  AREA  POINTER 

•  REGISTERS  MODIFIED: 

RO,  R1,  R2,  R3,  R5 

icELOG::.lF  OF   N$$EVL 

MOV     $LGPDV,R2 
BEQ     10$ 

;  GET  PDV  INDEX  OF  LOGGING  PROCESS 
;  IF  EQ,  NO  LOGGING 

MOV     $CMPDV,-(SP) 
MOV     R3,-(SF) 
MOV     R1,-(SP) 
MOV     SP,R1 

;  SAVE  CALLK.'G  PROCESS  PDV  INDEX 

;  SAVE  ADDRESS  OF  EVENT  DESCRIPTOR  BLOCK 

;   AND  EVENT  CONTROL  WORD 

;  SET  UP  POINTER  TO  CONTROL  BLOCK 

CI 

$[ 
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CE 


217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
251 
232 
233 
234 
235 
236 
237 
238 
239 
240 

241  000076 

242  000076 

243  000102 

244  000106 

245  000112 
2'.6  000114 
247  000120 
248 

249 
250 
251 
252 
253 
254 

255  000124 

256  000130 

257  000132 

258  000154 

259  000136 

260  000142 

261  000144 

262  000146 
263 

264 
265 
266 
267 
268 

269  000150 

270  000154 

271  000160 

272  000164 
273 


.SSTTL  SPDDSP  -  DISPATCH  TO  A  PROCESS 


016746  OOOOOOG 

010267  OOOOOOG 

066702  OOOOOOG 
011202 

016746  OOOOOOG 

016746  OOOOOOG 


012267  OOOOOOG 
011246 
112502 
062602 
032712  000OO1 


001011 
112303 


012667  OOOOOOG 
C12667  OOOOOOG 
012667  OOOOOOG 


•*-$PDDSP-DISPATCH  TO  A  PROCESS 

Inputs: 

R2  =  PDV  Index  (word  index) 

R3  =  Address  of  function  code 

R4  =  Address  of  a  CC8  (optional) 

R5  =  Address  of  a  process  Line  table  (optional) 

Outputs  to  the  Process: 

Based  on  the  PDV  Index  in  R2,  the  process  is  entered  at  the 

entry  point  specified  by  the  function  code  pointed  to  by  R3 

with: 

R3  =  Subfunction  code  (word  index) 

R4  =  Address  of  a  CCB  (optional) 

R5  =  Address  of  process  line  table  (optional) 

R2  through  R5  need  not  be  preserved  by  the  called  process 


ref  label 

Save  Current  Process  PDV  Index 

Load  new  Process  PDV  Index 

Point  into  PDV  Index  Table 

Get  PDV  Address 

Save  current  Kernel  APR  6 

Save  current  process  mapping 

Save  instruction  APR'S 

Map  process  in  both  I  and  D  space 


Map  to  process 

Save  address  of  dispatch  table 

Get  function  code  (no  s'gn  extend) 

Form  address  of  entry  in  dispatch  table 

Is  this  a  dispatch  to  an  odd  address? 

If  NE,  yesi  -  bad  dispatch. 

Set  up  subfunction  code 

Call  process 


SPDDSP:: 

MOV 

$CMPDV,-(SP) 

MOV 

R2,$CMP0V 

ADD 

$PDVTA,R2 

MOV 

(R2),R2 

MOV 

KISAR6,-(SP) 

MOV 

K1SAR5,-(SP) 

.IF  OF 

K$$DAS 

MOV 

KINAR6,-(SP) 

MOV 

K1NAR5,-(SP) 

MOV 

(R2),KINAR5 

.ENDC 

;  DF  K$$DAS 

MOV 

(R2)+,KISAR5 

MOV 

(R2),-(SP) 

Move 

(R3)+,R2 

ADD 

(SP)t,R2 

BIT 

#1.(rJ) 

BNE 

lOi 

MOVB 

(R3)+,R3 

CALL 

S(R2)t 

.IF  DF 

K$$DAS 

MOV 

(SP)+,KINAR5 

MOV 

(SP)+,KINAR6 

.ENDC 

;  DF  KSIDAS 

MOV 

(SP)+,KISAR5 

MOV 

(SP)+,KISAR6 

MOV 

(SP)t,$CMPDV 

RETURM 

Restore  instruction  APRs 


Restore  previous  process  mapping 
Restore  previous  APR  6  contents 
Restore  previous  process  PDV  index 
And  return  to  caller 


.n-o";  1  a  .  3n 
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I 
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58 

59 

60 

61 

62 

63  000000 

6A  000000 

65  COOCOO 

66 


MACRO  LIBRARY  CALLS 


.MCALL 
.MCALL 
.MCALL 
CCBDFS 
PDVDFS 
CLKDFS 


INHie$,ENABL$,SAVRG,RESRG 
CC8DF$,PDVDF$,CLK;DF$ 


CALLR 


AVOID  SYSTFM  DEPENDENCY 
DEFINE  THE  CCB  OFFSETS 
DEFINE  THE  PDV  OFFSETS 
DEFINE  CLOCK  BLOCK  OFFSETS 


J 
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557 
538 
539 
5A0 
5^1 
5A2 
5A3 
5'.'. 
51,5 
5A6 
5A7 
5A8 
5A9 
550 
551 
552 
553 
554 
555 
556 


.SaTTL  SMPSAV  -  BYPASS  CACHE  WITH  SAVE  AND  RESTORE 

•*-$MPSAV-BVPASS  CACHE  WITH  SAVE  AND  RESTORE 

THIS  ROUTINE  WILL  SAVE  THE  CURRENT  STATE  Of  THE  CACHE  AND  BYPASS 
IT  BEFORE  CO-CALLING  THE  CALLER.  ON  RETURN  IT  WILL  RESTORE  THE 
INITIAL  STATE  OF  THE  CACHE. 


SAVE  CURRENT  STATE  OF  fACHE 

CO-CALL  THE  CALLER 
OVERWRITE  RETURN  LINK 

RESTORE  THE  CACHE 


000001 


ImPSAV: 

:CACHE$ 

SAVE 

CALL 
MOV 

a2(SP) 
(SP)+,2(SP) 

CACHES 
RETURN 

UNSAVE 

.ENDC 

;    DF    MSSPRO 

* 

.END 

I  16 


EBUf  - 
SRDBGT 

137 

138 

139 

KG 

U1 

142 

K3 

UA 

1A5 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

16^^ 

17 

1 1 1 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 
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.SBTTL  $RDBGT  -  Get  a  Receive  Data  Buffer 
•*-$RDBGT-  Get  a  Receive  Data  Buffer 


This  subroutine  is  caUed  to  allocate  a  fixed  length  Receive 
Data  Buffer. 


Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  allocated  buffer's  CCB 

C-8it  is  CLEAR  if  the  CCB/RDB  was  successfully  allocated 

C-Bit  is  SET  and  R4=0  if  the  allocation  failed 


Note: 


The  caller's  APR6  is  preserved  across  this  call. 


000044 
000050 

000056  000241 
000060 


000072 
000076 

000100 
000106 
000114 
000122 
000130 
000134 
000140 

000142 
000146 
000150 


000150 
000154 
000162 
000166 


103424 

012764 
112764 
016764 
016764 
012705 

103003 
005004 


100000  000022 

000004  000003 

OOOOOOG  000020 

OOOOOOG  000030 
OOOOOOG 


SRDBGT: :SAVMAP 
SAVRG 
CLC 
INHI8$ 

<R2,R3,R5> 

.IF  W 

CALL 

.ENDC 

M$$PRO 
SMPLCK 

CALL 
BCS 

CCBGT         ;; 
10$ 

MOV 

MOVB 

MOV 

MOV 

MOV 

CALL 

BCC 

*CF.LB,C.FLG(R4) 

#C8.RDB,C.BID(R4 

$RDBSZ,C.CNT(R4J 

$RDBSZ,C.CNT2(R4 

#$RDBLH,R5 

BUFGT 

10$ 

CALL 
CLR 
10$: 

.IF  DF 

CALL 

.ENDC 

CC8RT         ;; 
R4            ;; 

MSSPRO 
a(SP)t 

ENABL$ 
RESRG 
RESMAP 
RETURN 

<R5,R3,R2> 

Save  current  mapping 

Save  some  registers 

Assume  successful 

;  Inhibit  Interrupts  (and  save  C-Bit) 


Lock  access  to  CommExec  resources 


Allocate  a  CCB 

If  CS,  None  available 

Set-up  last  buffer  indicator 
and  buffer  ID  fields  in  CCB 
Load  size  of  RDB/LDB 

Point  to  listhead  in  allocation  crtl  block 
Allocate  a  Large  Data  Buffer 
If  CC,  Successful 

Else,  release  the  CCS 
No  CCB  available 


Co-Routine  return  to  unlock  resources 


Enable  Interrupts  (and  lead  final  C-Bit) 
Restore  registers 
Restore  mapping 
Return  to  caller 
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BUFRT   -  General  Buffer  Deallocation  Routine 

62^  000001  .END 
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Symbol   table 


CEBUF1  - 
SRDBGT  • 

137 

138 

139 

KO 

Ul 

142 

K3 

1A4 

U5 

H6 

1A7 

U8 

149 

15C 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

1/1 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 
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.SBTTL  SRDBGT  -  Get  a  Receive  Data  Buffer 

•*-$RD8GT-  Get  a  Receive  Data  Buffer 

This  subroutine  is  called  to  allocate  a  fixed  length  Receive 
Data  Buffer. 

Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  allocated  buffer's  CCB 

C-8it  is  CLEAR  if  the  CCB/RDB  was  successfully  allocated 

C-Bit  is  SET  and  R4=0  if  the  allocation  failed 


000044 

000050 

000056  000241 

000060 


000072 

000076  103424 

000100  012764  100000  000022 

000106  112764  000004  000003 

000114  016764  OOOOOOG  000020 

000122  016764  OOOOOOG  000030 

000130  012705  OOOOOOG 

000134 

000140  103003 

000142 

000146  005004 

000150 


000150 
000154 
000162 
C00166 


Note: 


SRDBGT: 


10$: 


The  caller's  APR6  is  preserved  across  this  call. 


SAVMAP 
SAVRG 
CLC 
INHIBS 

<R2,R3,R5>      • 

.IF  DF 

CALL 

.ENDC 

MSSPRO 
SMPLCK 

CALL 
BCS 

CC8GT 
10S 

MOV 

M0V8 

MOV 

MOV 

MOV 

CALL 

BCC 

#CF.LB,C.FLG(R4) 

#C8.RDB,C.BID(R4) 

SRDBSZ,C.CNT(R4) 

$RDBSZ,C.CNT2(R4) 

#$RD8lH,R5 

BUFGT 

10S 

CALL 
CLR 

CC8RT 
R4 

.IF  DF 

CALL 

.ENDC 

MSSPRO 
a(SP)t 

ENA6LS 
RESRG 
RESMAP 
RETURN 

<R5,R3,R2>     ; 

Save  current  mapping 
Save  some  registers 
Assume  successful 
;;  Inhibit  Interrupts  (and  save  C-Bit) 


Lock  access  to  CommExec  resources 


Allocate  a  CCB 

If  CS,  None  available 

;  Set-up  last  buffer  indicator 
;  and  buffer  ID  fields  in  CCB 
;  Load  size  of  RDB/LDB 

...  Point  to  listhead  in  allocation  crtl  block 
;;;  Allocate  a  Large  Data  Buffer 
If  CC,  Successful 

Else,  release  the  CCB 
No  CCB  available 


Co-Routine  return  to  unlock  resources 


Enable  Interrupts  (and  load  final  C- 
Restore  registers 
Restore  mapping 
Return  to  caller 


Bit) 
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62' 


000001 


.END 
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17A  000000 

175  000006 

176 

177  OOOOU 

178 

179  000022 

180  000030 

181  000036 

182  0000A4 
185  000052 
18^;  000060 
185  000066 
186 

187  00007A 

188  000102 

189  ooono 

190 

191  000116 

192  00012A 

193  000132 
19A 
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SDDXME: 
SDDRCE: 


;DDFDF 
rDDFDF 


FC.XME,SUB 
FC.fiCE,SUB 


SDDMAN:  :DDFDF  FC. MAN, SUB 

$DDXKL::DDFDF  FC.KIL+FS.XKL.CCS 

$DDCRA::DDFDF  FC.KIL+FS.CRA.CCB 

$DDK]L::DDFDF  FC.KIL+FS.KIL.CCB 

$DDSTR::DDFDF  FC.CTLtFS.STR.CCB 

$DDSTP::DDFDF  FC.CTL*-FS.STP,CCB 

$DDGEr::DDFrif  FC.CTLtFS.GET.CCB 

$DDSET::DDFDF  FC.CTL+FS.SET.CCe 

$DDRNG::DDFDF  FC. CTLtFS.RNG,MDC 

$DDENS::DDFDF  FC.CTL+FS.ENB.MDC 

$DDDJS::DDFDF  FC.CTL+FS.DIS.MDC 

$DDX0N::DDFDF  FC.CTL+FS.XON 

SDDXOF: rDDFDF  FC.CTL+FS.XOF 

$DDMSN::DDFDF  FC . CTL tFS.MSN 


TRANSMIT  ENABLE 
RECEIVE  ENABLE 

NETWORK  MANAGEMENT 

TRANSMIT  KILL 

RECEIVE  KILL 

RECEIVE  AND  TRANSMIT  KILL 

START 

STOP 

GET  CHARACTERISTICS 

SET  CHARACTERISTICS 

LOOK  FOR  RING 
ENABLE  LINE 
DISABLE  LINE 

XON 

XOFF 

SENSE  MODEM  STATUS 
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CREF   0'!,.00 


CE 
DD 


SYMBOL  VALUE 


C.FNC 

C.LIN 

C.STS 

DDCM1 

DDCM2 

DDCM3 

DDCM^ 

DDMDSF 

FC.CCP 

FC.CTL 

FC.KCP 
FC.KIL 
F C.MAN 
FC.RCE 


RCP 
XCP 
XME 
AST 


FS.CRA 
FS.OIS 
FS.ENB 
FS.GET 
FS.KIL 
FS.MSN 
FS.RNG 
FS.SET 
FS.STP 


,5TR 
,X<L 
.XOF 
.XON 


I$$AS 

K$$DAS 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 


TIM 
UNI 
X?P 
CLO 
DUM 
LOA 


000010 
000006 
000012 
OOOUO  R 
000150  R 
000150  P 
000156  R 
000206  R 
=  000020 
=  000006 

=  000016 
=  OOOOOA 
=  00002A 
=  000002 
=  OOOOK 
=  000012 
=  000000 
=  000000 
=  001000 
=  013000 
=  012000 
=  006000 
=  000000 

=  ouooo 

=  011000 
=  005000 
=  002000 
=  001000 
=  002000 
=  010000 
=  007000 

;:  ****** 
-      ****** 

=  100000 

=  000400 

=  000007 

=  002000 

=  001000 

=  000100 

=  004000 

=  000020 

=  000200 

=  040000 

=  010000 

=  000040 

=  000010 

=  020000 

=  000000 

--  OOOOOG 

=  000005 

=  000004 


REFERENCES 


•10 
10' 

♦13 
7- 
7- 
7 
7' 
10 
12 
?■ 
7- 
13 
7 
7 

7- 
13' 
13 
7- 
12 
7 
7' 
7 
7 
? 

7- 
7- 
7- 
7- 
7- 
7 
7' 
7' 
4' 
5 

#4 

#4 

*4 

#4 

*4-i 

#4-1 

#4 

#4 

#4 

*4 

*4 

#4 

*4 

#4 

*4 

*4 

*4 

*4 


-350 
365 
514 

191 

187 

179 

174 

-368 

-456 

182 

193 

-503 

179 

177 

175 
500 
497 

174 

-456 

180 

189 

188 

184 

181 

193 

187 

185 

183 
82 

179 

192 

191 

67 

75 

68 

68 

68 

68 

68 

68 

68 

68 

68 

68 

68 

.8 

68 

68 

68 


68 


•10-361 
•12-455 

7-192 
7-188 
7-180 
7-175 
#11-394 
13-510 
7-183 


7-180 


•12-456 
13-506 

7-193 
7-189 
7-181 
7-177 


7-184 


7-181 


•13-497 
14-560 

#8-223 

#9-271 

7-182 

#10-353 


7-185 


•13-500    *13-503    *15-510 


7-183     7-184     7-185    #10-342 


7-187     7-n 


7-189     7-191 


7-192 


8-223 


10-343 
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236 

237 

238 

239 

2A0 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 


000150 


.S8TTL  DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

**-DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

IF  THE  SPECIFIED  LINE  HAS  MODEM  CONTROL  ENABLED  THE 
FUNCTION  REQUEST  IS  DERAILED  TO  THE  MODEM  CONTROLLER. 
ON  RETURN  FROM  THE  MODEM  CONTROLLER  THE  REQUEST  IS 
ROUTED  TO  THE  PROPER  DPM  AS  USUAL.   IF  THE  LINE  IS 
HARDWIRED  THE  REQUEST  IS  ROUTED  DIRECTLr  TO  THE  DDM. 
INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

R4  =  ADDRESS  OF  CCS 

STA^-'.  CONTAINS: 

OO(SP)  =  CALLER'S  R3 

02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  MODEM  CONTROLLER: 
R3  =  SU8FUNCTI0N  CODE 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE 
R4  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

C-BIT  CLEAR  -  FUNCTION  PERFORMED  SYNCHRONOUSLY 

C-BIT  SET  -  WAIT  FOR  ASYNCHRONOUS  REPORT  OF  FUNCTION  COMPLETION 

REGISTERS  ACROSS  CALL: 

R2,R3,R5  -  PRESERVED 
R4       -  MODIFIED 


DDCM2: 


000150  011364  000010 
000154  010246 


000156  116402  000006 

000162  006302 

000164  066702  OOOOOOG 


.IF  DF 

X$$MDC 

.IF  DF 

K$$DAS 

MOV 

MOV 

R3,$DDFNC 
#$DDFNC,R3 

.ENDC 

MOV 
MOV 

(R3),C.FNC(R4) 
R2,-(SP) 

.IF  DF 

N$$1LN 

MOV 

$5LTMA,R2 

.IFF 

MOVB 

ASL 

ADD 

C.LIN(R4),R2 

R2 

$SLTMA,R2 

STORE  THE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


PUT  FUNCTION  CODE  IN  CCB 
SAVE  R2 


POINT  INTO  SYSTEM  LINE  INDEX  TABLE 


GET  SYSTEM  LINE  NUMBER 

FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ZF.COU 

=  001000 

#5-67 

ZF.DOM 

=  000001 

#5-67 

ZF.DIA 

=  OOAOOO 

#5-67 

ZF.DLC 

=  000002 

#5-67 

ZF.DVP 

=  100000 

#5-67      12-401 

ZF.INl 

=  040000 

#5-67 

ZF.KMX 

=  000020 

#5-67 

ZF.LLC 

=  000004 

#5-67 

ZF.LMC 

=  000100 

#5-67 

ZF.MAN 

=  020000 

#5-67 

ZF.MFL 

=  000010 

#5-67 

ZF.MTM 

=  000400 

#5-67 

ZF.MUX 

=  000040 

#5-67 

ZF.PSE 

=  002000 

#5-67 

ZF.SLI 

=  010000 

#5-67 

ZF.TIM 

=  000200 

#5-67 

ZF.X3P 

=  000000 

#5-67 

ZS.ASN 

=  100000 

#5-67 

ZS.BSY 

=  140000 

#5-67 

Z.AVL 

000014 

#5-67 

Z.DAT 

000016 

#5-67      10-303 

Z.DSP 

000000 

#5-67      5-67 

Z.FLG 

000010 

#5-67      12-401 

Z.LEN 

=  000016 

#5-67 

Z.LLN 

000006 

#5-67 

"".MAP 

000020 

#5-67 

i.NAM 

000004 

#5-67 

Z.PCB 

000012 

#5-67 

Z.SCH 

000007 

#5-67      12-414 

SCCBGT 

-      ****** 

GX 

13-453 

SCCBRT 

=      ****** 

GX 

10-311     14-508 

SDDAST 

000400 

RG 

#13-452 

SDDCCP 

000460 

RG 

#14-506 

SDDCRA 

000030 

RG 

#8-180 

SDDDIS 

000110 

RG 

#8-189 

SDDENB 

000102 

RG 

#8-188 

SDOGET 

000060 

RG 

#8-184 

SDDKCP 

000450 

RG 

#14-503 

SDDKIL 

000036 

RG 

#8-181 

SDDMAN 

000014 

RG 

#8-177 

SDDMSN 

000132 

RG 

#8-193 

SDORCE 

000006 

RG 

#8-175 

SDDRCP 

000440 

RG 

#14-500 

SDDRNG 

000074 

RG 

#8-187 

SDDSET 

000066 

RG 

#8-185 

SDDSPC 

000500 

RG 

#14-513 

SDDSTP 

000052 

RG 

#8-183 

SDDSTR 

000044 

RG 

#8-182 

SDDXKL 

000022 

RG 

#8-179 

SDDXME 

000000 

RG 

#8-174 

SDDXMP 

000430 

RG 

#14-497 

SDDXOF 

000124 

RG 

#8-192 
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317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

340 

341 

^A2 

3A3 

34A 

3A5 

3',6 

3A7 

3A8 

3A9 

350 

351 

352 

353 

35A 

355 

356 

357 

358 

359 

360 

361 

362 

363 

36A 

365 

366 

367 

368 

369 

370 

371 

372 

373 


.SBTTL      DDCM3  -   COMMON  PROCESS    FOR   FUNCTIONS   WITH   CCB 
.SBTTL      DDCMA   -   COMMON  PROCESS   FOR   FUNCTIONS   WITH   CCB 

**-DDCM3  -   COMMON  PROCESS   FOR   FUNCTIONS  WITH   CCB 
**-DDCMA   -  COMMON  PROCESS   FOR   FUNCTIONS  WITH   CCB 

INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  AND  SU6FUNCTI0N  CODE  (DDCM3) 
R3  =  ADDRESS  OF  FUNCTION  CODE  ONLV  (DDCMA) 
RA  =  ADDRESS  OF  CCB 
STACK  CONTAINS: 

OO(SP)  =  CALLERS  R3 

02(SP)    =  RETURN  ADDRESS    TO  CALLING   DLC 

OUTPUTS  TO  DDM: 

R3  =  SU8FUNCTI0N  CODE  (WORD  INDEX) 

RA  =  ADDRESS  OF  CCB 

R5  =  ADDRESS  OF  LINE  TABLE 

REGISTERS  ACROSS  CALL: 

R2,R3,R5  -  PRESERVED 
RA  -  MAY  BE  MODIFIED 


DDCM3: 


.IF  DF  K$$DAS 


MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

;  STORE  FUNCTION  CODE  IN  DATA  AREA 
;  POINT  R3  AT  FUNCTION  CODE 

.IFTF 

;  DF 

K$$DAS 

MOV 
BR 

(R3),C.FNC(RA)   ;  PUT  FUNCTION  AND  SUBFUNCTION  IN  CCB 
10$            ;  JOIN  COMMON  CODE 

DDCMA: 

.IFT 

;  OF 

K$$DAS 

MOV 
MOV 

R3,$DDFNC 
*$DDFNC,R3 

;  STORE  FUNCTION  CODE  IN  DATA  AREA 
;  POINT  R3  AT  FUNCTION  CODE 

.ENDC 

;  DF 

K$$DAS 

MOVB 

(R3),C.FNC(RA)   ;  PUT  FUNCTION  CODE  IN  CCB 

10$: 

MOV 

R2,-(SP) 

;  SAVE  R2 

20$: 

MOVB 

C.LIN(RA),R2 

;  GET  SLN 

22$: 
25$: 

MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 

R5,-(SP) 

DDMDSP 

(SP)+,R5 

(SP)+,R2 

(SP)*,R3 

;  SAVE  R5 

;  DISPATCH  TO  THE  DEVICE  DRIVER  (DDM) 

;  RESTORE  R5 

;  RESTORE  R2 

;  RESTORE  R3 

;  RETURN  TO  CALLING  DLC 
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s- 

67 

SSTOLC 

6- 

115 

SASCMP 

/- 

H7 

SXMCMP 

1- 

U8 

SCTCMP 

l- 

U9 

SRCCMP 

,'- 

150 

SKLCMP 

SET  UP  OLC  PARAMETERS  FOR  A  GIVEN  SLN 
ASYNCHRONOUS  COMPLETION  TO  LLC  LEVEL 
TRANSMIT  COMPLETE  TO  LLC  LEVEL 
CONTROL  COMPLETE  TO  LLC  LEVEL 
RECEIVE  COMPLETE  TO  LLC  LEVEL 
KILL  COMPLETE  TO  LLC  LEVEL 
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cccccccc 

EEEEEEEEEE 

cccccccc 

cccccccc 

EEEEEEEEEE 

cccccccc 

EE 

EE 

EE 

EE 

EEEEEEEE 

EEEEEEEE 

EE 

EE 

EE 

EE 

cccccccc 

EEEEEEEEEE 

LLLLLLLLLL 

LLLLLLLLLL 

cccccccc 

cccccccc 

EEEEEEEEEE 

LLLLLLLLLL 

LLLLLLLLLL 

cccccccc 

5SSSSS5S 

TTTTT 

TTTTT 

SSSSS5SS 

TTTTT 

TTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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PAGE   t, 
CREF 


I   12 

04.00 


CI 
L( 


MACRO  NAME 

REFERENCES 

CALL 

5-120 

5-121 

6-178 

7-227 

CALLR 

#4-59 

CCBDFS 

#4-58 

4-60 

MTPS 

5-122 

PDVDFS 

#4-58 

4-61 

RESRG 

#4-58 

5-123 

6-179 

7-229 

RETURN 

5-124 

6-180 

7-230 

SAVRG 

#4-58 

5-110 

6-174 

7-221 

SLTDFS 

#4-58 

4-62 
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CI 
tl 


115 

1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


000020 

000022  016705  OOOOOOG 

000026  012703  OOOOOOG 

000032 

000036 

000040  022626 
000042  005726 


000044 


10$: 


000001 


SAVRG 

MOV 

MOV 

CALL 

RESRG 

CMP 
TSI 

.ENDC 

RETURN 

.END 


<R4> 

$LGDDB,R5 

#$CELFN,R3 

SPDDSP 

<R4> 

(SP)+,(SP)t 
(SP)  + 


PRESERVE  CCB  ADDRESS 

SET  ADDRESS  OF  LOGGING  DATABASE 

SET  UP  DISPATCH  FUNCTION 

AND  DISPATCH  TO  LOGGING  PROCESS 
RESTORE  CCB  ADDRESS 

CLEAN  UP  THE  STACK 


AND  RETURN 


CFI  nr,i 
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CE 

tc 


27A 
275 
276 
277 
278 
279 
280 
281  000166 


at  crash: 

R2  -> 


computed  address  of  dispatch  table  entry. 
R3-1  ->  byte  of  function  code. 


000004 


10$: 


R3 
R4 
R5  = 

lOT 


byte  of  subfunction  code, 
optional  CCB  address, 
optional  line  table  address. 


Crash  on  odd  dispatch. 


rccru         M4,-Dn    v/n";    n7K    PriHa>/    PR-h.n-R';    ISOfl       Pano    Q 
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69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
84 
85 
86 
87 
88 
89 

90  000000 

91  000004 

92  000006 
95  OOOOU 

94  000016 

95  000020 
000026 

-  000052 

98  000056 

99  000042 


.SBTTL  SCMQIN  -  QUEUE  A  CHAIN  OF  CCBS  TO  A  LIST 

**-$CMQIN  -  QUEUE  A  CHAIN  OF  CCBS  TO  A  LIST 

THIS  SUBROUTINE  IS  CALLED  TO  ADD  A  CCB  OR  A  CHAIN  OF  CCBS  TO 
THE  END  OF  A  SINGLE  LINKED  LIST. 

INPUTS: 

R5  =  ADDRESS  OF  TWO  WORD  LISTHEAD 
R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

OUTPUTS: 

THE  rC8  IS  QUEUED  TO  THE  END  OF  THE  LIST 
REGISTERS  MODIFIED: 

NONE 


010405 
042765 
011504 
001572 
052765 
01167^ 
010565 


040000  000012 


040000 
000002 
000002 


000012 


SCMQIN: :SAVRG  <R5,R4> 

10$:    MOV  R4,R5 

BIC  #CS.LST,C 

MOV  (R5),R4 

BNE  1 0$  ; 

BIS  #CS.LST,C.STS(R5) 

MOV  (SP),S2(R5) 

MOV  R5,2(R5) 

RESRG  <R4,R5> 

RETURN 


;  SAVE  REGISTERS 
;  COPY  CCB  ADDRESS 
STS(R5)  ;  CLEAR  LAST  CCB  IN  CHAIN  BIT 

;  GET  ADDRESS  OF  NEXT  CCB  IN  CHAIN 

LOOP  TILL  END  OF  CHAIN 

;  SET  LAST  CCB  IN  CHAIN  BIT 

LINK  CHAIN  TO  END  OF  QUEUE 

UPDATE  LISTHEAD  POINTER  TO  LAST  CCB  IN  QUEUE 

RESTORE  REGISTERS 

RETURN 
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Symbol  table 

A$SCHK;=  000000 

CS.D1S= 

000040 

c.syrK= 

000010 

FS.SFC= 

005000 

3$$YSZ= 

007600 

A$$CP';--  000000 

CS.ENA= 

000001 

C.TCB 

000004 

FS.SFR= 

006000 

r$$KMG= 

000000 

A$$PRI=  000000 

CS.ENB= 

000020 

C.TIM 

000006 

FS.SFS= 

004000 

T$$MIN= 

000000 

A$iTRp=  000000 

CS.ERR= 

100000 

C.UIC 

000016 

FS.SPU=: 

040000 

V$$CTR= 

001000 

CB.CCB=  000002 

CS.FTL= 

001000 

C.URM 

177776 

FS.STM= 

000000 

X$$DBT= 

000000 

CB.DDM=  OOOO'iO 

CS.HCR= 

000001 

C.XACP 

000004 

FS.STP= 

002000 

ZF.COU= 

001000 

CB.DLC=  000020 

CS.HFE= 

002000 

C.XID 

000035 

FS.STR= 

001000 

ZF.DDM= 

000001 

CB.RDB=  OOOOOA 

CS.LST= 

040000 

C.XLEN 

000044 

FS.TRM= 

003000 

ZF.DIA= 

004000 

CB.SDB=  000010 

CS.MTL= 

004000 

C.XPLI 

000040 

FS.WLB= 

001000 

ZF.DLC= 

000002 

CB.SLI=  000100 

CS.RNG= 

000010 

C.XPT 

000034 

FS.XKL= 

002000 

ZF.DVP= 

100000 

CB.XLB=  000001 

CS.ROV= 

000004 

C.XSVC 

000042 

FS.XOF= 

010000 

ZF.1NI= 

040000 

CC.LLC=  000200 

CS.RSN= 

010000 

C.XTC 

000037 

FS.XON= 

007000 

ZF.KMX= 

000020 

CE.ABa=  1C0362 

CS.SHU- 

000001 

C.X25 

000036 

FS.ZER= 

002000 

ZF.LLC= 

000004 

CE.DAO=  1003A6 

CS.SID= 

000002 

D$$BUG= 

177514 

F$$LVL= 

000001 

ZF.LMC= 

000100 

CE.DIS=  100366 

CS.STR= 

000004 

D$$ISK= 

000000 

G$$TPP= 

000000 

ZF.MAN= 

020000 

CE.ERR=  '00370 

CS.SUC= 

000001 

D$$L11= 

000001 

G$$TSS= 

000000 

ZF.NFL= 

000010 

CE.ILN=  100350 

CS.TMO= 

020000 

D$$YNC= 

000000 

G$$TTK= 

000000 

ZF.MTM= 

000400 

CE.LTO=  100356 

CS.XUR= 

000004 

D$$YNM= 

000000 

G$$WRD= 

000000 

ZF.l*IUX= 

000040 

CE.MOP=  100372 

C$$CKP= 

000000 

E$$XPR= 

000000 

I$$RAR= 

000000 

ZF.PSE= 

002000 

CE.NTE=  100361 

C$$ORE= 

000400 

FC.CCP= 

000020 

I$$RDN= 

000000 

ZF.SLI= 

010000 

CE.RTE=  100376 

C$$RSH= 

1 77564 

FC.CTL= 

000006 

KISAR5= 

*«»*♦*  GX 

ZF.TIM= 

000200 

CE.SRC=  100364 

C.ADD 

000034 

FC.KCP^ 

000016 

KISAR6= 

******   GX 

ZF.X3P= 

000000 

CE.STP=  100352 

C.AR5 

000014 

FC.KIL= 

000004 

K$$CNT= 

177546 

ZS.ASN= 

100000 

CE.TME=  100354 

CAST 

000012 

FC.MAN= 

000024 

K$$CSR= 

177546 

ZS.8SY= 

140000 

CF.TMO=  10037A 

C.81D 

000003 

FC.MLD= 

000026 

K$$LDC=: 

000000 

Z.AVL 

000014 

CE.UNS=  100344 

C.BUF 

000014 

FC.PCT= 

0C0030 

K$$TPS= 

000074 

Z.DAT 

000016 

CF.CHN=  000001 

C.BUF1 

000014 

FC.PWR= 

000022 

lDSLP  = 

000000 

Z.DSP 

000000 

CF.EOM=  000004 

C.BUF2 

000024 

FC.RCE^ 

000002 

L$$AS6= 

000000 

Z.FLG 

000010 

rF.HDR=  000020 

C.CNT 

000020 

FC.RCP= 

000014 

L$$DRV= 

000000 

Z.LEN  = 

000016 

CF.LS  =  100000 

C.CNT1 

000020 

FC.iIM= 

000010 

L$$P11= 

000001 

Z.LLN 

000006 

CF.LIN=  000002 

C.CNT2 

000030 

FC.XCP= 

000012 

L$$11R= 

000000 

Z.MAP 

000020 

CF.SOM=  000010 

C.CSTP= 

000012 

FC.XME= 

000000 

H$$CR8= 

000124 

Z.NAM 

000004 

CF.SVN=  000040 

C.DST 

000016 

FS.AST= 

000000 

M$$CRX= 

000000 

Z.PCB 

000012 

CF.TRN=  000100 

C.EFN 

000003 

FS.CIB= 

002000 

M$$FCS= 

000000 

Z.SCH 

^00007 

CM.CIR=  000002 

C.FLG 

000022 

FS.CRA=-- 

001000 

M$$MGE= 

000000 

SCALLX 

00031 6RG 

CM.FMT=  100000 

C.FLGl 

000022 

FS.DIS= 

013000 

M$$NET= 

000000 

SCEACC 

000424RG 

CM.HRD=  000002 

C.FLG2 

000032 

FS.DVC= 

001000 

M$$OVR= 

000000 

SCECAC 

000432RG 

CM.LIN=  000000 

C.FNC 

000010 

FS.ENB= 

012000 

N$$ACC= 

000001 

SCEDIV 

000576RG 

CM.LOO=  000001 

C.LGTH= 

000020 

FS.EXI^ 

.001000 

N$$BUF= 

000001 

SCEMUL 

000572RG 

CM.XLO=  000004 

C.LIN 

000006 

FS.GEr= 

006000 

N$$LDV= 

000001 

$CMPDV= 

*•***♦  GX 

CP.DCF=  000040 

C.LNK 

000000 

FS.HLT= 

000000 

N$$MCP= 

000001 

SCMQIN 

OOOOOORG 

CP.HDL=  000007 

C.MOD 

000011 

FS.INI= 

000000 

N$$I'lL  = 

000001 

SCMQRM 

000044 RG  . 

CP.PS  =  177400 

C.MRKT-^ 

000000 

FS.KIL= 

000000 

N$$MOV= 

000010 

SCNVIS 

0001 14RG  ' 

CP.PS1=  000200 

C.NSP 

000004 

FS.LCL= 

100000 

N$$NCT= 

000001 

$CNV22 

000114RG 

CP.XCF=  000100 

C.PRO 

000042 

F5.LTM= 

001000 

N$$PEM= 

000001 

$DIV  = 

******  GX 

CP.2FR=  000030 

c.rq: 

000002 

FS.MNT= 

004000 

OFS   = 

000006 

$MUL  = 

******  GX 

CS.ABO=  000100 

C.RSI 

000012 

FS.MSN= 

014000 

P$$P45= 

000000 

SMVFBF 

000242RG 

CS.BRO=  000002 

C.RSV 

000002 

FS.REA= 

001000 

P$$WRD= 

000000 

SMVTBF 

000176RG 

CS.BUF=  000200 

C.SCHD= 

000002 

FS.RET= 

000000 

Q$$OPT= 

000010 

$PDVID 

000514RG 

CS.CES^  C00002 

C.SRC 

000014 

FS.REZ= 

003000 

R$$DER= 

000000 

$PDVNM= 

******  GX 

CS.CHN=  000010 

C.SSHT= 

000004 

FS.RLB= 

002000 

R$$K11= 

000001 

$PDVTA= 

******  GX 

CS.CMP=  000200 

C.STA 

000007 

■^S.RNG^ 

011000 

R$$SND= 

000000 

$PUMR  = 

******  GX 

CS.DCR=  000400 

C.STS 

000012 

FS.RST= 

000000 

R$$11M= 

000000 

$XBIAS= 

******  GX 

CS.DEF=  000004 

C.SUB 

000012 

FS.RTM= 

001000 

S$$WRG= 

000000 

.$$$$.= 

000034 

CS.DEv=  C00002 

C.SYST= 

000006 

FS.SET= 

005000 

.  A8S.   177776 

000   (RW,I,G8L,ABS,0VR) 
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183 

139 

"T 

,92 
19^. 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 

209  000170 

210  000170 

211  000176 
212 

213  000210 
2U 

215  000216 

216  000222 
"   000226 

000230 

219  000234 

220  0002AO 
221 

222 

223 

224 

225 

226  000246 

22''   000250 

228  000254 


.SBTTL 
.SBTTL 


SRDBRT 
SLDBRT 


Return  a  Receive  Data  Buffer 
Return  a  Large  Data  Buffer 


**-$RD8RT-  Return  a  Receive  Data  Buffer 
•*-$LDBRT-  Return  a  Large  Data  Buffer 

This  routine  is  called  to  return  a  data  buffer  to  the  large  buffer 

pool.  If  the  waiters  count  is  zero  or  a  buffer  is  already  queued  to 

the  system  process  to  satisfy  a  wait  request,  the  buffer  is  returned 

to  the  pool.  Otherwise,  the  system  return  process  is  scheduled. 


Inputs 


R4  contains  the  address  of  buffer's  CCB 

Note  that  C.BUF2+2  must  contain  the  original  Virtual 
Address  of  the  buffer,  and  C.BUF  must  contain  the  original 
Bias  of  the  buffer. 


016464  000026  000016 


217 

2U 


012705 
005767 
003475 
012703 
050367 
012764 


005014 
0004  72 


OOOOOOG 
OOOOOOG 

100000 
OOOOOOG 
001002  000010 


Outputs: 

None. 


SLDBRT:: 
SRDBRT: :SAVRG 
INHIBS 

MOV 

MOV 
TST 
BLE 
MOV 
BIS 
MOV 

.IF  DF 

CLR 

.ENDC 


<R2,.R3,R5> 


Sai/e  some  registers 
;;  Inhibit  Interrupts 


C.BUF2t2(R4),C.8UFt2(R4) 

;;;  Copy  the  buffer's  Virtual  '.ddress 
#SRD8CT,R5     ; ; ;  Point  to  count  in  allocation  control  block 
SRDQCT         ;;;  Are  any  processes  waiting  for  an  RDB? 
RELBUF         ; ; ;  If  LE,  no  waiters  or  buffer  already  queued 
#100000, R3     ;;;  Else,  send  to  buffer  return  system  process 
R3, SRDQCT      ;;;  Mark  a  buffer  return  in  progress 
#FC.RCEIF5.RTN,C.FNC(R4) 


MSSPRO 
C.URM(R4) 


CLR     (R4) 
CALL    JPDQUE 
BR      CMNRTN 


Allow  procesj  to  r   on  any  processor 


Clear  link  word  (only  return  1  buffer) 
Queue  buffer  to  system  process 
Enter  common  code 
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A$$CHK.= 

At$CPS= 

A$$PRI= 

A$$TRP= 

BUFGT 

BUFRi 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT 

CCBRT 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CMNRTN 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

rM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 


000000 

000000 

000000 

000000 

00061  OR 

000670R 

000002 

OOOOAO 

000020 

OOOOOA 

000010 

000100 

000001 

0O0534R 

000572R 

000200 

100362 

1003A6 

100366 

100370 

100350 

100356 

100572 

100361 

100376 

10036A 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000442R 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000050 

000100 

000002 

000200 

000002 

000010 

000200 


CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.[)IS= 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.ROV= 
CS.RSN= 
CS.SHU= 
■  SID= 
io.STR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
C.ADD 
C.BID 
C.BUF 
C.BUF1 
C.BUF2 
C.CNT 
r.CNTI 
C.CNT2 
C.FLG 
C.FLG1 
C.FLG2 
C.FNC 
C.LIN 
C.LNK 
C.MOD 
C.NSP 
C.PRO 
C.RSV 
C.STA 
C.5TS 
C.URM 
C.XACP 
C.XID 
C.XLEf: 


XPLI 
XPT 


C.XSVC 


.xrc 
..X25 
0$$BUG= 

0$$ISK: 

D$$L11= 
D$tVNC= 


000400 

000004 

00000? 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000054 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

OOOOCu 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000055 

'100044 

000040 

000054 

000042 

000057 

000056 

177514 

000000 

000001 

000000 


0$$YNM= 

E$$XPR= 

FAIL 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XHE= 

FS.AST= 

FS.CI8= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EXI= 

FS.GET:= 

FS.HLT=: 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM^ 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SfS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WLB= 

FS.XKL= 

FS.X0F= 

FS.XON^ 

FS.ZER= 

F$$LVL= 

G$$TPP= 

G$$rss= 

G$$TTK= 
G$$WRD= 


000000 

000000 

000660R 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

000000 

002000 

001000 

0 1 3000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 


I$$RAR= 

I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.8WT= 

Lr.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDV= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.liNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SU8= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 


DDM 

DDS 

DLC 

DIM 

DLS 
..FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSFA 
L.OWNR 
L.UNT 


000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000U04 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 


M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET^ 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV- 

N$$NCT= 

N$$PEM= 

PRIOFF= 

PR7   = 

PS 

P$$P45= 

P$$URD^- 

Q$$OPT= 

RELBUF 

R$$DER= 

R$$K11= 

R$$SND-- 

R$$rM= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$URG= 

S$$YSZ= 

S.COST 

S.^G 

S.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$CCBAF= 

SCCBCT^ 

SCCBGT 

$CCBLH= 

SCCBRT 

SCSBGT 

SCSBRT 

$LDBAF= 

Ildbgi 
Ildbrt 

$PDQUE= 
$RDBCT= 


000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 

=  ****** 
=  ****** 


GX 
GX 


000000 

000000 

000010 

000422R 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000000 

007600 

000001 

000000 

000004 

000002 

000005 

000000 

000000 

001000 

000000 

******  GX 

******  GX 

OOOOOORG 

******  GX 

000256RG 

000502RG 

000576RG 

**»*♦•  GX 

000026RG 

0001 70RG 

«*♦.».  GX 

*«»»»»  GX 
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CEBUF1  -  CEX  BUFFER  ^^ANAGEMENT 

MACRO  VO 

$RDBRT  -  Return  a  Receive  Data 

Buffer 

188 

189 

190 

191 

192 

193 

19^ 

195 

196 

197 

198 

199 

200 

201 

202 

20? 

20A 

205 

206 

207 

208 

209  000170 

210  0CO170 

211  000176 

212 

215  000210 

016A6A 

000026 

000016 

2K 

215  000216 

012705 

OOOOOOG 

216  000222 

005767 

0000006 

217  000226 

005A75 

218  000230 

012703 

100000 

219  00023A 

050367 

OOOOOOG 

220  0002A0 

01276A 

001002 

000010 

221 

222 

223 

22A 

225 

226  0002A6 

00501A 

227  000250 

228  0O025A 

000A72 
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.SBTTL 
.S8TTL 


SRDBRT 
$LD8RT 


Return  a  Receive  Data  Buffer 
Return  a  Large  Data  Buffer 


♦*-$RD8RT- 
**-$LD8RT- 


Return  a  Receive  Data  Buffer 
Return  a  Large  Data  Buffer 


This  routine  is  called  to  return  a  data  buffer  to  the  large  buffer 
pool.  If  the  waiters  count  is  zero  or  a  buffer  is  already  queued  to 
the  system  process  to  satisfy  a  wait  request,  the  buffer  is  returned 
to  the  pool.  Otherwise,  the  system  return  process  is  scheduled. 


Inputs: 
RA 


contains  the  address  of  buffer's  CCS 

Note  that  C.BUF2+2  must  contain  the  original  Virtual 

Address  of  the  butter,  and  C.8UF  must  contain  the  original 
Bias  of  the  buffer. 


Outputs: 

None. 


$LD8RT:: 

SRDBRT: :SAVRG   <R2,R3,R5> 
INHIBS 


Save  some  registers 
;;  Inhibit  Interrupts 


MOV  C.8UF2+2(RA),C.8UF+2(RA) 

;;;  Copv  the  buffer's  Virtual  Address 

MOV  #$RDBCT,R5     ;;;  Po'nt  to  count  in  allocation  control  block 

TST  SRDQCT         ;;;  Are  any  processes  waiting  for  an  RDB? 

BLE  RELSUF         ;;;  If  LE,  no  waiters  or  buffer  already  queued 

MOV  #100000  ""B     ;;;  Else,  send  to  buffer  return  system  process 

BIS  R3,$RDQ  I      ;;;  Mark  a  buffer  return  in  progress 

MOV  #FC.RCE.FS.RTN,C.FNC(RA) 


.IF  DF  M$$PR0 
CLR     C.URM(RA) 
.ENDC 


CLR 

CALL 

BR 


(RA) 

SPD'^'JE 

CMNRTN 


Allow  process  to  run  on  any  processor 


Clear  link  word  (only  return  1  buffer) 
Queue  buffer  to  system  process 
Enter  common  code 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BUFGT 

BUFRT 

CB.CCB= 

CB.DDM= 

CB.DLC=: 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT 

CCBRT 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SyN= 

CF.rRN= 

CMNRTN 

CM.CIR  = 

CM.FMT= 

CM.HRD= 

CM.L1N= 

CM.LOO= 

CM.XLO= 

CP.DCF  = 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

rs.rMP= 


000000 

000000 

000000 

000000 

000766R 

001046R 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000534R 

000656R 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000442R 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000050 

000100 

000002 

000200 

000002 

000010 

000200 


CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.D1S= 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.ROV= 
CS.RSN= 
CS.SHU= 
CS.S1D= 
CS.STR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 

c$$ci<;p= 

C$$0RE= 

C$SRSH= 

C.ADD 

C.BID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 


..FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

c.xp: 

C.XSVC 

C.XTC 

C.X25 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$yNC= 


000400 

D$$YNM^ 

000000 

000004 

E$$XPR= 

000000 

000002 

FAIL 

001036R 

000040 

FC.CCP= 

000020 

000001 

FC.CTL= 

000006 

000020 

FC.KCP= 

000016 

100000 

FC.K]L= 

000004 

001000 

FC.MAN= 

000024 

000001 

FC.MLD= 

000026 

002000 

FC.PCT= 

000030 

040000 

FC.PWR= 

000022 

004000 

FC.RCE= 

000002 

000010 

FC.RCP= 

000014 

000004 

FC.TIM= 

000010 

010000 

FC.XCP= 

000012 

000001 

FC.XME= 

000000 

000002 

F.S.AST= 

000000 

000004 

FS.CIB= 

002000 

000001 

FS.CRA= 

001000 

020000 

FS.DIS= 

013000 

000004 

FS.DVC= 

001000 

000000 

FS.ENB= 

012000 

000400 

FS.EXI= 

001000 

177564 

FS.GET= 

006000 

000034 

FS.HLT= 

000000 

000003 

FS.INI= 

000000 

000014 

FS.KIL= 

000000 

000014 

FS.LCL= 

100000 

000024 

FS.LTM= 

001000 

000020 

FS.MNT= 

004000 

000020 

FS.MSN= 

014000 

000030 

FS.REA= 

001000 

000022 

FS.RET= 

000000 

000022 

FS.REZ= 

003000 

000032 

FS.RLB= 

002000 

000010 

FS.RNG= 

011000 

000006 

FS.RST= 

000000 

000000 

FS.RTN= 

001000 

000011 

FS.SET= 

005000 

000004 

FS.SFC= 

005000 

000042 

FS.SFR= 

006000 

000002 

FS.SFS= 

004000 

000007 

FS.SPU= 

040000 

000012 

FS.STM= 

000000 

177776 

FS.STP= 

002000 

000004 

FS.STR= 

001000 

000035 

FS.TRM= 

003000 

000044 

FS.WL8= 

001000 

000040 

FS.XKL= 

002000 

000034 

F5.X0F= 

010000 

000042 

FS.X0N= 

007000 

000037 

FS.ZER= 

002000 

000036 

F$$LVL= 

000001 

177514 

G$$rPP= 

000000 

000000 

G$$TSS= 

000000 

000001 

G$$TTK= 

000000 

000000 

G$$WRD= 

000000 

I$$RAR= 

I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LDSLP  = 

LF.ACT= 

LF.BRO= 

LF.BWTr 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.  ;PE  = 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TR1= 

L$$ASG= 

L$$[)RV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMSr 

L.NSTA 

L.OWNR 

L.UNT 


000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

OjCOOI 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 


M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$OPT= 

N$$PEM= 

PR10FF= 

PR7   = 

PS 

P$$P45 

P$$WRD= 

Q$$OPT= 

RELBUF 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$AL0CB= 

$CCBAF= 

$CCBAL= 

$CCBCT= 

SCCBGT 

$CCBLH= 

ICCBRT 

$CCBSZ= 

$CEAVL= 

tCSBGT 

SCSBRT 


000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000001 
000000 

****** 
=  ****** 
000000 
000000 
000010 
000422R 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 
000000 
****** 
****** 
****** 


GX 
GX 
GX 

******  GX 
OOOOOORG 
******  GX 

000256RG 
»**»**  GX 
*  A****  GX 
0003O2RG 
000376RG 
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196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 


.SBTTL      DDCM1    -   COMMON  PROCESS   FOR   SPECIAL   NON-CCB   FUNCTIONS 

*«-DDCM1    -   COMMON  PROCESS   FOR   SPECIAL   NON-CCB   FUNCTIONS 

INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

R4  =  UNSPECIFIED  CALLING  PARAMETER  TO  DTM 

STACK  CONTAINS: 

OO(SP)  =  LINE  NUMBER  (ORIGINALLY  IN  ((3) 
02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE  (WORD  INDEX) 
RA  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

FUNCTION  HAS  BEEN  PERFORMED 

R4  =  UNSPECIFIED  RETURN  PARAMETER  TO  DLC  FRCM  DDM 

REGISTERS  ACCROSS  CALL: 
R2,R3,R5  PRESERVED 
R4       MAY  BE  MODIFIED  BY  DDM 


OOOUO 


OOOUO  0102A6 
0001 ''.2  016602 
000U6  000410 


.ENABL  LS8 
DDCMl:   .IF  DF  K$$DAS 


000002 


MOV 
MOV 

.ENDC 

MOV 
MOV 
BR 


R3,$DDFNC 
#$DDFNC,R3 


R2,-(SP) 
2(SP),R2 
22$ 


STORE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


SAVE  R2 

GET  LINE  NUMBER 

JOIN  COMMON  CODE  TO  DISPATCH  TO  DDM 
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CREF       04.00 


CE 
DD 


SYMBOL  VALUE 


LN.LOO 

LN.OAU 

lN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TR! 

L$$sn 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRSA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$PRO 

N$$TLN 

PR7 

PS 

R$$11D 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.5VC 

SF.UNL 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

XtSMCB 

XSSMDC 

X$$NDM 


=  000003 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
=  000002 
=  000002 
=  000017 
=  000360 
=  000006 

"  000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 

=  000022 
000022 
000020 
000014 
000021 
000013 

z:  ♦ttwt  * 

=  ****■♦♦ 

-  ****** 
::  ****** 

-  ****** 

=  000000 

r  ****** 

=  000200 

=  000100 

=■  000004 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 

=  000040 

000001 

000000 

000004 

000002 

000003 

-  ****** 

-  ****** 


GX 
GX 


REFERENCES 

#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 

11-406 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 

13-516 

14-558 

11-404 

11-396 

4-67 

4-67 

4-67 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 
#4-68 

4-67 

4-2 

4-1 


14-577 
14-576 


14-564 
♦  11-404 


•11-414 


*11-421 


4-67 

4-3 

4-3 


9-272 
6-116 
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293 

29A 
295 

296  000170 

297  0001 7A 

298  000176 

299  000200 

300  000202 

301  000204 
302 

303  000210 
30A  0002U 
305  000220 
306 

307  000222 

308  000226 

309  000234 

310  000240 

311  00024? 

312  000246 

313  000250 

314  000252 
315 


032732 
001435 
010546 
010346 
005002 
017705 

016505 

012603 

116402 
052764 

103420 

005004 
000261 
000413 


000100 

OOOOOOG 
000016 


000006 
100000 


000006 


.ENDC 

BIT 
BEQ 
MOV 
MOV 
CLR 
MOV 

MOV 

CALL 

MOV 

MOVE 

BIS 

CALL 

BCS 

CALL 

CLR 

SEC 

BR 

.ENDC 


*LF.MDC,S(R2)+ 

20$ 

R5,-(SP) 

R3,-(SP) 

R2 

a$PDVTA,R5 

Z.DAT(R5),R5 

SPDDSP 

(SP)t,R3 

C.LIN(R4),R2    ; 

#100000, C.LIN(R4) 

DDMDSP 

25$ 

$CC8RT 

R4 

25$ 


DOES  LINE  NEED  MODEM  CONTROL? 

NO  -  JOIN  COMMON  CODE  TO  DISPATCH  TO  DDM 

SAVE  REGISTER 

SAVE  ADDRESS  OF  FUNCTION  CODE 

GET  AUXILARV  PROCESS  PDX  INDEX  (ALWArS  0) 

GET  ADDRESS  OF  AUXILARV  PROCESS'  PDV 

THAT  WORKS  SINCE  IT'S  PDV  INDEX  =  0 

GET  ADDRESS  OF  DATA  BASE  DESCRIPTOR  BLOCK 

DISPATCH  TO  MODEM  CONTROLLER 

RESTORE  R3 

OBTAIN  LINE  NUMBER  (NO  SIGN  EXTENSION) 

;  INDICATE  MODEM  CONTROL  REQUEST 

DISPATCH  TO  THE  DEVICE  DRIVER  (DDM) 

REQUEST  WILL  COMPLETE  ASYNCHRONOUSLY 

OTHERWISE  RETURN  CCB  TO  POOL 

MODEM  CONTROLLER  WILL  RETURN  ASYNCHRONOUS  COMPLETION 

SET  C-81T,  LINE  IS  MODEM  CONTROLLED 

JOIN  COMMON  CODE 


SI 
$1 
$1 
$■ 
$' 
$! 
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SYMBOL 

VALUE 

REFERENCES 

$DDXON 

000116 

RG 

#8-191 

SLLCSP 

000500 

RG 

#1A-512 

$PDDSP 

r     ****** 

GX 

10-304 

12- 

■419 

IPDQUI 

:;     ****** 

GX 

U-527 

SPDVTA 

r     ****** 

GX 

10-301 

12- 

-3V9 

SSLTMA 

=     ****** 

GX 

10-292 

15- 

-5/'1 

SSTDDM 

000510 

RG 

#15-558 

tSTDDI 

0005U 

RG 

12-394 

#15- 

-564 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.TITLE   CEDLC 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CEX  DLC  TO  LLC  INTERFACE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-llM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


ITS 


MACRO  LIBRARY    CALLS 
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6-  128    SLLCRS  -  LLC  TO  LLC  REQUEST  QUEUING  SUBROUTINE 

7-  182    PROCESS  TO  PROCESS  DIRECT  CALL  INTERFACE 


J  n 


CElLC        MACRO  V05.05b   Frida/   28-Jun-85   18:19     Page  ^ 


K  11 


L 


J  12 


,»FiLE*«I[)"CELOG 


cccccccc 

EEEEEEEEEE 

000000 

GGGGGGGG 

cccccccc 

EEEEEEEEEE 

000000 

GGGGGGGG 

cc 

EE 

00 

00 

GG 

cc 

EE 

00 

00 

GG 

cc 

EE 

ou 

00 

GG 

cc 

EE 

00 

00 

GG 

cc 

EEEEEEEE 

uo 

00 

GG 

cc 

EEEEEEEE 

DO 

00 

GG 

cc 

EE 

00 

00 

GG 

GGGGGG 

cc 

EE 

on 

00 

GG 

GGGGGG 

cc 

EE 

00 

00 

GG 

GG 

cc 

EE 

00 

00 

GG 

GG 

cccccccc 
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k' 
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D' 
D' 
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G' 
G 
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LL 
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Symbol 

table 

A$tCHK= 

000000         I$$RDN= 

000000 

N$$LDV=  000001 

X$$t)BT= 

000000 

ZS.ASN= 

100000 

A$$CPS= 

000000         K$$CNT= 

177546 

N$$f1CP=  000001 

ZF.COU= 

001000 

ZS.BSY= 

140000 

A$$PR1= 

000000         K$$CSR= 

177546 

N$$MLL=  000001 

ZF.DDM= 

000001 

Z.AVL 

000014 

A$$TRP= 

000000         KS$LDC= 

000000 

N$$M0V=  000010 

ZF.DIA= 

004000 

Z.DAT 

000016 

C$$C<P= 

000000        K$$TP5= 

000074 

N$$NCT=  000001 

ZF.DLC= 

000002 

Z.DSP 

000000 

Ct$ORE= 

000^00         LDSLP  = 

000000 

N$$PEM=  000001 

ZF.DVP= 

100000 

Z.FLG 

000010 

C$$RSH= 

177564         L$$ASG= 

000000 

P$$P45=  000000 

ZF.]NI= 

040000 

Z.LEN  = 

000016 

D$$BUG= 

1775K         L$$DRV= 

000000 

P$$WRD=  000000 

ZF.KMX= 

000020 

Z.LLN 

000006 

0$$1SK= 

000000         L$$P11= 

000001 

Q$$OPT=  000010 

ZF.LLC= 

000304 

Z.MAP 

000020 

D$$L11= 

000001         L$$11R= 

000000 

R$$DER=  000000 

ZF.LHC= 

000100 

Z.NAM 

000004 

D$$YNC  = 

000000         M$$CRB= 

000124 

R$$K11=  000001 

ZF.MAN= 

020000 

Z.PCB 

000012 

D$$YNM= 

000000        M$$CRX= 

000000 

R$$SN[)=  000000 

ZF.MFL= 

000010 

Z.SCH 

000007 

ES$XPR= 

000000        M$$FCS= 

000000 

R$$11M=  000000 

ZF.MrM= 

000400 

$CELFN= 

******  GX 

F$$LVL= 

000001         M$$MGE= 

000000 

S$$WRG=  000000 

ZF.MUX= 

000040 

SCELOG 

OOOOOORG 

G$$TPP= 

000000        M$$NET= 

000000 

S$$YSZ=  007600 

ZF.PSE= 

002000 

$CMPDV= 

**»«**  GX 

G$$TSS= 

000000        M$$OVR= 

000000 

:$$KMG=  000000 

ZF.SLI= 

010000 

$LGDDB= 

******   GX 

G$$TT<= 

000000      N$$Ac:= 

000001 

T$$MIN=  000000 

ZF.TIM= 

000200 

$LGPDV= 

***««*  GX 

G$$WRO= 

000000         N$$BUF= 

000001 

V$$CTR=  001000 

ZF.X3P= 

000000 

$PDOSP= 

******  GX 

I$$RAR= 

000000         N$$EVL= 

000001 

.  ABS. 

000020    000   (RU,I,GBL,ABS,0VR) 
000046    001    (f<W,I,LCL,REL,C0N) 

Errors 

detected:  0 

»«*  AssembLer  statistics 

Work   f 

ile  reads:  0 

Work   f 

ile  writes:  0 

Size  of 

work  file:  10191  Words 

(  40  Pages) 

Size  ot 

core  pool:  K440  Words 

(  55  Pages) 

Operating  system:  RSX-11M/PLUS 

E  Lapsec 

time:  00:00:07.21 

SY:CELOG1.Vj,[130,13A3CELOG1/CR/-SP  =  Sr:[l,-' J 

RSXMCM.SML/ML,[130, 

nO]NErLie/ML,[130,10:RSXMCM/PA 

1,C130,10]V2,CELOG 

Ci 
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SPDQUE  -  QUEUE  A  CCB  (CHAIN)  TO  A  LIST  AND  SCHEDDLE  PROCESS 


CE 


283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306  000170 

307 

308  000174 

309  000176 
310 

311  000200 

312  000206 

313  000210 

314  000212 

315  000214 

316  000222 

317  000226 
318 

319 
320 
321 
322 

323  000240 

324  000244 

325  000250 

326  000252 

327  000254 

328  000260 

329  000262 
330 

331 
332 
535 
334 
335 
336 
337 
358 
339  000264 


.SBTTL  SPDQUE  -  QUEUE  A  CCB  (CHAIN)  TO  A  LIST  AND  SCHEDULE  PROCESS 

**-$PDQUE-QUEUE  A  CCB  CHAIN  TO  A  LIST  AND  SCHEDULE  PROCESS 

Inputs: 

R3  =  PDV  Index  (high  b-'te)  and  channel  number  (Low  byte)  (SPDQUE  ONLY) 
R4  =  Address  of  first  iCB  in  a  chain.  The  last  CCB  of  the  chain 
has  a  zero  next  CCb  p^intjr. 

Outputs: 

The  PDV  Index  and  channel  number  parameters  are  stored  in  the  CCB 
and  the  CCB  (or  chain)  is  linked  to  the  operation  queue  for  the 
process  defined  by  the  PDV  index  and  a  schedule  request  for  that 
process  is  set. 

Registers  modified: 

R3  and  R4 


010364  000006 

010546 
010405 

042764  040000  000012 

010403 

011304 

001372 

052763  040000  000012 

012704  000004G 


010574  000002 

010364  000002 

024444 

001010 

005767  OOOOOOG 

100405 

005014 


SPDQUE ::«0V 

SPDQU1 : :M0V 
MOV 


10S: 


010477  000002G 


BIC 
MOV 
MOV 
BNE 
BIS 
MOV 
INHIBS 

.IF  DF 

CALL 

.ENDC 

MOV 
MOV 
CMP 
BNE 
TST 
BMI 
CLR 

.IF  DF 
.IF  DF 
MOV 
.ENDC 

CALL 

.IFF 
MOV 


R3,C.LIN(R4) 

R5,-(SP) 
R4,R5 

#CS.LST,C.STS(R4) 

R4,R5 

(R5),R4 

10$ 

#CS.LST,C.STS(R5) 

#SCMFR(C+4,R4 


MSSPRO 
SMPLCK 


R5,a2(R4) 

R5,2(R4) 

-(R4),-(R4) 

20$ 

SCXOPT 

20$ 

(R4) 

RSSMPL 
MSSPRO 
-(R5),-2(R4) 
;  DF  MSSPRO 

S(3F0RK 

;  DF  RSSMPL 
R4„aSFRKHDt2 


Store  PDV  index  and  channel  number 

Save  callers  R5 

Copy  address  of  first  CCB 

;  Clear  last  CCB  marker 
Copy  current  CCB  address 
Get  next  CCB  address 
if  ne  keep  going 
;  Mark  last  CCB  of  chain 
Set  address  of  queue  listhead 
; ;  Inhibit  Interrupts 


Lock  access  to  process  queue 


Link  first  to  last 
Set  new  last  pointer 
Fork  block  already  in  use  ? 
If  NE,  yes  -  just  exit 
Are  we  in  fork  processing? 
If  MI,  yes  -  just  exit 
Clear  next  link  pointer 


Set  up  required  Unibus  Run  Mask 

Queue  the  fork  block 

L  ink  to  end  of  fork  list 


K  U 


r 
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SCMQRM  -  REMOVE 

A  CHAIN 

OF  CCBS 

FROM  A 

LIST 

101 

.?aTTL  $CMQRM  -  REMOVE  A  CHAIN  OF  CCBS  FROM  A  LIST 

102 

103 

+ 

104 
105 
106 

**-$CMQ'^M  -  REMOVE  A  CHAIN  OF  CCBS  FROM  A  LIST 

THIS  SUBi'OUTINE  IS  CALLED  TO  REMOVE  THE  FIRST  ENTRY 

10? 

FROM  A  SIJGLY  LINKED  LIST. 

108 

109 
110 
111 
112 
113 

INPUTS: 

R3  =  ADDRESS  OF  TWO  WORD  LISTHEAD 

OUTPUTS: 

1U 

115 

C/CLEAR: 

116 

R4  =  ADDRESS  OF  FIRST  IN  CHAIN  OR  ONLY  CCB  DEQUEUED 

117 

118 

C/SET:  QUEUE  IS  EMPTY 

119 

120 

REGISTERS  MODIFIED: 

121 

122 

R4 

123 
12A 
125  OOOOAA 

- 

000261 

$CMQRM::SEC                  ;  SET  C-BIT  JUST  IN  CASE  QUEUE  IS  EMPTY                   | 

126  000046 

011504 

MOV     (R3),R4 

GET  ADDRESS  OF  FIRST  CCB  IN  QUEUE 

127  000050 

001420 

BEQ     40$ 

RETURN  IF  QUEUE  IS  EMPTY 

128  000052 

SAVRG   <R5,R4> 

SAVE  A  REGISTER 

129  000056 

010405 

10$:    MOV     R4,fi5          ;  COPY  FIRST  CCB  IN  CHAIN  ADDRESS 

130  000060 

032765 

040000 

000012 

BIT     #CS.LST,C.STS(R5)  ;  IS  THIS  IHE  LAST  CCB  IN  THE  CHAIN? 

131  000066 

001002 

BNE     20$ 

YES  -  UPDATE  THE  LISTHEAD 

132  000070 

011504 

MOV     (fi5),R4 

NO  -  GET  NEXT  CCB  -  IS  THIS  THE  LAST? 

133  000072 

134 

135  000074 

001571 

BNE     10$ 

NO  -  LOOP  TILL  END  OF  CHAIN 

011513 

20$:    MOV     (R5),(R5)       ;  SET  ADDRESS  OF  NEW  FIRST  CCB  IN  QUEUE                   | 

156  000076 

001002 

BNE     50$ 

BRANCH  IF  QUEUE  IS  NOT  EMPTY 

157  000100 

010565 

000002 

MOV     R3,2(R3) 
50$:    CLR     (R5) 

OTHERWISE  CLOSE  UP  LIST 

138  000104 

005015 

CLEAR  LINK  POINTER  IN  THE  LAST  CCB  OF  CHAIN 

139  000106 

RESRG   <R4,R5> 

RESTORE  REGISTER 

140  000112 

40$:    RETURN 

RETURN 

K  15 
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000602 
Errcrs  detected: 


001 
0 


(RW,1,LCL,REL,C0N) 


•    '\ssembi  e"-   statist  ;cs 

^o^k      tile     reads:  0 

Work      tile   writes:  0 

Size  of   work    file:  15909  Words      (   65  Pages) 

Size   of    core   pool:  1''608  Words      (    67  Pages) 

Operating     iystem:  RSX-11M/PLUS 

S¥'frESUB!v2!il30;i34]CESUB/CR/-SP=Sy:[1,nRSXMCM.SML/ML,[130,110]NETLJ8/ML,[130,10jRSXMCM/PA:1,i:i30,10:CESU8 
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CE8UF  - 
SCCBRT 

230 
231 
232 
233 
23A 
235 
236 
237 
258 
239 
2A0 
2A1 
2A2 
243 
24A 
245 
2A6 
247 
248 
249 
2=^0 
251 
252 
253 
254 
255 
256 
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000256 


0OC270 


000274 
00030C 


.SBTTL  SCCBRT  -  Return  a  CCB 

•*-$CCeRT-  Return  a  CCB 

This  routine  is  called  to  deallocate  a  standard  CCB. 

Inputs: 

R4  contains  the  address  of  tne  CCB 

Outputs: 

None. 


SCCBRT: :1NHI6$ 


.IF  DF  MSSPRO 
CALL  SMPLCK 
.ENDC 

CALL    CC8RT 

.IF  OF  MSSPRO 
CALL  S(SP)+ 
.ENDC 

EIIA8LS 
RETURN 


;  Inhibit  Interrupts 

;  Lock  access  to  CommExec  resources 

;  Return  the  CCB 

;  Co-Routine  return  to  unlock  resources 

Enable  Interrupts 


L  1 

CEb  'F  -  CEX  BUFFER  MANAGEMENT  R  MACRO  V05.03b  Friday  28-Jun-85  18:16  Page  11 
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Symbol  table 


SRDBGT  COOOi^RG 
SRDBLH=  »•»•»*  GX 
SRDBQP  000500RG 


SRDBRT  000170RG 
$RDBSZ=  *»♦*♦*  GX 
$RDBTH=  «♦»***  GX 


SRDBWT  000456RG 
$RDQCT=  *••***  GX 
$SDBCT=  **♦•♦♦  GX 


$SDBLH=  ******  GX 
$SDBSZ=  ******  GX 


$SLTMA=  ******  GX 
.$$$$.=  000034 


.  ABS.   177776 

000 

(RW, 

,GBL,ABS,0VR) 

000722 

001 

(RW, 

,LCL,REL,CON) 

Errors  detected: 

0 

Assembler  sfatistics 


Work   file  reads:  C 

Work   tile  writes:  0 

Size  of  work  file:  16471  Words  (  65  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


Elapsed  time:  00:00:20.11 

SY: CEBUF. V2,[1 30, 13A]CEBUF/CP'-SP=SY:[1, 


!]RSXMCM.SML/ML,[130,110]NETLIB/ML,C130,10]RSXMCM/PA:1,C130.10]CEBUF 


CEBUF  CREATED  Bv     MACRO     ON  28-JlIN-85  AT   18:17 

cvMDni      rDncc    crccrDCMrr  
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CEBUFl  - 
tCCBRT 

230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 

:;o 

211 
2« 
2A3 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
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000256 


000270 


000274 

000300 


.SBTIL  SCCBRT  -  Return  a  CCB 

**-$CC8RT-  Return  a  CCB 

This  routine  is  called  to  deallocate  a  standard  CCB. 

Inputs: 

R4  contains  the  address  of  the  CCB 

Outputs: 

None. 


SCCBRT: :INHIB$ 


.IF  OF  M$$PRO 
CALL  SMPLCK 
.ENDC 

CALL    CC8RT 

.IF  Of  M$$PRO 
CALL  a(SP)t 
.ENDC 

ENABLS 
RETURN 


;  Inhibit  Interrupts 
;  Lock  access  to  CommExec  resources 
;  Return  the  CCB 

:;  Co-Routire  return  to  unlock  resources 
Enable  Interrupts 
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$DEAC8=  »•»♦.*  GX 
$LDBAF=  •**«»*  GX 
SLDBGT  000026RG 
SLDBRT  000170RG 
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Symbol  table 


$PDQUE=  •**••»  GX 
$RDBCT=  *•**♦*  GX 
SRDBGT  OOOO'iARG 
$RDBLH=  ******    GX 


$RDBNM=  »*»»«*  GX 
SRDSQP  000500RG 
$RD8RT  0001 70RG 
$RDBSZ=  »•♦***  GX 


$RDBTH=  ******  GX 
SRDBWT  000456RG 
$RCQCT=  ******  GX 
$S[)8CT=  ******  GX 


$SDBLH=  ******  GX 

$SDBSZ=  ******  GX 

$SLTMA=  ******  GX 
.$$$$.=  000034 


.  ABS. 

177776 

000 

(RW, 

,GBL,ABS,OVR) 

001100 

001 

(RW, 

,LCL,REL,CON) 

Errors 

detected: 

0 

•♦«  Assembler  statistics 


Work   file  reads: 

0 

Work   file  writes: 

0 

Size  of  work  f i le: 

16471  Words 

(  65  Pages) 

Size  of  core  pool : 

17608  Words 

(  67  Pages) 

Operating  system: 

RSX-11M/PLUS 

SY?CEB'JFKV2;[136,134]CEBUF1/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[130,10]V2,CEBUF 


CEBUFl 
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236 

237 

238 

239 

2A0 

2A1 

2^2 

2^.3 

2^.4 

2^5 

246 

2A7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271  000150 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 


.S8TTL  DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

**-DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 

IF  THE  SPECIFIED  LINE  HAS  MODEM  CONTROL  ENABLED  THE 
FUNCTION  REQUEST  IS  DERAILED  TO  THE  MODEM  CONTROLLER. 
ON  RETURN  FROM  THE  MODEM  CONTROLLER  THE  REQUES'  IS 
ROUTED  TO  THE  PROPER  DDM  AS  USUAL.   IF  THE  LINii  IS 
HARDWIRED  THE  REQUEST  IS  ROUTED  DIRECTLY  TO  THt  DDM. 
INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  CODE 

R4  =  ADDRESS  OF  CCB 

STACK  CONTAINS: 

OO(SP)  =  CALLER'S  R3 

02(SP)  =  RETURN  ADDRESS  TO  CALLI'vlG  DLC 

OUTPUTS  TO  MODEM  CONTROLLER: 
R3  =  SUBFUNCTION  CODE 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE 
R4  =  SAME  AS  ON  ENTRY 
R5  =  LINE  TABLE  ADDRESS 

OUTPUTS  ON  RETURN  TO  CALLER: 

C-BIT  CLEAR  -  FUNCTION  PERFORMED  SYNCHRONOUSLY 

C-BIT  SET  -  WAIT  FOR  ASYNCHRONOUS  REPORT  OF  FUNCTION  COMPLETION 

REGISTERS  ACROSS  CALL: 

R2,R3,R5  -  PRESERVED 
R4       -  MODIFIED 


DDCM2: 


.IF  DF 

X$$MDC 

.IF  DF 

K$$DAS 

MOV 
MOV 

R3,$DDFNC 
*$DDFNC,R3 

.ENDC 

MOV 
MOV 

(fi3),C.FNC(R4) 
R2,-(SP) 

.IF  DF 

N$$1LN 

MOV 

$SLTMA,R2 

.IFF 

M0V8 
ASL 

ADD 

C.LIN(R4),R2 

R2 

$SLIMA,R2 

STORE  THE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


PUT  FUNCTION  CODE  IN  CCB 
SAVE  R2 


POINT  INTO  SYSTEM  LINE  INDEX  TABLE 


GET  SYSTEM  LINE  NUMBER 

FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  f ABl E 
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CEDDM 


CREATED  BV     MACRO     ON  28-JUN-85   AT   18:18 


SYMBOL    CROSS   REFERENCE 
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PAGE   3 

CREF       OA.OO 


CE 
DC 


SYMBOL 

VALUE 

REFERENCES 

ZF.COU 

=  001  COO 

#4-67 

ZF.DDM 

=  000001 

#4-67 

ZF.DIA 

=  004000 

#4-67 

ZF.DLC 

=  000002 

#4-67 

ZF.DVP 

=  100000 

#4-67 

11-401 

ZF.INI 

=  040000 

#4-67 

ZF.KMX 

=  000020 

#4-67 

ZF.LLC 

=  000004 

#4-67 

ZF.LMC 

=  000100 

#4-67 

ZF.MAN 

=  020000 

#4-67 

ZF.MFL 

=  000010 

#4-67 

ZF.MTM 

=  000400 

#4-67 

ZF.MUX 

=  000040 

#4-67 

ZF.PSE 

=  002000 

#4-67 

ZF.SLI 

=  010000 

#4-67 

ZF.TIM 

=  000200 

#4-67 

ZF.X3P 

=  000000 

#4-67 

ZS.ASN 

=  100000 

#4-67 

ZS.BSY 

=  140000 

#4-67 

Z.AVL 

000014 

#4-67 

Z.DAT 

000016 

#4-67 

Z.DSP 

000000 

#4-67 

4-67 

Z.FLG 

000010 

#4-67 

11-401 

Z.LEN 

=  000016 

#4-67 

Z.LLN 

000006 

#4-67 

Z.MAP 

000020 

#4-67 

Z.NAM 

000004 

#4-67 

Z.PCB 

000012 

#4-67 

Z.SCH 

000007 

#4-67 

11-414 

SCCBGT 

z:  ****** 

GX 

12-453 

SCCBRT 

=  ****** 

GX 

13-508 

SDDAST 

000274 

RG 

#12-452 

tDDCCP 

000354 

RG 

#13-506 

SDDCRA 

000030 

RG 

#7-180 

SDDDIS 

000110 

RG 

#7-189 

SDDENB 

000102 

RG 

#7-188 

SDDGET 

000060 

RG 

#7-184 

SDDtcCP 

000344 

RG 

#13-503 

SDDKIL 

000036 

RG 

#7-181 

SDDMAN 

000014 

RG 

#7-177 

SDDMSN 

000132 

RG 

#7-193 

SDDRCE 

000006 

RG 

#7-175 

SDDRCP 

000334 

RG 

#13-500 

SDDRNG 

000074 

RG 

#7-187 

SDDSET 

000066 

RG 

#7-185 

SDDSPC 

000374 

RG 

#15-513 

SDDSTP 

000052 

RG 

#7-183 

SDDSTR 

000044 

RG 

#7-182 

SDDXKL 

000022 

RG 

#7-179 

tDDXME 

000000 

RG 

#7-174 

IDDXMP 

000324 

RG 

#13-497 

SDDXOF 

000124 

RG 

#7-192 

CFDDM 
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317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3^0 

3A1 

3A2 

343 

3AA 

3A5 

3'.6 

3A7 

3A8 

3A9 

350 

351 

352 

353 

35A 

355 

356 

357 

358 

359 

360 

361 

362 

363 

36A 

365 

366 

367 

368 

369 

370 

371 

3>2 

373 


.SBTTL  DDCM3  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 
.SBTTL  0DCM4  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 


•*-DDCM3 
**-DDCM4 

INPUTS 


COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 
COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 


R3  =  ADDRESS  OF  FUNCTION  AND  SUBFUNCTION  CODE  (DDCM3) 
R3  =  ADDRESS  OF  FUNCTION  CODE  ONLV  (DDCMA) 
R4  =  ADDRESS  OF  CCB 
STACK  CONTAINS: 

00(SPJ  =  CALLERS  R3 

02(SP)  =    RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  DDM: 

R3  =  SUBFUNCTION  CODE  (WORD  INDEX) 

R4  =  ADDRESS  OF  CCB 

R5  =  ADDRESS  OF  LINE  TABLE 

REGISTERS  ACROSS  CALL: 

R2,R3,R5  -  PRESERVED 
R1  -  MAY  BE  MODIFIED 


C. 
CI 
Dl 

El 
II 
Ml 
M 
PI 
Rl 
Rl 
S, 


000254 


000254  011364  000010 
000260  000402 

000262 


000262  111364  000010 

000266  010246 

000270  116402  000006 

000274  010546 

000276 

C00302  012605 

000304  012602 

000306  012603 

000310 


DDCM3: 


.IF  DF  K$$DAS 


MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

;  STORE  FUNCTION  CODE  IN  DATA  AREA 
;  POINT  R3  AT  FUNCTION  CODE 

.IFTF 

;  DF 

K$$DAS 

MOV 
BR 

(R3),C.FNC(R4)   ;  PUT  FUNCTION  AND  SUBFUNCTION  IN  CCB 
10$            ;  JOIN  COMMON  CODE 

DDCM4: 

.IFT 

;   DF 

K$$DAS 

MOV 
MOV 

R3,$DDFNC 
#$DDFNC,R3 

;  STORE  FUNCTION  CODE  IN  DATA  AREA 
;  POINT  R3  AT  FUNCTION  CODE 

.ENDC 

;   DF 

K$$DAS 

M0V8 

(R3),C.FNC(R4)   ;  PUT  FUNCTION  CODE  IN  CCB 

10$: 

MOV 

R2,-(SF) 

;  SAVE  R2 

20$: 

M0V8 

C.LIN(R4),R2 

;  GET  SLN 

22%: 
25$: 

MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 

R5,-(SP) 

DDMDSP 

(SP)t,R5 

(SP)+,R2 

(SP)*,R3 

;  SAVE  R5 

;  DISPATCH  TO  THE  DEVICE  DRIVER  (DDM) 

;  RESTORE  R5 

;  RESTORE  R? 

;  RESTORE  R3 

;  RETURN  TO  CALLING  DLC 
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CEDDMM     CREATED  BY  MACRO  OM  28-JUN-85  AT  18:18 
MACRO  CROSS  REFERENCE 


"1ACR0  NAME 

REFERENCES 

CALL 

10-30A 

10-309 

10-311 

11-56 

CALLR 

#5-65 

14-508 

14-527 

CCBDFS 

#5-64 

5-66 

DDFOF 

#6-97 

8-174 

8-175 

8-177 

8-185 

8-187 

8-188 

8-189 

ENABL$ 

#5-65 

INHIB$ 

#5-63 

IFPS 

12-396 

»ITPS 

12-40'. 

12-421 

PDVDFS 

#5-64 

5-67 

RESRG 

#5-63 

12-418 

RETURN 

11-372 

12-422 

13-460 

15-57 

SAVRG 

#5-63 

12-597 

SLTDF$ 

#5-64 

5-68 

K     8 

PAGE   5 

CREF       04.00 
8  12-394 


-179 
-191 


12-419 


8-180 
8-192 


13-453 


8-181 
8-193 


8-182 


8-183 


8-184 


•FILE"1D*«CEDDMN 
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376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

39A 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 


.SBTTL  DDMDSP  -  DISPATCH  TO  DDM  LEVEL 

»*-DDMDSP-DlSPATCH  TO  DDM  LEVEL 

THIS  SUBROUTINE  IS  CALLED  TO  DISPATCH  DOWN  TO  THE  DDM  LEVEL.  PROCESS 
DISPATCH  WILL  OCCUR  AT  THE  CURRENT  PRIORITV  OR  AT  THE  PROCESS  PRIORITY 
DEPENDENT  ON  A  PDV  FLAG. 

INPUTS: 

R2  =  SVSTE,^1  LINE  NUMBER 
REGISTERS  MODIFIED: 

R5 


DDMDSP:  CALL 
CLC 
MFPS 
SAVRG 
MOV 
ADD 
MOV 
BIT 
BEQ 

MTPS 


.IF  DF 

MFPS 
BIC6 
MTPS 

.IFF 

Bice 

.ENDC 

RESRG 

CALL 

ADC 

MTPS 

RETURN 


10$: 


FLG(R05 


SSTDDI 

-(SP) 

<R0> 

R2,R0 

SPDVTA.RO 

(R0),R0 

#ZF.DVP,Z. 

10$ 

#PR7 

L$$SI1 


-(SP) 

Z.SCH(R0),(SP) 

(SP)t 


Z.SCH(R0),PS 


SET  UP  DDM  PDV  INDEX  &  LINE  TABLE  ADDRESS 
SAVE  CURRENT  PRIORITY 

WITH  C-BIT  CLEAR 
GET  A  FREE  REGISTER 
COPY  DDM  PDV  INDEX 
POINT  INTO  PDV  INDEX  TABLE 
GET  POiNTER  TO  PDV 

IF  EQ,  RUN  DDM  AT  CURRENT  PRIORITY 

RAISE  PROCESSOR  PRIORITY 


GET  CURRENT  PRIORITY 
SET  UP  PROCESS  PRIORITY 
SET  UP  PROCESSOR  PRIORITY 


<R0> 

$PDDSP 

(SP) 

(SP)* 


DROP  TO  PROCESS  PRIORITY 


RESTORE  REGISTER 
DISPATCH  TO  THE  DDM 
UPDATE  C-BlT  IN  SAVED  PS 
RESTORE  PROCESSOR  PRIORITY 
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58 
59 
60 
61 

62  000000 

63  000000 
6A  000000 
65 


.MCALL 
.MCALL 
.MCALL 
CCBDFS 
PDVDFS 
SLTDFS 


K  10 


SAVRG.RESRG 

CC8DF$, PDVDFS, SLTDFS 


CALLR 


AVOID  SYSTEM  DEPENDENCY 
DEFINE  CCB  OFFSETS 
DEFINE  PDV  OFFSETS 
DEFINE  SLT  OFFSETS 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.TITLE  CELLC 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  SY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCOROANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  nNY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CEX  LLC  TO  DLC  8  LLC  INTERFACE  ROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNET-11M   V4.0 
DECNET-11M-PLUS    V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus   V3.0 
OEfnet-Mkro/RSX   VI. 0 


MACRO  LIBRARY  CALLS 


MS|-Bn     \i(\'^     0"<h     friHau     PS-Lrn-RS     1R:1Q        PAflp     4-1 
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CElOG  -  COMM/EXEC  EVENT  LOGGING  MACRO  V05.05b  Friday  28-Jun' 
Table  ot  contents 


K  12 

■85  18:19 


56 


lOG  NETWORK   EVENT 


I  L  12 
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CEL0G1 


CREATED  BY  MACRO  ON  28-JUN-85  AT  18:20 


SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

!$SAS 

r  ****** 

5-54 

NStEVL 

=  000001 

#4-2 

nSlID 

=  ****** 

5-54 

n$11M 

=  000000 

5-54 

n$iis 

=  ****** 

5-54 

XS$MCB 

=  ****** 

5-54 

ZF.COU 

=  001000 

#5-54 

ZF.DDM 

=  000001 

#5-54 

ZF.DIA 

=  004000 

#5-54 

ZF.DLC 

=  000002 

#5-54 

ZF.DVP 

=  100000 

#5-54 

ZF.INI 

=  040000 

#5-54 

ZF.KMX 

=  000020 

#5-54 

ZF.LLC 

^  000004 

#5-54 

ZF.LMC 

=  000100 

#5-54 

ZF.MAN 

=  020000 

#5-54 

ZF.MFL 

=  000010 

#5-54 

ZF.MTM 

=  000400 

#5-54 

ZF.MUX 

=  000040 

#5-54 

ZF.PSE 

=  002000 

#5-54 

ZF.SLI 

=  010000 

#5-54 

ZF.TIM 

=  000200 

#5-54 

ZF.X3P 

=  000000 

#5-54 

ZS.ASN 

=  100000 

#5-54 

ZS.BSY 

=  140000 

#5-54 

Z.AVL 

000014 

#5-54 

Z.DAT 

000015 

#5-54 

Z.DSP 

000000 

#5-54 

Z.FLG 

000010 

#5-54 

Z.LEN 

=  000016 

#5-54 

Z.LLN 

000006 

#5-54 

Z.MAP 

000020 

#5-54 

Z.NAM 

000004 

#5-54 

Z.PCB 

000012 

#5-54 

Z.SCH 

000007 

#5-54 

SCELFN 

=  ******  GX 

6-116 

SCELOG 

000000  RG 

#6-104 

SCMPDV 

=  »««*»«  GX 

6-109 

SLGDDB 

=  ...*.*  GX 

6-115 

SLGPDV 

=  »**»•»  GX 

6-106 

SPDDSP 

=  »*•»*»  GX 

6-117 

5-1 


5-54 


5-2 
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6-104 


CI 
$1 


5-54 
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r 


_l 


L 


CESCH 

SPDQUE  -  QUEUE 


MACRO  V05.05b  Frida/  28-Jun-85  18:20 
(CHAIN) 


A  CCE 


TO 


Page  9-1 
A  LIST  AND  SCHEDULE  PROCESS 


K  U 


3^0 
3A1 
3A2 
343 
3A4 
3'i5 
346 
347 
348 
349 
350 


000270  010467  000002G 
000274 


000274 

000300  012605 

000302 


MOV 
.ENDC 


R4,$FRKHDt2 
;  DF  R$$MPL 


20$: 


.IF  DF  M$$PR0 
CALL  a(SP)t 
.ENDC 


ENABLS 

MOV 

RETURN 


CE 


(SP)+,R5 


Set  new  last  pointer 


Co-routine  return  to  unlock  process  queue 


;;  Enable  Interrupts 
Recover  R5 
Return  to  caller 


I  u 


r 
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K2 
!A3 
H4 
K5 

147 

K8 

U9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

136 

187 

183 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 


.SBTT.  $CNV18  -  CONVERT  TO  18-BU  UNIBUS  ADDRESS 


«*-$CNVl8-C0NVERT  TO  18-BIT  UNIBUS  ADDRESS 
*»-$CNV22-C0NVERT  TO  22-BIi  08US-22  ADDRESS 

THIS  SUBROUTINE  IS  CALLED  TO  CONVERT  AN  ADDRESS  DOUBLEWORD 
TO  AN  18-6IT  UNIBUS  VIRTUAL  ADDRESS.  NOTE  THAT  THE  SUBROUTINE 
TO  CONVERT  TO  A  Q8US-22  ADDRESS  IS  THE  SAME  (AT  THE  MOMENT). 


INPUTS: 


R2  -  VIRTUAL  ADDRESS 

R3  -  RELOCATION  BIAS  (PHVSICAL  ADDRESS/100) 


OUTPUTS: 


R2  -  LOW  ORDER  16  BITS  OF  oNIBUS  ADDRESS 

R3  -  BJTS  16  S  17  OF  UNIBUS  ADDRESS  IN  BITS  0  £  1 


000114 


$CNV22: 


000114 

000114  005703 

000116  001426 


000120  066703  GOOOOOG 

000124  010246 

OC0126 

000126  042716  160000 

000132  005002 


$CNV18: 


5$: 


000006 


000'64  060316 


.ENA8L 

LS8 

.IF 

DF,K$$DAS 

MOV 

R2,-(SP) 

TST 

R3 

BNE 

5$ 

MOV 

R2,R3 

CLR 

R2           ; 

ASHC 

#3,R2 

ASL 

R2 

ADD 

#KDSAR0,R2 

MOV 

(R2),R3 

BR 

5$ 

.ENDC 

;  DF,K$$DAS 

TST 

R3           ; 

BEQ 

10$ 

ADD 

$PUMR,R3       ; 

MOV 

R2,-(SP) 

BIC 

#160000, (SP) 

CLR 

R2 

.IF  DF 

R$$EIS 

ASHC 

#6,R2         ; 

.IFF 

;  DF  R$$EIS 

.REPT 

6 

ASL 

R3 

R2 

..NDR 

.ENDC 

;  DF  RStEIS 

ADD 

R3,(SP) 

Reference  label 

Sai/e  virtual  .'■ddress 

Buffer  from  ex'C,  or  common  pool? 

If  NE,  from  com.ion  pool  -  use  bias  supplied 

Get  virtual  in  required  register 

Set  up  for  Left  shift 

Shift  active  page  field  from  virtual 

Make  it  a  word  index 

Calculate  D-space  APR  address 

Get  contents  of  APR 

Join  common  code 

Reference  label 

Buffer  from  exec,  or  comm  pool? 

If  FQ,  it's  from  exec 

(in  the  low  16  or  2C  K) 

Exec  phys  addr  =  virtual  addr  =  unibus  addr) 

Add  starting  UMK  bias  to  block  address 

Save  virtual 

Clear  APR  selector  from  virtual  address 
Initialize  18  bit  v?' -e 

ALIGN  AS  AN  18  BIT  QUANTITY 


SHIFT  LOW  ORDER  BITS 

INTO  HIGH  ORDER  2  BITS  FOR  •8-BIT  VALUE 


ADD  LOW  16  BITS  TO  SAVED  OFFSET  IN  BLOCK 
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CESUB  CREATED  Bv      MACRO     ON  28-JUN-85   AT    18:?0 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


CS.LST 

C.STS 

I$$AS 

KISAR5 

KISAR6 

KitDAS 

MSSPRO 

OFS 

R$$EIS 

R$$11D 

RSITTM 

R$$ns 

XSSMCB 
ZF.COU 
ZF.DDM 
ZF.DIA 
ZF.PLC 
ZF.DVP 
ZF.i;jI 
ZF.KMX 
ZF.LLC 
ZF.LMC 
ZF.MAN 
ZF.MFL 
ZF.MTM 
ZF.MUX 
ZF.PSE 
ZF.SLl 
TIM 
X3P 


ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.D5P 

Z.FlG 

Z.LEN 

Z.LLN 

Z.MAP 


040000 
000012 

****** 


=  000006 

r  ****** 

-  *** **♦ 

=  000000 

r  ****** 

=  ****** 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
=  000010 
=  000400 
=  000040 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 
000014 
000016 

oocooo 

OOOOiO 
000016 
000006 
000020 


GX 
GX 


REFERENCES 

5-92 
.5-92 

4-64 

8-245 
»11-390 

7-164 

15-515 
#10-323 

4-1 

4-64 

4-64 

4-64 

4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 


5-95 
•5-95 

•8-246 
•11-411 
10-323 

10-350 
4-2 


4-64 


6-130 
6-130 

9-294 

10-324 

•10-351 
7-186 
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•9-295  '9-303 

10-329  10-343 


11-398 


13-470 


10-327 
10-357 

14-501 


•10-541 


•10-361 


4-64 


Z.NAM 

000004 

#4-64 

10-338 

12-435 

Z.PCB 

000012 

#4-64 

Z.SCH 

000007 

#4-64 

SCALLX 

000316  RG 

#10-326 

SCEACC 

000424  RG 

#11-390 

SCECAf 

000432  RG 

#11-391 

SCFDIV 

000576  RG 

#14-501 

SCEMUL 

000572  RG 

#13-470 

tCMPDV 

-  »»•»»«  GX 

10-326 

•10-349 

♦10-362 

SCMQIN 

000000  RG 

#5-90 

H.MQRM 

000044  RG 

#6-125 

$CNV'18 

000114  RG 

#7-176 

$CNV22 

000114  RG 

#7-163 
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258 
259 
260 
261 
262 
263 
264 
265 
266 

cf 

268 
269 
2^0 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
285 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
293 


000302 

0003"0  0002A1 

000312 


C00324 

000330  103444 


.SBTTL  $CS6GT  -  Get  a  CCB  and  a  SmaU  Data  Buffer 

**-$CS8GT-  Get  a  CCB  and  a  SmaU  Data  Buffer 

This  routine  is  caUed  to  aUocate  a  CCB  and  a  SmaU  Data  Buffer, 
the  routine  aLso  sets  up  the  Ljffer  descriptor  in  the  CCB  to  point 
to  the  buffer  as  weLl  as  the  proper  byte  count. 

Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  the  buffer's  CCB 

C-eit  is  CLEAR  if  the  CC8/SDB  was  successfuUy  aUocated 

C-8it  is  SET  if  the  aUocation  failed 


Note: 


APR6  is  mapped  to  the  aLLocated  buffer  on  exit. 
.ENASL  LS8 


000332  012764  100014  000022 


000340  112764  000010 

J00346  016764  OOOOOOG 

000354  016764  OOOOOOG 

000362  012705  OOOOOOG 

000366 

000372  103421 

000574  00042^ 


000003 
000020 
000030 


$CS8GT::SAVRG 
CLC 
INHIB$ 

<R2,R3,R.-> 

.IF  DF 

CALL 

.ENDC 

M$$PRO 

SMPLCK         ;; 

CALL 
BCS 

CC8GT 
20$ 

MOV 

#CF.LB1CF.S0MICF.E 

M0V8 

MOV 

MOV 

MOV 

CALL 

BCS 

BR 

#C8.SDI3,C.BID(R4 

$SD8SZ,C.CNT(R4) 

$SD8SZ,C.CNT2(R4 

*$SDBLH,R5 

BUFGT 

10$ 

20$ 

■ 

Save  some  registers 

Assume  success 

;  Inhibit  Interrupts  (and  saue  C-Bit) 


Lock  access  to  CommExec  resources 


AUocate  a  CCB 

If  CS,  CCB  aUocation  failed 


Set  last  buffer  and  single  message  in 
in  flags  and  load  ID  of  CCB/SD8 
;;  Load  buffer  size 

Point  to  listhead  in  allocation  rtrt  block 
Allocate  the  buffer 

If  CS,  SDB  allocat  on  failed,  return  CCB 
Else,  enter  common  code 


CEBuF  • 


n   1 


CE.  BjffER  MANAGEMEM  «  MACRO  V05.03b  frida  28-Jun-85  18:16  Page  12 
-  ^e'j'n  a  CCB  and  a  SmaU  Data  Buffer 


CEBUF      CREATED  BY  MACRO  ON  28-JiJN-85  AT  18:17 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


BUFGT 

BUFRT 

CB.CCB 

CB.RDB 

CB.SDB 

CCBGT 

CCBRT 

CF.EOM 

CF.LB 

CF.SOM 

CMNRTN 

C.BID 

C.BUF 

C.BUF2 

C.CNT 

C.CNT2 

C.FLG 

C.FNC 

FAIL 

FC.RCE 

F5.RTN 

KISAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 


5ER 
TIM 


LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.lOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SuB 

LN.'Rl 

Lt$;r 


000610  ( 

000670  ( 

000002 

000004 

000010 

000534  I 

000572  I 

000004 

100000 

000010 

000442  I 

000003 

000014 

000024 

000020 

000030 

000022 

000010 

000660 

000002 

001000 

****** 

100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
OO00C3 
000001 
000000 
000004 
000001 
000002 
000002 

:  000017 

000360 
■  000006 


GX 


REFERENCES 


12 
15 
fi- 
ll 
6- 
8- 
11 
fi- 
ll 
9- 
•8- 
♦  9- 
9- 


*5-i 
#5-1 
#5-1 
#5- 
#5 
#5 
#5 
#5 
#5 
#5 
#5-1 
#5-1 
#5-1 
#5- 
#5 
#5- 
#5 
#5 
#5 
#5 
#5 
#5- 
#5 
#5 
#5 
#5 
#5 
#5 
#5 
6 


173 

-328 

-473 

169 

-292 

100 

176 

-290 

168 

-290 

228 

169 

213 

213 

170 

171 

168 

220 

-483 

220 

220 

156 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

63 

94 


11-296 
#19-617 


#12- 

*11- 

12- 

•  18- 

*11- 
•11- 

•  11- 


336 
292 
326 
587 
293 
294 
290 


#18-596 


•8-185 


14-399 


6-106 
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#18-578 


8-165  11-287 

10-249  12-330 

n-290 


♦15-473 

12-327 

•18-589 


•18-582 


#15-436 
#16-501 


•18-586 


•18-588 


19-618 


"19-619 


•19-622 


8-159 


8-183 


9-211 


10-243 


10-255 


11-281 


12-318 


"EBjF 


(REA'EC   3*      MACRO     ON  28-JUN-85   AT    18:17 


PAGE   2 


n   2 


ncccdCKirc 


CEBUF^  - 
tCSBGT  - 

258 

259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

237 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 


CEX  BUFFER  MANAGEMENT 
Get  a  CCB  and  a  Small 


L  3 

MACRO  V05.03b  Friday  28-Jun-85  18:17  Page  12 
Data  Buffer 

.SBTTL  SCSBGT  -  Get  a  CCB  and  a  Smalt  Data  Buffer 

•*-$CSBGT-  Get  a  CCB  and  a  Small  Data  Buffer 

This  routine  is  called  to  allocate  a  CCB  and  a  Small  Data  Buffer. 
The  routine  also  sets  up  the  buffer  descriptor  in  the  CCB  to  point 
to  the  buffer  as  well  as  the  proper  byte  count. 

Inputs: 

None. 

Outputs: 

R4  contains  the  address  of  the  buffer  s  CCB 

C-Bit  is  CLEAR  if  the  CCS/SDB  was  successfully  allocated 

C-Bit  is  SET  if  the  allocation  failed 


000302 

000310  000241 

000312 


000324 

000330  103444 


Note: 


SCSBGT: 


000332  012764  100014  000022 


000340  112764  000010 

000346  016764  OOOOOOG 

000354  016764  OOOOOOG 

000362  012705  OOOOOOG 

000366 

000372  103421 

0003^4  000422 


000003 
000020 
000030 


APR6  is  mapped  to  the  allocated  buffer  on  exit. 
.ENABL  LS8 


:SAVRG 
CLC 
INHIBS 

.IF  DF 

CALL 

.ENDC 

CALL 
BCS 

MOV 

MOVB 

MOV 

MOV 

MOV 

CALL 

BCS 

BR 


<R2,R3,R5> 


M$$PRO 
SMPLCK 


Save  some  registers 
Assume  success 
;;  Inhibit  Interrupts  (and  saue  C-Bit) 


Lock  access  to  CommExec  resources 


Allocate  a  CCB 

If  CS,  CCB  allocation  failed 


CC8GT 
20$ 

#CF.LB!CF.S0M1CF.E0M,C.FLG(R4) 

Set  last  buffer  and  single  message  in 

in  flags  and  load  ID  of  CCB/SDB 
;;  Load  butter  size 


#C8.SDB,C.B1D(R4) 

$SD8SZ,C.CNT(R4) 

$SD8SZ,C.CNT2(R4) 

#$SDBLH,R5 

BUFGT 

10$ 

20$ 


Point  to  listhead  in  allocation  Ctrl  block 
Allocate  the  buffer 

If  CS,  SDB  allocation  failed,  return  CCB 
Else,  enter  common  code 
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SCSBRT  -  Return  a  CCB  and  a  Small  Tata  Buffer 


CEBUF1  CREATED   BY      MACRO     ON  28-JUN-85   AT    18:17 

SYMBOL    CROSS   REFERENCE 
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CREF       OA.OO 


SYMBOL      VALUE 


BUFGT 

BUFRT 

CB.CCB 

CB.RDB 

CB.SDB 

CCBGT 

CCBRT 

CF.EOM 

CF.LB 

CF.SOM 

CMNRTN 

C.BID 

C.BUF 

CBUI^? 

C.CNT 

C.CNT2 

C.FLG 

C.FNC 

FAIL 

FC.RCE 

FS.RTN 

<ISAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 


UNL 
LF.X2P 
LN.CLO 
LN.DUM 
LN.LOA 
LN.LOO 
LN.OAU 
LN.OFF 
LN.ON 
LN.OOP 
LN.OPE 
LN.REF 
LN.SER 
LN.STA 
LN.SUB 
LN.TRI 

L$$sn 


000766  R 
001 0A6  R 
=  000002 
=  000004 
=  000010 
00053A  R 
000656  R 
=  000004 
=  100000 
=  000010 
00OAA2  R 
000003 
OOOOU 
000024 
000020 
000030 
000022 
000010 
001036  R 
=  000002 
=  001000 

r  ****** 

=  100000 

=  000400 

=  000007 

=  002000 

=  001000 

=  000100 

=  004000 

=  000020 

=  000200 

=  040000 

=  010000 

=  000040 

=  000010 

=  020000 

=  000000 

=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=  000002 

=  000002 

=  000017 

^  000360 

=  000006 


GX 


REFERENCES 


9- 

13 

16 

9- 

12 

7 

9 

12 

9 

12 

10 

*9- 

•  10 
10 

*9- 

*9 

♦9 

*10 
16 
10 
10 
9- 

#6-1 

#6-1 

#6-1 

#6' 

#6-' 

#6 

#6 

#6 

#6 

#6 

#6- 

#6-1 

#6-1 

#6-1 

#6-1 

#6-1 

#6' 

#6 

#6 

#6 

#6 

#6- 

#6- 

#6' 

#6' 

#6' 

ib' 

#6 

*^: 


173 
-328 

473 
169 

292 
100 
176 
-290 
168 
-290 

228 
169 

213 

213 
170 
171 
168 
-220 
-483 
-220 
-220 
156 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
65 
63 
63 
63 
63 
03 
63 
63 


12-296 
#20-617 


9-165 
11-249 

12-290 

#13-336 
•12-292 
13-326 
•19-587 
•12-293 
•12-294 
•12-290 

#19-596 


•9-185 


15-399 


7-106 


#19-578 


12-287 
13-330 


♦16-473 

13-327 

•19-589 


•19-582 


#16-436 
#17-501 


•19-586 


•19-588 


20-618 


•20-619 


•20-622 


9-159 


9-183 


10-211 


11-243 


11-255 


12-281 


15-318 


CEBUF' 
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n   4 
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DDCM2  -  COMMON  PROCESS  FOR  MODEM  CONTROL  FUNCTIONS 


L  5 


295 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 


.ENDC 


BIT 

#LF.MDC,a(R2)+  ; 

BEQ 

20$ 

MOV 

R5,-(SP) 

MOV 

R3,-(SP) 

CLR 

R2 

MOV 

a$PDVTA,('5      ; 

MOV 

Z.DAT(R5),R5    ', 

CALL 

SPDDSP 

MOV 

(SPn,R3 

M0V8 

C.LIN(R4),R2    , 

BIS 

#100000, C.LIN(R4S 

CALL 

DDMDSP 

BCS 

25$ 

CALL 

$CC6RT 

CLR 

R-i 

SEC 

BR 

25$ 

.ENDC 

DOES  LINE  NEED  MODEM  CONTROL? 

NO  -  JOIN  COMMON  CODE  TO  DISPATCH  TO  DDM 

SAVE  REGISTER 

SAVE  ADDRESS  OF  FUNCTION  CODE 

GET  AUXILARY  PROCESS  PDX  INDEX  (ALWAYS  0) 

GET  ADDRESS  OF  AUXILARY  PROCESS'  PDV 

THAT  UORKS  SINCE  IT'S  PDV  INDEX  =  0 

GET  ADDRESS  OF  DATA  BASE  DESCRIPTOR  BLOCK 

DISPATCH  TO  MODEM  CONTROLLER 

RESTORE  R3 

OBTAIN  LINE  NUMBER  (NO  SIGN  EXTENSION) 

;  INDICATE  MODEM  CONTROL  REQUEST 

DISPATCH  TO  THE  DEVICE  DRIVER  (DDM) 

REQUEST  WILL  COMPLETE  ASYNCHRONOUSLY 

OTHERWISE  RETURN  CCB  TO  POOL 

MODEM  CONTROLLER  WILL  RETURN  ASYNCHRONOUS  COMPLETION 

SET  C-8iT,  LINE  IS  MODEM  CONTROLLED 

JOIN  COMMON  CODE 
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M 

5 

:]f 

Page 

10 

(CH 

CEDDM  CREATED  BY      MACRO     ON  28-JUN-85   AT    18:1f 

SYMBOL    CROSS   REFERENCE 


L     6 

PAGE  4 

CREF       OA.OO 


CE 
DC 


SYMBOL 

VALUE 

REFERENCES 

SDDXON 

000116 

RG 

#7-191 

SLLCSP 

00037A 

RG 

#15-512 

SPDDSP 

r  *«*■*** 

GX 

11-419 

SPDQUi 

—  ****** 

GX 

13-527 

SPDVTA 

=  ****** 

GX 

11-399 

SSLTMA 

-  ****** 

GX 

14-571 

SSTDDM 

000404 

RG 

#14-558 

SSTDOI 

OOOAiQ 

RG 

11-394 

#14-564 


CEODM 
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CEDDMM  MACRO  V05.03b  Friday  28-Jun-85  18:18  Page  11- 
DDCMi  -  COMMON  PROCESS  FOR  FUNCTIONS  UITH  CC8 


L     7 


574 


.DSABL      LS8 
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M     7 


\  I  rn  A  T  I-  1 


L 


•♦F1LE«»ID**CEDDMN 


L  8 


cccccccc 
cccccccc 


cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 


cccccccc 
cccccccc 


EEEEEEEEEE 
EEEEEEEEEE 


EE 

EE 

EEEEEEEE 

EEEEEEEE 

EE 

EE 

EE 

EE 

EEEEEEEEEE 

EEEEEEEEEE 


DDODDDDD 

DDDDDDDD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DDDDDDDD 

DDDDDDDD 


DDDDDDDD 
DDDDDDDD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DD      DD 
DDDDDDDD 
DDDDDDDD 


MM     MM 

NN      NN 

MM     MM 

NN      NN 

MMMM  MMMM 

NN      NN 

MMMM  MMMM 

NN      NN 

MM  MM  MM 

NNNN    NN 

MM  MM  MM 

NNNN    NN 

MM      MM 

NN  NN  NN 

MM      MM 

NN  NN  NN 

MM      MM 

NN    NNNN 

MM      MM 

NN    N^NN 

MM      MM 

NN      NN 

MM      MM 

NN      NN 

MM      MM 

NN      NN 

MM      MM 

NN      NN 

LL 

5SSSSSSS 

TTTTT 

THTT 

LL 

ssssssss 

TTTTT 

Mill 

LL 

ss 

-L 

ss 

LL 

ss 

LL 

ss 

LL 

S::5SS 

LL 

s:  ssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSS:)S<.5 

LLLLLLLLLL 

sss<;ssis 
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L  9 


424 
A25 
426 
427 
428 
429 
430 
451 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 


.SBTTL  JDDAST  -  ASYNCHRONOUS  COMPLETION  TO  DLC  LEVEL 

'•♦-SDDAST-ASYNCHRONOUS  COMPLETION  TO  DATA  LINK  CONTROL 

THIS  SUBROUTINE  IS  CALLED  BY  DEVICE  DRIVERS  WHEN  AN  ASYNCHRONOUS 
CONDITION  MUST  BE  RETURNED  TO  A  DATA  LINK  CONTROL  MODULE  AND  NO  CCB 
IS  AVAILABLE  AT  THE  DEVICE  DRIVER. 

INPUTS: 

R3  =  ASYNCHRONOUS  COMPLETION  STATUS  (MOVED  INTO  C.STS) 
R4  =  SYSTEM  LINE  NUMBER 

OUTPUTS: 

A  CCB  IS  ALLOCAiED  ON  BEHALF  OF  THE  DEVICE  DRIVER 
AND  THE  ASYNCHRONOUS  STATUS  IS  QUEUED  TO  THE 
DATA  LINK  CONTROL  MODULE  WITH: 

C.FNC=  FC.CCP 

C.MOD=  FS.AST 

REGISTERS  MODIFIED: 
XXX 
.ENABL  LS8 


SDDAST: 


5$: 


:MOV 
CALL 
BCS 
MOV 
MOV 
BR 

MOV 
RETURN 


R4,-{SP) 

$CC8GT 

5$ 

(SP)+,C.LIN(R4) 

#FC.CCP+FS.AST,C 

20$ 

(SP)t,R4 


SAVE  LINE  NUMBER 
ALLOCATE  A  CCB 
IF  CS  ERROR 

SET  LINE  NUMBER  IN  CCB 
FNC(R4)  ;  SET  ERROR  COMPLETE  FUNCTION  CODE 
FINISH  IN  COMMON  CODE 

CLEAN  THE  STACK 
RETURN  TO  CALLER 


CEDDMN  MACRO  V05.0?b  Friday  28-Jun-85  18:18  Page  14 


n   9 


L  10 

CEDLC   M^CRO  V05.03b  f 

riday  28-Jun-85  18:19  Page  5 

SSTDLC  -  SE1  UP 

DLC  PARAMETERS  FOR  A  GIVEN  SLN 

6? 

.SSTTL  SSTDLC  -  SET  UP  DLC  PARAMETERS  FOR  A  GIVEN  SLN                          | 

68 

69 

+ 

70 

•*-$STDLC-COMPUTE  DLC  PARAMETERS  FROM  A  SYSTEM  LINE  NUMBER                            | 

71 

•*-$STDLl-(ALTERNATE  ENTRY 

72 

73 

74 
75 

INPUTS: 

R2  =  SYSTEM  LINE  NUMBER 

ALTERNATE  ENTRY  ONLY) 

76 

R4  =  ADDRESS  OF  A  CCB  WITH  A  VALID  SLN  IN  C.LIN                                | 

77 
78 
79 
80 
81 

(MAIN  ENTRY  ONLY) 

OUTPUTS: 

R2  =  PDV  INDEX  (WORD  OFFSET)                                                | 

82 

R3  =  ADDRESS  OF  FUNCTION 

CODE  CELL  IN  CCB 

83 

R5  =  ADDRESS  OF  DLC  LINE 

TABLE 

84 

85 

REGISTERS  MODIFIED: 

86 

87 

NONE 

88 

- 

89 

90  000000 

91 

92  000000 

tSTDLC:;.IF  NDF  N$$1LN 

116402 

000006 

HOVB    C.LIN(R4),R2 

GET  SYSTEM  LINE  NUMBER 

93 

94 

95 

96  000004 

97 

98 

.ENDC 

tSTDLl:;.IF  DF  N$$1LN 

MOV     a$SLTMA,R2 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE  ENTRY 

99 

100 
101 
102  000004 

.IFF 

006302 

ASL     R2 

FORM  WORD  INDEX 

103  000006 

066702 

OOOOOOG 

ADD     $SLTMA,R2 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

104  00001? 

011202 

MOV     (R2),R2 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE  ENTRY 

105 

106 
107 
106  000014 

.ENDC 

016205 

000010 

MOV     L.DLS(R2),R5 

GET  LINE  TABLE  ADDRESS 

109  000020 

116202 

000003 

MOVB    L.DLC(R2),R' 

GET  PDV  INDEX  (WORD  INDEX) 

110  000024 

010403 

MOV     R4,R3 

COMPUTE  A  POINTER  TO  THE  FUNCTION  CODE 

111  000026 

062703 

000010 

ADD     *C.FNC,R3 

112  000032 

RETURN 

RETURN  TO  CALLER 

113 
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58 
59 

60  000000 

61  000000 

62  000000 
63 


.MCALL 
.MCALL 
CCBDFS 
PDVDFS 
SLTDFS 


L  n 


CC8DF$,PDVDF$,SAVRG,RESRG,SLTDF$ 


CALLR 


AVOID  SYSTEM  DEPENDENCY 
DEFINE  THE  CCB  OFFSETS 
DEFINE  THE  PDV  OFFSETS 
DEFINE  THE  SLT  OFFSETS 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
M, 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54  000000 


.IIF  NDf  N$$EVL  , 
.IIP  Df  N$$EVL  . 
.IDENT  /V05.00/ 


TITLE 
TITLE 


CELOG  -  COMM/EXEC  EVENT  LOGGING  ROUTINES 
CEL0G1  -  COMM/EXEC  EVENT  LOGGING  ROUTINES 


COPYRIGHT  (C)  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFOfiMATJON  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  IHE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  EVENT  LOGGING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  30-JAN-80 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


PI 
Rl 
Rl 
S. 


.MCALL      PDVDF$.SAVRG,RfSRG 


PDVDFS 


;  DEFINE  PDV  OFFSETS 


•Ci  nr.    _    rnMM/cvcr    cwCMT    incr.lur    MACDn    \/nR    n7h    Fn'Hav    PR- 


N  12 

-R5    1R-1Q      P;inp    S 


r 


L 


CElOG'  created   BV      macro     on   28-JUN-85    AT    18:20 

MACRO   CROSS   REFERENCE 
MACRO  ^JAME  REFERENCES 


L   13 

PAGE   2 

CREf        0^.00 


CI 
Pi 


CALL 

6-117 

PDVDF$ 

#5-52 

5-5^ 

RESRG 

»5-52 

6-11 

RETJRN 

6-125 

SA\/RG 

»5-52 

6-11 

n  13 


r 


L 


CESCh 
POwERFAl 

?5? 
353 
354 
355 
35t 
357 
358 
359 
360 
361 
362 
363 
364 
365 
^66 
567 
368 
369 
370 
371 
372 
373 
374 
375 
376 
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L  RECOVERY  ROUTINE 


L  U 


.S8TTL   POWERFAIL  RECOVERY  ROUTINE 

-SCEPWR-POWERFAIL  RECOVERY  ROUTINE 

This  routine  is  dispatched  from  the  excutiue  powerfail  recouery 
code.  It  will  dispatch  to  the  AUX  process  with  a  powerfail 
recovery  function  code. 


000304 


000304  012703  OOOOOOG 
000310  005002 
000312 


iCEPWR: 


000316 


000001 


.IF  DF 
MOV 
MOV 
.ENDC 

R$$MPL 

$DDFNC,-(SP) 
#FC.PWR,$DDFNC   ; 

MOV 
CLR 
CALL 

#$DDFNC,R3      ; 

R2 

SPDSPL 

.IF  DF 

MOV 

.ENDC 

R$$MPL 

(,SP)  +  ,$DDFNC 

RETURN 

.END 

Save  current  function  code 
Set  up  powerfail  function  code 


Point  to  powerfail  recovery  function  code 
Set  up  PDV  index  (AUX  is  always  zero) 
and  dispatch  to  the  process 


Restore  current  function  code 


N  H 


r 


J 
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L  15 


199  000166 

200  000170 

201  000172 

202  000174 
203 


005502 
010203 
012602 


10$: 


ADC 

R2 

MOV 

R2,R3 

MOV 

(SP)+,R2 

RETURN 

.DSA8L 

LS8 

ADD  OVERfLOU  TO  BITS  16  i   M 
GET  HIGH  ORDER  BITS  INTO  R3 
AND  LOW  ORDER  BITS  INTO  R2 
RETURN 


N  15 


J 


SYMBOL  rROSb  PFfERENCF 
SYMBOL   VALUE 


$D  I V 

$MUi 

SMVFBF 

tMV'TBF 

tPDVlD 

SPDVNM 

SPDVTA 

SPUMR 

SXBIAS 


CESUB 


CREATED  B*  MACRO  ON  28-JUN-85  AT  18:^0 


»»*.».  GX 
......  GX 

0002A2  RG 

000176  RG 

0005U  RG 
..»»..  GX 
......  GX 

.»»•..  GX 


L  16 

PAGE  2 

CREF   04.00 


REFERENCES 

K-511 

13-A77 
#9-295 
#8-24'!. 
#12-A50 

12-432 

10-335 

7-181 

11-390 


10-348 


12-431 


12-443 


H  16 


S';b«- 


n  1 

:Ex  9'jFfER  MANAGEMENT  R  MACRO  V05.03b  Frida  ?8-Jun-85  18:16  Page  12 
-  Return  a  CCB  anO  a  Small  Data  Sutter 


300 

3C' 

302 

303 

30'. 

305 

30fc 

30^ 

308 

30=s 

310 

311 

3'2 

3^3 

3U 

315 

316 

517 

318 

319 

320 

32' 

322 

323 

52'. 

325 

326 

32^ 

328 

329 

53C 

55- 

332 

333 

33'. 

355 

55t 

337 

338 

339 

3AC 


OCO'.'.i 
C0C'.'.6 
OCO'.?'. 


.SBTTL  $CS8RT  -  Return  a  CCB  and  a  Small  Data  Buffer 
•*-$CS8RT-  Return  a  :CB  and  a  Small  Data  Buffer 


Inputs : 


This  routine  i;  called  to  deallocate  a  CCB  and  a  Small  Data  Buffer 
which  is  point- ^  to  by  the  firsi  bu'fer  descriptor  in  the  C(B. 

s: 
R4  contains  th>?  address  of  the  CCB 

Note  tiat  C.BUFt2  must  contain  the  original  Virtual 
Address  of  the  buffer,  and  C.BUF  must  contain  the  original 
Bias  of  the  buffer. 


000576 

QOO^OA 

000416  0^2/05  OOOOOOG 
000422 


000';22  016403  000014 
000426  016402  0000^6 
000452 

000436 

00044? 


Outputs: 

None. 


$CSBRT::SAVRG    <R2,R3,R5> 
INHIBS 


MOV 


*JSDB[f,R5 


RELBUF:  .IF  DF  M$$PRO 
CALL  SMPLCK 
.ENDC 


MOV 
MOV 
CALL 

C.BUF (R4),R5 

C.8UF«2(R4),R2 

BUFRT 

10$: 

CALL 

CCBRT 

20$: 

.IF  DF 

CALL 

.EN'DC 

M$$PRO 
S(SP)» 

CMNRTN 

ENA8L$ 

RESRG 

RETURN 

<R5,R5,R2> 

.D5ARL   LS8 


Saue  some  registers 
; ;  Inhibit  Interrupts 

; ;  Point  to  count  in  allocation  control  block 

; ;  Lock  access  to  CommExec  resources 

; ;  Set  up  address  of  the  buffer 
as  an  addre-s  double  word 
;;  Release  the  juffer 

;;  Release  the  CCB 

; ;  Co-Routine  return  to  unlock  resources 


Enable  interrupts  (and  load  final  C-Bit^ 
Restore  reoisters 


N  1 


CEBuf  -  CEx  SufFER  MANAoEMFM  R  MACRO  V05.03b  Friday  28-Jun-85  15:16  Page  '3 
JRDBw'  -  Queue  a  request  tor  a  Recei.e  Data  Butter 
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SYMBOL    CROSS   PEfERENCE 


n   2 

PAGE    ? 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 
12-336 

L.COST 

000015 

#5-63 

L.Ca 

000012 

#5-63 

L.CVA 

177776 

#5-63 

..DDM 

000002 

#5-63 

L.DDS 

OOOOOA 

#5-63 

L.DLC 

000003 

^5-63 

L.DLM 

000006 

#5-63 

L.DLS 

000010 

#5-63 

L.fLG 

000000 

#5-63 

L.KRBA 

000016 

#5-63 

L.LEN 

=  000022 

#5-63 

L.MPF 

000022 

#5-63 

L.NMST 

000020 

#5-63 

L.NSTA 

OOOOU 

#5-63 

L.OWNR 

000021 

#5-63 

L.UNT 

000013 

#5-63 

M$$PHO 

-      »♦*••» 

5-71 

6-96 

6-102 

8-161 

8-179 

9-222 

10-245 

12-322 

12-552 

15-560 

13-569 

14-392 

14-403 

15-475 

N$$OP' 

r     ♦»♦**» 

4-1 

4-2 

15-456 

16-501 

N$$VCT 

r     ****** 

8-156 

8-185 

18-582 

19-618 

19-619 

19-622 

PRIOFf 

=  000000 

#5-69 

•18-596 

PR" 

3    ****** 

GX 

6-94 

8-159 

9-211 

10-245 

11-281 

12-518 

PS 

-    ****** 

GX 

6-94 

•  6-94 

•6-106 

8-159 

•8-159 

•8-185 

9-211 

.10-243 

•10-255 

11-281 

•11-281 

12-318 

•12-518 

•12-556 

RELBUF 

000422 

R 

9-217 

#12-522 

SF.ACT 

=  000200 

#5-63 

SF.ENA 

=:   000100 

#5-63 

SF.LPB 

=   000004 

#5-65 

SF.MFl 

=  OOOOAO 

#5-63 

SF.PAC 

=  000020 

#5-63 

SF.REA 

=  000010 

#5-63 

SF.SER 

=  000001 

#5-63 

3F.SVC 

=  000002 

#5-63 

SF.JNL 

=  000040 

#5-63 

S.rOST 

000001 

#5-63 

S.FLG 

000000 

#5-63 

S.LEN 

000004 

#5-65 

S.NMST 

000002 

#5-63 

S.OulNR 

000003 

#5-65 

SCCBAF 

=    ****** 

GX 

•15-482 

SCCBCT 

r     ****** 

GX 

•15-471 

•16-554 

SCCBGT 

000000 

RG 

#6-95 

SCCBLl^ 

r    ****** 

GX 

15-468 

•15-470 

16-532 

•16-533 

SClBRT 

000256 

RG 

#10-243 

tCSBG' 

000302 

RG 

#11-279 

tCSBR' 

000376 

RG 

#12-317 

tLDBAf 

-       ****** 

GX 

•7-134 

$LC8GT 

000026 

RG 

#7-132 

tLDBR' 

000170 

RG 

#9-209 

^PDOuE 

GX 

9-227 

$RD6CT 

-   ...... 

GX 

7-132 

9-215 

10-251 


•9-211 


11-283 


10-245 
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CEBUFI  - 
tCSBRT  ■ 

500 

501 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

354 

555 

556 

557 

553 

539 

540 
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000442 
000446 
000454 


.SBTTL  SCSBRT  -  Return  a  CCS  and  a  Small  Data  Butter 

♦•-$CS8RT-  Return  a  CCB  and  a  Small  Data  Butter 

This  routine  is  called  to  deallocate  a  CCB  and  a  Small  Data  Butter 
which  is  pointed  to  by  the  tirst  butter  descriptor  in  the  CCB. 

Inputs: 

R4  contains  the  address  ot  the  CCB 

Note  that  C.BUF+2  must  contain  the  original  Virtual 
Address  ot  the  butter,  and  C.BUF  must  cortain  the  original 
Bias  of  the  butter. 

Outputs: 

None. 


000576 
000404 

000416  012705  OOOOOOG 

000422 


000422  016405  000014 
000426  016402  OOOOli^ 
000432 

000456 

000442 


SCSBRT: :SAVR6   <R2,R5,R5> 
INHIBS 


MOV 


#$SDBCT,R5 


RELBUF: 

.IF  DF 

CALL 

.ENDC 

M$$PR0 
$MPLCK 

MOV 
MOV 
CALL 

C.euF(R4),R5 

C.SUF+2(R4),R2 

BUFRT 

10$: 

CALL 

CCBRT 

20$: 

.IF  DF 

CALL 

.ENDC 

M$$PRO 
a(SP)+ 

CMNRTN: 

ENA8L$ 

RESRG 

RETURN 

<R5,R5,R2> 

.DSABL 

Lsa 

Saue  some  registers 

; ;  Inhibit  Interrupts 

;;  Point  to  count  in  allocation  control  block 

;;  Lock  access  to  CommExec  resources 

;;  Set  up  address  of  the  butter 
; ;   as  an  address  double  word 

;;  Release  the  buffer 

;;  Release  the  CCB 

; ;  Co-Routine  return  to  unlock  resources 


Enable  interrupts  (and  load  final  C-Bit) 
Restore  registers 
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SYMBOL  CROSS  REFERENCE 


n   A 

PAGE  2 

CREF   OA.OO 


SYMBOL   VALUE 


L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.OLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMCT 

L.NSTA 

L.OWNR 

L.UNT 

M$$PRO 


N$$OPT 
N$$VCT 
PRIOFF 
PR  7 
PS 

RELBUF 

R$$MPL 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

SALOCB 

SCCBAF 

JCCBAL 

SCCBCT 

SCfBGT 

SCCBLH 

SCCBRT 

$CCBS7 

SCEAVL 

SCSBGT 


000015 
000012 
177776 
000002 
OOOOOA 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 

****** 


000001 
****** 

000000 
*«»**♦  GX 
******  GX 

000422  R 

***♦•♦ 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000001 

000000 

000004 

000002 

000003 

GX 
GX 
GX 
GX 

000000  RG 

.**»*«  GX 

C00256  RG 

..**..  GX 

.**...  GX 

000302  RG 


****** 


REFERENCES 

13-336 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 

6-71 

13-322 

17-520 
#4-2 

9-156 
#6-69 

7-94 

7-94 
*11-243 

10-217 

17-503 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 

10-454 
♦16-482 

16-444 

16-441 
#7-93 

16-468 
#11-243 

16-448 

17-504 
#12-279 


7-96 
13-332 

5-1 

9-185 

16-438 

9-159 

•  7-94 

•11-255 

#13-322 


7-102 
14-360 

5-2 

19-582 
17-508 
10-211 
•7-106 
12-281 


9-161 
14-369 

16-436 
20-618 

•19-596 
11-243 
9-159 

♦12-281 


9-179 
15-392 

17-501 
20-619 

12-281 
•9-159 
13-318 


10-222 
15-403 


20-622 

13-318 
•9-183 
•13-318 


11-245 
16-4  50 


10-211 
•13-336 


11-251 
16-459 


•10-211 


12-283 
16-475 


11-243 


•16-465 
•16-471 

•16-470 

17-518 


17-513 
17-511 

17-532 


•17-527 
♦  17-534 

♦17-533 


lEBoFl 
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31^ 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

3'.6 

347 

348 

349 


.SBTTL  DDCM3  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 
.SBTTL  DDCM4  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 


»*-DDCM3  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 
♦*-DDCM4  -  COMMON  PROCESS  FOR  FUNCTIONS  WITH  CCB 

INPUTS: 

R3  =  ADDRESS  OF  FUNCTION  AND  SU8FUNCTI0N  CODE  (DDCM3) 
R3  =  ADDRESS  OF  FUNCTION  CODE  ONLY  (DDCM4) 
R4  =  ADDRESS  OF  CCB 
STACK  CONTAINS: 

OO(SP)  =  CALLERS  R3 

02(SP)  =  RETURN  ADDRESS  TO  CALLING  DLC 

OUTPUTS  TO  DDM: 

R3  =  SU8FUNCTI0N  CODE  (WORD  INDEX) 

R4  =  ADDRESS  OF  CCB 

R5  =  ADDRESS  OF  LINE  TABLE 

REGISTERS  ACROSS  CALL; 

R2,R3,R5  -  PRESERVED 
R4  -  MAY  BE  MODIFIED 


000150 


0DCM3: 


.IF  DF  K$$DAS 


350  000150 

011364 

000010 

351  000154 

000402 

352 

353  000156 

354 

355 

356 

357 

358 

359 

360 

361  000156 

111364 

000010 

362 

363  000162 

364 

365  000164 

010246 

116402 

000006 

366 

367  000170 

010546 

368  000172 

369  0001 76 

012605 

370  000200 

012602 

371  000202 

012605 

372  000204 

373 

0DCM4: 


10$ 
20$ 
22i 
25$ 


MOV 
MOV 


.IFTF 


MOV 
BR 


.IFT 

MOV 
MOV 

.ENDC 

MOVB 

MOV 

Move 

MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 


R3,$DDFNC 
#$DDFNC,R3 


STORE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


DF  K$$DAS 


(R3),C.FNC(R4) 
10$ 


PUT  FUNCTION  AND  SUBFUNCTION  IN  CCB 
JOIN  COMMON  CODE 


DF  K$$DAS 


R3,$DDFNC 
#$DDFNC,R3 


STORE  FUNCTION  CODE  IN  DATA  AREA 
POINT  R3  AT  FUNCTION  CODE 


;  DF  K$$DAS 

(fi3),C.FNC(R4)   ;  PUT  FUNCTION  CODE  IN  CCB 

R2,-(SP)       ;  SAVE  R2 

C.LIN(R4),R2    ;  GET  SLN 

R5,-(SP)       ;  SAVE  R5 

DDMDSP         ;  DISPATCH  TO  THE  DEVICE  DRIVER 

(SP)+,R5       ;  RESTORE  R5 

(SP)+,R2       ;  RESTORE  R2 

(SP)*,R3       ;  RESTORE  R3 

;  RETURN  TO  CALLING  DLC 


.DCM) 
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MACRO  CROSS 

RE 

ERENCE 

CREF       04.00 

NIACRO  NAME 

REFERENCES 

CALL 

10-368 

11-394 

11-419 

12-453 

CALLR 

#A-65 

15-508 

13-527 

CCBDFS 

#4-64 

4-66 

DDFDF 

#5-97 

7-174 

7-175 

7-177             7-179 

7-180 

7-181 

7-185 

7-187 

7-188 

7-189             7-191 

7-192 

7-193 

ENABLS 

#4-63 

INHIBS 

#4-63 

MFPS 

11-396 

MIPS 

11-404 

11-421 

PDVDFS 

#4-64 

4-67 

RESRG 

#4-63 

11-418 

RETURN 

10-372 

11-422 

12-460 

14-578 

SAVRG 

#4-63 

11-397 

SLTDFS 

#4-64 

4-68 

CE 
DC 


7-182 


7-183 


7-184 


,»F  !LF««lD"tEDDMM 
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376 

378 

379 

380 

381 

382 

383 

38^ 

385 

386 

387 

388 

389 

590 

391 

392 

593 

39A  000312 

395  00C316 

596  000320 

597  00032A 

598  000326 
399  000330 
AOO  000334 
liOl  000336 
402  000344 
403 

404  000546 

405 

406 

407 

408 

409 

410 

411 

412 

415 

414  00G354 

415 

416 

417 

418  000362 

419  000564 

420  000370 

421  000372 

422  000576 


.SBTTL  DDMDSP  -  DISPATCH  TO  DDM  LEVEL 

**-DDMDSP-DISPATCH  TO  DDM  LEVEL 

THIS  SUBROUTINE  IS  CALLED  TO  DISPATCH  DOWN  TO  THE  DDM  LEVEL.  PROCESS 
DISPATCH  WILL  OCCUR  AT  THE  CURRENT  PRIORITY  OR  AT  THE  PROCESS  PRIORITY 
DEPENDENT  ON  A  PDV  FLAG. 

INPUTS: 

R2  =  SYSTEM  LINE  NUMBER 
REGISTERS  MODIFIED: 

R5 


000241 


010200 
066700 
011000 
032760 
001406 


OOOOOOG 
100000  000010 


DDMDSP:  CALL 
CLC 
MFPS 
SAVRG 
MOV 
ADD 
MOV 
BIT 
BEQ 


146067  000007  OOOOOOG 


10$: 


005516 


.IFF 

Bice 

.ENDC 

RESRG 
CALL 
ADC  . 
MIPS 
RETURN 


SSTDDI 

-(SP) 

<R0> 

R2,R0 

SPDVTA.RO 

(RO),RO        , 

#ZF.DVP,2.FLG(R0) 

10$ 


MTPS  *PR7 

.IF  DF  L$$SI1 

MFPS  -(SP) 

BIC8  Z.SCH(RO!,(SP) 

MTPS  (SP)+ 


SET  UP  DDM  PDV  INDEX  8  LINE  TABLE  ADDRESS 
SAVE  CURRENT  PRIORITY 

UITH  C-BIT  CLEAR 
GET  A  FREE  REGISTER 
COPY  DDM  PDV  INDEX 
POINT  INTO  PDV  INDEX  TABLE 
GET  POINTER  TO  PDV 

IF  EG,  RUN  DDM  AT  CURRENT  PRIORITY 

RAISE  PROCESSOR  PRIORITY 


GET  CURRENT  PRIORITY 
SET  UP  PROCESS  PRIORITY 
SET  UP  PROCESSOR  PRIORITY 


Z.SCH(RO),PS 


<R0> 
$PDDSP 
(SP) 
(SP)t 


DROP  TO  PROCESS  PRIORITY 


RESTORE  REGISTER 
DISPATCH  TO  THE  DDM 
UPDATE  C-BIT  IN  SA"ED  PS 
RESTORE  PROCESSOR  PRIORITY 
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SSTDDM  -  SET  DDM  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
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465 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

■^01 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 


.SBTTL 
.S8TTL 
.SBTTL 
.SBTTL 


M  9 


SDDXMP  -  TRANSMIT  COMPLETE  TO  DLC  LEVEL 
SDDRCP  -  RECEIVE  COMPLETE  TO  DLC  LEVEL 
SDDCCP  -  COi'iJTROL  COMPLETE  TO  DLC  LEVEL 
SDDKCP  -  KILL  COMPLETE  TO  DLC  LEVEL 


*«-$DDXMP-TRANSMIi  COMPLETE  TO  DATA  LINK  CONTROL 
•♦-SDDRCP-RECEIVE  COMPLETE 
**-$DDCCP-CONTROL  COMPLETE 
♦  — $DDKCP-KILL  COMPLETE 
»*-$LLCSP-SPECIAL  ENTRY  POINT  FOR  X25 

THIS  SUBROUTINE  IS  CALLED  BV  DEVICE  DRIVERS  TO  QUEUE 
COMPLETION  NOTIFICATIONS  TO  DATA  LINK  CONTROL  MODULES. 

THE  SLLCSP  ENTRY  POINT  IS  PROVIDED  FOR  USE  BY  THE  X25  DATA  LINK  MAPPING. 


INPUTS: 


R3  =  OPERATION  COMPLETION  STATUS 
R4  =  ADDRESS  OF  CCB  TO  QUEUE 

THE  CC8  CONTAINS  A  VALID  LINE  NUMBER 


OUTPUTS: 

THE  CCB  IS  QUEUED  TO  A  DLC  LIST  BASED 

ON  THE  SYSTEM  LINE  NUMBER  PARAMETER  IN  THE  CCB  WITH  A 

TRANSMIT  OR  RECEIVE  COMPLETE  FUNCTION  CODE. 

REGISTERS  MODIFIED: 

XXX 


SDDXMP: :MOVB 
BR 

SDDRCP: :M0V8 
BR 

$DDKCP::M0V8 
BR 

$DDCCP::TST 
BPL 
CALLR 


10$: 


Move 


#FC.XCP,C.FnC(R4)  ;  SET  TRANSMIT  COMPLETE  FUNCTION  CODE 

20$  ;  JOIN  COMMON  CODE 

*FC.RCP,C.FNC(R4)  ;  SET  RECEIVE  COMPLETE  FUNCTION  CODE 

20$  ;  JOIN  COMMON  CODE 

#FC.KCP,C.FNC(R4)  ;  SLT  KILL  COMPLETE  FUNCTION  CODE 

20$  ;  JOIN  COMMON  CODE 

C.LIN(R4)       ;  SPECIAL  MODEM  CONTROL  COMPLETION? 

10$  ;  NO 

$CCBRT         ;  YES  -  RETURN  CCB  TO  POOL 

;  MODEM  CONTROLLER  WILL  POST  COMPLETION 

#FC.CCP,C.FNC(R4)  ;  SET  CONTROL  COMPLETE  FUNCTION  CODE 


$LLCSP:: 
SDDSPC:: 
20$:    MOV 


,IF  DF 


Move 

ASl 


R3,C.STS(R4) 

M$$PRO 

C.L1N(R4),R3 
R3 


SET  COMPLETION  ST.JUS 


GET  SYSTEM  LINE  » 
FORM  WORD  OFFSET 
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115 
116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

1A0  000034 

Kl   OOOOAO     103455 

142  000042     012764 

143  000050  010264 
K4  000054  000417 
145 


.SBTTL  SASCMP  -  ASYNCHRONOUS  COMPLETION  TO  LLC  LEVEL 

'*•-  SASCMP  -ASYNCHRONOUS  COMPLETION  TO  LOGICAL  LINK  CONTROL  MODULES 

THIS  ROUTINE  IS  CALLED  BY  DATA  LINK  CONTROL  PROCESSES  TO  PASS 
ASYNCRCNOUS  STATUS/ERROR  INFORMATION  TO  HIGHER  LEVEL  PROCESSES. 


INPUTS: 

R2 
R3 

OUTPUTS: 


STATION  NUMBER  AND  SYSTEM  LINE  NUMBER 
ASYNCHRONOUS  STATUS/ERROR 


A  CC8  IS  ALLOCATED  ON  BEHALF  OF  THE  CALLER  AND  BASED  ON  THE 
SYSTEM  LINE  NUMBER,  IS  QUEUED  TO  THE  APPROPRIATE  LOGICAL 
LINK  CONTROL  PROCESS. 

REGISTERS  MODIFIED: 

R3  AND  R4 

.ENABL  LS8 


000020 
000006 


000010 


$ASCMP::CALL 
BCS 
MOV 
MOV 
BR 


SCCBGT 

30$ 

*FC.CCP+FS.AST, 

R2,C.LIN(R4) 

10$ 


ALLOCATE  A  CCB 
IF  rs  FRROR 
FNC(R4)  ;  SET  ERROR  COMPLETE  FUNCTION  CODE 
SET  UP  STATION  ADDRESS/SYSTEM  LlNE  NJMBER 
FINISH  IN  COMMON  CODE 
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65 

66 

67 

68 

69 

70 

71 

72 

73 

7^ 

75 

"6 

77 

78 

79 

80 

81 

82 

83 

84 

85  000000 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  OOOCOO 
Ml  OOOOU 
112  000020 
113 

114  000024 

115  000030 

116  000032 

117  000034 
118 

119 

120  000042 

121  000046 


.SBTTL   SLLCRQ  -  LLC  TO  DLC  REQUEST  QUEUING  SUBROUTINE 

'»*-  $LLCRQ  -  LLC  TO  DLC  REQUEST  QUEUING  SUBROUTINE 

THIS  ROUTINE  IS  CALLED  BY  A  LLC  PROCESS  TO  QUEUE  REQUESTS  TO 
A  DLC  PROCESS.  NOTE  THAT  THE  CALLERS  CONTEXT  IS  SAVED  AS  IF 
AN  INTERRUPT  HAD  OCCURRED. 

INPUTS: 

R4=     ADDRESS  OF  CCB  (OR  FIRST  IN  CHAIN) 
THE  CCS  MUST  roNTAIN  A  VALID: 

C.FNC  8  C.MOD  -  REQUEST  FUNCTION  CODE 

C.LIN   -      LLC  CHANNEL  NUMBER  (LOGICAL  LINE  NUMBER) 

OUTPUTS: 

THE  REQUEST  IS  DISPATCHED  TO  THE  PROPER  DLC  PROCESS 

REGISTERS  MODIFIED: 
NONE 


SLLCRQ:: 


016701 
066701 


OOOOOOG 
OOOOOOG 


116403  000006 

006303 

061103 

016364  000020 


000006 


.IF  DF  M$$PR0 


SAVRG 

MOV 

ADD 

M0V6 

ASL 

ADD 

MOV 


M0V8 

ASL 

ADD 

MOV 

MOV 

MOV 

CALL 

MTPS 

RESRG 

RETURN 

.IFF 

SAVRG 

MOV 

ADD 

M0V8 

ASL 

ADD 

MOV 


CAlL 
CALL 


<R1,R3,R4 

$CMPDV,R1 

SPDVTA.Rl 

C.LIN(R4) 

R3 

(R1),R3 

Z.MAP(R3) 


C.LIN;R4) 

R1 

$SLTMA,R1 

(RD.Rl 

L.KR8A(R1 

K.URM(RI) 

SPDQUl 

*0 

<R4,R3,R1 


>  ;  SAVE  REGISTERS 

;  GET  CURRENT  LLC  PDV  INDEX 

;  POINT  INTO  PDV  INDEX  TABLE 

,R3    ;  GET  LLC  CHANNEL  NUMBER 

;  MAKE  IT  A  WORD  INDEX 

;  POINT  TO  LLC  CHANNEL  MAPPING  TABLE  ENTRv 
,C.LIN(R4)  ;  STORE  SLN  AND  STATION  ADDRESS  INTO  CCB 

;  NOTE  -  BIT15  WILL  ALWAYS  BE  CLEAR  TO 

;  FLAG  DESTINATION  PROCESS  AS  A  DLC 

,R1    ;  GET  SYSTEM  LINE  NUMBER 

;  FORM  WORD  OFFSET 

;  POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

;  GET  ADDRESS  OF  SYSTEM  LINE  TABLE  ENTRY 

),R1   ;  GET  POINTER  TO  KRB 
,C.URM(R4)  ;  SET  UP  UNIBUS  RUN  MASK 

;  QUEUE  REQUEST  CCB  AND  SCHEDULE  PROCESS 

;  DROP  PRIORITY  TO  0  AND  CLEAR  CONDITION  CODES 

>  ;  RESTORE  REGISTERS 


;  OF  M$$PRO 

<R0,R1,R2,R3,R4,R5>  •  SAVE  ALL  REGISTERS 
iCMPDV.RI       ;  GET  CURRENT  LLC  PDV  INDEX 
SPDVTA.Rl       ;  POINT  INTO  PDV  INDEX  TABLE 

C.LIN(R4),R3    ;  GET  LLC  CHANNEL  NUMBER  WITHOUT  SIGN  EXTENSION 

R3  ;  MAKE  U  A  WORD  INDEX 

(R1),R3        ;  POINT  TO  LLC  CHANNEL  MAPPING  TABLE  ENTRY 

Z.MAP(R3),C.L1N(R4)  ;  STORE  SLN  AND  STATION  ADDRESS  INTO  CCB 

;  NOTE  -  BIT15  WILL  ALWAYS  BE  CLEAR  TO 

;  FLAG  DESTINATION  PROCESS  AS  A  DLC 

SSTDLC         ;  SET  UP  DLC  PDV  INDEX  AND  LINE  TABLE  ADDRESS 

$PDS°L         ;  DISPATCH  TO  DLC 


,nt;  ^?^^  c  ^  ;  a^ 


.!)■;  IS  .  1Q   D^na     i;.! 
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CElOG  -  COMM/EXEC 
LOG  NETWORK  EVENT 

56 
57 
58 
59 
60 
61 
62 
65 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
'o 
97 
98 
99 
TOO 
101 
102 
103 

104  000000 
105 
106 
107 
108 
109 
110 
111 
112 
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.SBTTL  LOG  NETWORK  EVENT 

••-$CELOG-LOG  NETWORK  EVENT 

INPUTS: 

RO  -  EVENT  CLASS  AND  TYPE 

R1  -  EVENT  CONTROL  WORD: 

LOW  BYTE: 

BIT   0 


1  =>  R4  IS  ADDRESS  OF  A  CCS 

0  =>  R4  IS  A  DATA  AREA  POINTER 

1  =>  LINE-ID  IS  SLN  &   STATION 

0  =>  LINE-ID  IS  PDV  8  CHANf  .L 

1  =>  EVENT  IS  ASSOCIATED  WITH  A  LINE 

0  =>  EVENT  IS  NOT  ASSOCIATED  WITH  A  LINE 

1  =>  EVENT  IS  ASSOCIATED  WITH  A  REMOTE  NODE 

0  =>  EVENT  IS  NOT  ASSOCIATED  WITH  A  REMOTE  NODE 


=>  EVENT  IS  ASSOCIATE'  WITH  A  CIRCUIT 

=>  EVENT  IS  NOT  ASSOCIATED  WITH  A  CIRCUIT 


1  =>  EVENT  IS  ASSOCIATED  WITH  A  MODULE 

0  =>  EVENT  IS  NOT  ASSOCIATED  WITH  A  MODULE 

1  ^>  USE  LINE-ID  FROM  CCB 

0  =>  USE  LINE-ID  FROM  EVENT  DESCRIPTOR  BLOCK 


HIGH  BYTE: 

/»  OF  BYTES  OF  DATA  TO  COPY 

R3  -  POINTER  TO  EVENT  DESCRIPTOR  BLOCK: 

WORD 


2-4 

5 

6 

7 

8 


LINE-ID  (SLN  &  STATION  OR  PDV  &  CHANNEL) 

EVENT  DEPENDENT  DATA 

NODE  ADDRESS 

MODULE  ID  (CODED  VALUE) 

PORT  # 

LOGICAL  CHANNEL  # 


R4  -  POINTER  TO  CCB  OR  DATA  AREA  POINTER 

REGISTERS  TODIFIED: 

RO,  R1,  R2,  R5,  R5 


kELOG::.IF  DF   N$$EVL 


MOV 
BE(3 

MOV 

MOV 
MOV 
MOV 


$LGPDV,R2 
10$ 

$CMPDV,-(SP) 
R3,-(SP) 
R1,-(SP) 
SP,R1 


GET  PDV  INDEX  OF  LOGGING  PROCESS 
IF  EQ,  NO  LOGGING 

SAVE  CALLING  PROCESS  PDV  INDEX 

SAVE  ADDRESS  OF  EVENT  DESCRIPTOR  BLOCK 

AND  EVENT  CONTROL  WORD 
SET  UP  POINTER  TO  CONTROL  BLOCK 


.n,z     A7t, 


N  12 

-Qc:     1  Q  .  1Q 


_J 


M  13 


'>1D"CE5CH 


cccccccc 

EEEEEEEEEE 

SSSSSSSS 

cccccccc 

HH      HH 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

cccccccc 

HH      HH 

EE 

SS 

HH      HH 

EE 

SS 

HH      HH 

EE 

SS 

HH      HH 

EE 

SS 

HH      HH 

EEEEEEEE 

ssssss 

HHHHHHHHHH 

EEEEEEEE 

ssssss 

HHHHHHHHHH 

EE 

ss 

HH      HH 

ss 

HH      HH 

EE 

ss 

HH      HH 

EE 

ss 

HH      HH 

ccccctcc 

EEEEEEEEEE 

.,  ssssss 

cccccccc 

HH      HH 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

cccccccc 

HH      HH 

SSSSSSSS 

riTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL         SSSSSSSS 


TT 


N  13 


ESCH 
Symbc'. 

A$$rHK= 
ASSCPS= 
A$$PR!= 
A$t'RP= 
CB.CCB= 
CB.DDM= 
CB.DLC= 
CB.RDB= 
CB.SDB= 
CB.SLI= 
CB.XLB= 
CC.LLC= 
CE.ABO= 
CE.DAO= 
CE.DIS= 
CE.ERR= 
CE.ILN= 
CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
CE.TMO= 
CE.UNS= 
CF.CHN= 
CF.DDM= 
rF.DVN= 
CF.EIS= 
Cf .EOM= 
CF.FRK= 
CF.HDR= 
CF.IB  = 
CF.LIN= 
CF.LOG= 
CF.MDM= 
SOM= 
SVN  = 

TRN: 


CF. 

CF. 

CF. 

CF. 

CM.CIR= 

CM.FMr= 

CM.HRD= 

CM.LIN= 

rM.LOO= 

CM.XLO= 

rP.DCF= 

'P.wDl= 

fP.PS  ; 

CP.0S!= 

,'"  P  .  X  C  F  = 


t,ibi  e 

000000 
000000 
000000 
000000 
000002 
OOOOAO 
000020 
OOOOOA 
000010 
000100 
00000^ 
000200 
100362 

100566 
100370 
100350 
100356 
100372 
100361 
100376 
10036'. 
100352 
10035A 
100374 
1003A4 
000001 
000002 
000001 
000010 
OOOOOA 
100000 
000020 
100000 
000002 
000020 
000001 
000010 
OOOCiO 
000'.  00 
000100 
000002 
100000 
000002 
000000 
000001 

00000"; 

OOOOAO 
000007 
177400 
00C200 
COCiQO 


.    ABS.      177776 
000320 
E'-'T-;  detected: 


.03d  frida/  28 
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M 

u 

CP.2FR= 

000050 

C.XACP 

000004 

FS.SF5= 

OOAOOO 

S$$URG= 

000?00 

CS.AB0= 

000100 

C.XID 

000035 

FS.SPU= 

040000 

s$$ysz= 

007600 

CS.BR0= 

000002 

C.XLEN 

000044 

FS.STM= 

000000 

TS$KMG= 

000000 

CS.BUF- 

000200 

C.XPLl 

000040 

FS.STP= 

002000 

T$$MIN= 

000000 

CS.CES= 

000002 

C.XPT 

000034 

FS.STR= 

001000 

V$$CTR= 

001000 

CS.CHN= 

000010 

C.XSVC 

000042 

FS.TRM= 

005000 

X$$DBT= 

000000 

C5.CMP= 

000200 

C.XTC 

000037 

FS.ULB= 

001000 

ZF.COU= 

001000 

CS.DCR= 

000400 

C.X25 

000036 

FS.XKL= 

002000 

ZF.DDM= 

000001 

CS.DEF= 

000004 

D$$8UG= 

177514 

FS.XOF= 

010000 

ZF.DIA= 

004000 

CS.DEV= 

000002 

D$$ISK= 

000000 

FS.XON= 

007000 

ZF.DLC= 

000002 

CS.DIS^ 

000040 

D$$L11= 

000001 

FS.ZER= 

002000 

ZF.DVP= 

100000 

CS.ENA= 

000001 

D$$yNC= 

000000 

F$$LVL^ 

000001 

ZF.INI= 

040000 

CS.ENB= 

000020 

D$$VNM= 

000000 

G$$TPP= 

000000 

If  .Km  = 

000020 

CS.ERR= 

100000 

E$$XPR= 

000000 

G$$TSS= 

000000 

ZF.LLC= 

000004 

CS.FTL= 

001000 

FC.CCP= 

000020 

G$$TTK= 

000000 

ZF.LHC= 

000100 

CS.HCR= 

000001 

FC.CTL= 

000006 

G$$WRD= 

000000 

ZF.MAN= 

020000 

CS.HFE= 

002000 

FC.KCP= 

000016 

I$$RAR= 

000000 

ZF.MFL= 

000010 

CS.LST= 

040000 

FC.K]L= 

000001 

I$$RDN= 

000000 

ZF.»1TM= 

000400 

CS.MTL= 

004000 

FC.MAN= 

000024 

KISAR5= 

*««*«»  Gx 

ZF.MUX= 

000040 

CS.RNG= 

000010 

FC.MLD= 

000026 

KISAR6= 

****•♦  GX 

ZF.PSE= 

002000 

CS.ROV= 

000004 

FC.PCT= 

000030 

K$$CNT= 

177546 

ZF.SLI= 

010000 

CS.RSN= 

010000 

FC.PWR= 

000022 

K$$CSR= 

177546 

ZF.TIM= 

000200 

CS.SHU= 

000001 

FC.RCE= 

000002 

K$$LDC= 

000000 

ZF.X3P= 

000000 

CS.SID= 

000002 

FC.RCP= 

000014 

K$$TPS= 

000074 

ZS.ASN= 

100000 

CS.STR= 

000004 

FC.TIM= 

000010 

LD$LP  = 

000000 

ZS.BSY= 

140000 

CS.SUC= 

000001 

FC.XCP= 

000012 

L$$ASG= 

000000 

Z.AVL 

000014 

CS.TMD= 

020000 

FC.XME= 

000000 

L$$DRV= 

000000 

Z.DAT 

000016 

CS.XUR= 

000004 

FS.AST= 

000000 

L$$P11= 

000001 

Z.DSP 

000000 

C$$CKP= 

000000 

FS.CI6= 

002000 

L$$11R= 

000000 

Z.FLG 

000010 

C$$ORE= 

000400 

FS.CRA= 

001000 

M$$CRB= 

000124 

Z.LEN  --= 

000016 

C$$RSH= 

177564 

FS.DIS= 

013000 

M$$CRX= 

000000 

Z.LLN 

000006 

C.ADD 

000034 

FS.DVC= 

001000 

M$$FCS= 

000000 

Z.MAP 

000020 

C.BID 

000003 

FS.ENB= 

012000 

M$$MGE= 

000000 

Z.NAM 

000004 

C.BUF 

000014 

'^S.EX!  = 

001000 

M$$NET= 

000000 

Z.PCB 

000012 

C.8UF1 

000014 

f:.get= 

006000 

M$$OVR= 

000000 

Z.SCH 

000007 

C.BUF2 

000024 

FS.HLT= 

000000 

N$$ACC= 

000001 

SCEPWR 

000304RG 

C.CNT 

000020 

fS.INI= 

000000 

N$$BUF= 

000001 

$CMFRK= 

******   GX 

C.CNTl 

000020 

FS.K1L= 

000000 

N$$LDV= 

000001 

$CMPDV= 

*•*.*.  GX 

C.CNT2 

000030 

FS.LCL  = 

100000 

N$$MCP= 

000001 

$CXOPT= 

«»««»*  GX 

C.FL6 

000022 

FS.LTM= 

001000 

N$$MLL= 

000001 

$DDFNC= 

******   GX 

C.FLG1 

000022 

FS.MNT= 

004000 

N$$M0V= 

000010 

$FRKHD= 

«.♦*•*  GX 

C.fLG2 

000032 

FS.MSN= 

014000 

N$$NCT= 

000001 

SINTSX 

OOOOOORG 

C.FNC 

000010 

FS.REA= 

001000 

N$$PEM= 

000001 

$1NTX1= 

•♦♦♦•»  GX 

C.LIN 

000006 

FS.RET= 

000000 

PR7   = 

•♦«••*  GX 

$INTX7 

000042RG 

C.LNK 

000000 

FS.REZ= 

003000 

PS 

•*••»*  GX 

SPDDSP 

000076RG 

C.MOD 

000011 

FS.RLB= 

002000 

P$$P45= 

000000 

$PDQUE 

0001 70RG 

C.NSP 

000004 

FS.RNG= 

011000 

P$$WRD= 

000000 

SPDClUl 

000174RG 

C.PRO 

000042 

FS.RST= 

000000 

0$$OPT= 

000010 

SPDSPL 

000052RG 

C.RSV 

000002 

FS.RTN= 

001000 

R$$DER= 

000000 

$PDVTA= 

»»»»««  GX 

C.5TA 

000007 

FS.SE1= 

005000 

R$$K1U 

000001 

$SIKDP= 

»»«»•»  GX 

C.STS 

000012 

FS.SFC= 

005000 

R$$SND= 

000000 

.$$$$.= 

0C0054 

C.URM 

177776 

F5.SFR= 

006000 

R$$11M= 

ooocoo 

000   (RW,1,GBL,ABS,0VR) 

001    'RW,I,lCL,REL,CON) 

Q 

N  1» 
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M  15 


n 


205 
206 
207 
208 
205 
210 
211 
212 
213 
2U 
215 
2-'6 
IV 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
250 
23' 
232 
23! 
23A 
235 
236 
237 
238 
239 
240 
241 
242 
243 

244  000'76 

245  000176 

246  C00202 

247  000210 

248  000214 

249  000220 

250  000224 

251  CC0226 

252  000232 

253  00C234 


.SBTTL  SMVTBF  -  MOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

•*-  SMVTBF  -  MOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

THIS  ROUTINE  IS  CALLED  TO  MOVE  A  BLOCK  OF  MEMOR/  (LESS  THAN 
4K  WORDS)  FROM  A  BUFFER  THAT  IS  CURRENTLV  MAPPEDC  (EITHER 
IN  SYSTEM  DYNAMIC  SPACE  OR  IN  THE  COHMM  BUFFER  POOL)  TO  AN 
UNMAPPED  BUFFER.  NOTE  THE  MAPPED  BUFFER  CAN  NOT  BE  IN  THE  PROCESS'S 
SPACE  MAPPED  VIA  APR5  SINCE  IT  USES  APfi5  TO  MAP  TO  THE  UNMAPPED 
BUFFER. 

CALLING  FORMAT: 

JSR     R1, SMVTBF 


INPUTS: 


R2  =    VIRTUAL  ADDRESS  OF  MAPPED  "FROM"  BUFFER 
R3  =    NUMBER  OF  BYTES  TO  MOVE 
ON  THE  STACK: 


Rl 

VA 

BIAS 


ORIGINAL  CONTENTS  OF  Rl  BEFORE  CALL 

16-BiT  VIRTUAL  ADDRESS  OF  UNMAPPED  "TO"  BFFER 


RELOCATION  BIAS  OF  UNMAPPED  "TO' 
(MAPPED  SYSTEMS  ONLY) 


BUFFER 


OUTPUTS: 
R2 


R3  = 

STILL  MAPPED  TO 

REGISTERS  MODIFIED: 
R2  £  R3 


UPDATED  ADDRESS  OF  "FROM"  BUFFER 
POINTS  TO  LAST  BYTE  MOVED  +1 
ZERO 


"FROM"  BUFFER  VIA  <ISAR6 


016746  OOOOOOG 

C16667  000006  OOOOOOG 

010166  000006 

016601  000004 

022701  140000 

101002 

162701  020000 

112221 


SMVTBF: 


.ENA8L   LSB 


10$: 


254  000240  000421 


MOV 

MOV 

MOV 

MOV 

CMP 

BHI 

SUB 

M0V8 

SOB 

BR 


KISAR5,-(SP) 

6(SP),KISAR5 

R1,6(SP) 

4(SP),R1 

#140000, Rl 

10$ 

#20000, Rl 

(R2)+,(Ri)* 

R3.10i 

20i 


SAVE  CURRENT  PROCESS  MAPPING 

MAP  TO  "TO"  BUFFER 

SAVE  RETURN  ADDRESS 

GET  "TO"  BUFFER  VIRTUAL  ADDRESS 

IS  THE  "TO"  BUFFER  IN  THE  EXEC  POOL? 

IF  HI,  YES  THEN  DON'T  ALTER  THE  VIRTUAL  ADDDRESS 

SET  VA  FOR  BIAS  VIA  KISAR5 

MOVE  BUFFER  A  BYTE  AT  A  TIME 

LOOP  TILL  DONE 

JOIN  COMMON  EXIT  CODE 


N  1S 


J 


CESuB  CREATID  BY     1ACR0     ON  28-JUN-85   AT   18:20 

MAi-RO   CROSS   RBfERENCE 
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CREF        04.00 


NIACRO   NAME 

REFERENCES 

CALL 

10-355 

CALLR 

#A-62 

13-477 

14-511 

CCBOFl 

#4-61 

4-63 

CKDFt 

#4-61 

4-65 

enablS 

#4-60 

INMIBt 

#4-63 

=DVDFS 

#4-6' 

4-64 

RESRG 

#4-60 

5-98 

6-'' 59 

10-353 

11-412 

12-446 

RETURN 

5-99 

6-140 

7-202 

9-306 

0-363 

11-415 

SAVRG 

#4-60 

5-90 

6-128 

10-334 

•1-393 

12-450 

SOB 

8-253 

9-502 

12-447 


342 

34  5 

34fc 

54" 
34S 
349 
35C 
35- 
352 
353 
354 
355 
35fc 
357 
35S 
359 
360 
361 
362 
365 
56- 
365 
366 
36  7 
36S 
369 
3^0 
37' 
372 
375 
374 
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.seiTL  SRDBWT  -  Queue  a  request  for  a  Receive  Data  Buffer 

♦*-$RD8WT-  Queue  a  request  for  a  Receive  Data  Buffer 

This  routine  is  called  by  DDM  processes  after  a  failure  of  the 
DDM  to  allocate  an  Receive  Data  Buffer  (SRDBGT)  has  occured. 
The  system  line  table  flags  word  is  updated  to  mark  the  buffer 
wai't  request  and  the  global  request  is  incremented. 


Inputs 


R'l   contains   the   System  Line  Number 


G00456 


0C0460  006504 

000462  066704  OOOOOOG 

C00466  105234 

000470  005267  OOOOOOG 


0004  74 
000476 


Outputs: 

None. 


$RDBWT::SAVRG   <R4> 


.IF  DF 

CALL 

.ENDC 

ASL 
ADD 
INCB 
INC 

.IF  DF 

CALL 

.ENDC 

RESRG 
RETURN 


M$$PR0 
SMPSAV 


R4 

$SLTMA,R4 
a(R4)t 
SRDQC  r 

M$$PRO 
a(SP)+ 


<R4> 


;  Save  a  register 
;  Bypass  the  cache 


;  Convert  SLN  to  word  offset 

;  Point  into  System  Line  Index  Table 

;  Increment  wait  request  count  for  this  line 

;  Increment  global  count 


;  Restore  state  of  the  cache 
;  Restore  the  register 


CEBuF  CREATED  B*     MACRO     ON  28-JUN-85   AT    18:17 

SVMBOl    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENC 

ES 

SRDBGT 

000044 

RG 

7-133 

#8-156 

$RDBLH 

-        ****** 

GX 

8-172 

$RDBQP 

000500 

Rfi 

#14-390 

SRDBRT 

000170 

RG 

#9-210 

tRDBSZ 

-      ****** 

GX 

8-170 

8-171 

SRDBTH 

-      ****** 

GX 

7-132 

SROBUT 

000456 

RG 

^13-358 

<.RDQCT 

-   ****** 

GX 

9-216 

»9-219 

iSDBC^ 

=   ****** 

GX 

12-320 

SSDBLH 

=   ****** 

GX 

11-295 

$SDBS7 

-   ****** 

GX 

11-293 

11-294 

SSLTMA 

:     *...** 

GX 

13-365 

14-397 

N    2 
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CREF       04.00 


»13-367 


*14-401 


CEBUF1  - 
SRDBWT 

3« 
343 
34A 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
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.SBTTL  SRDBWT  -  Queue  a  request  for  a  Receive  Data  Buffer 
I- 
**-$RD8WT-  Queue  a  request  for  a  Receive  Data  Buffer 

This  routine  is  called  by  DDM  processes  after  a  failure  of  the 
DDM  to  allocate  an  Receive  Data  Buffer  (SRDBGT)  has  occured. 
The  system  line  table  flags  word  is  updated  to  mar^  -he  buffer 
wait  request  and  the  global  request  is  incremented. 


Inputs: 


R4  contains  the  System  Line  Number 


000456 


000460  006304 

000462  066704  OOOOOOG 

000466  105234 

0CJ470  005267  OOOOOOG 


0004  74 
000476 


Outputs: 

None. 


$RDBWT::SAVRG  <R4> 

.IF  DF  M$$PRO 

CALL  SMPSAV 
.ENDC 

ASL  R4 

ADD  $SLTMA,R4 

INC8  a(R4)+ 

INC  SRDQCT 

.IF  DF  M$$PRO 

CALL  a(SP)+ 
.EN^r 


RESRG 
RETURN 


<R4> 


;  Save  a  register 
;  Bypass  the  cache 


Convert  SLN  to  word  offset 
Point  into  System  Line  Index  Table 
Increment  wait  request  count  for  this  line 
Increment  global  count 


;  Restore  state  of  the  cache 
;  Restore  the  register 
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PAGE   3 

CPEF       04.00 


SYMBOL 

VALUE 

REFERENC 

:S 

SCSBRT 

000376 

RG 

#13-317 

SDEACB 

r  *  ***  ii* 

GX 

17-525 

SLDBAF 

::  ****** 

GX 

•8-134 

$LDBGT 

000026 

RG 

#8-132 

SLDBRT 

000170 

RG 

#10-209 

SPDQUE 

r  ****** 

GX 

10-227 

SRDBCT 

=  ****** 

GX 

8-132 

10-215 

SRDBGT 

000044 

RG 

8-133 

#9-156 

SRDBLH 

=  ****** 

GX 

9-172 

SRDBNM 

~    ****** 

GX 

16-444 

SRDBQP 

000500 

RG 

#15-390 

SRDBRT 

000170 

RG 

#10-210 

SRDBSZ 

=   ****** 

GX 

9-170 

9-171 

SRDBTH 

-   ****** 

GX 

8-132 

16-441 

17-511 

SRDBWT 

000456 

RG 

#14-358 

SRDQCT 

r  ****** 

GX 

10-216 

♦10-219 

.14-367 

*15-401 

SSDBCT 

=     ****** 

GX 

13-320 

SSDBLH 

-  ****** 

GX 

12-295 

SSDBSZ 

-  *  ,■--♦*  * 

GX 

12-293 

12-294 

SSLTMA 

-  ****** 

GX 

14-365 

15-397 
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N  5 


37^ 


.DSA8L   LS8 


•»F!LF*MD*«CEDDMM 


N    6 


r 

:e 


cccccccc 

EEEEEEEEEE 

DDDDDDDD 

DDDDDDDD 

m 

I'lil 

MM      MM 

cccccccc 

EEEEEEEEEE 

DDDDDDDD 

DDDDDDDD 

m 

MM 

MM      MM 

EE 

DD 

OD 

DD 

DD 

MMMf 

MMMM 

MMMM  MMMM 

EE 

OD 

DD 

DD 

DD 

MMM^ 

MMMM 

MMMM  MMMM 

EE 

DD 

DD 

DD 

DD 

MM 

^M  MM 

MM  MM  MM 

EE 

DD 

DD 

DD 

DD 

MM 

*IM  MM 

m     m     MM 

FEEEEEEE 

DD 

DD 

DD 

DD 

MM 

MM 

MM      MM 

EEEEEEEE 

DD 

DD 

DD 

DD 

MM 

MM 

MM      MM 

EE 

DD 

DD 

DD 

DD 

MM 

MM 

MM      MM 

EE 

DD 

DD 

DD 

Du 

MM 

MM 

MM      MM 

EE 

DD 

DD 

DD 

DD 

MM 

MM 

MM      MM 

EE 

DD 

DD 

DD 

DD 

MM 

MM 

MM      MM 

cccccccc 

EEEEEEEEEE 

DDDDDDDD 

DDDDDDDD 

MM 

MM 

MM      MM 

cccccccc 

EEEEEEEEEE 

DDDDDDDD 

DDDDDDDD 

MM 

MM 

MM      MM 

LL 

SSS5SSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

ss 

-L 

ss 

.L 

ss 

-L 

ss 

-L 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

CEDDMM 
SDDAST 
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424 
A25 
426 
427 
428 
429 
450 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 

452  000400 

453  000402 

454  000406 

455  OOOAIO 

456  OOO'.U 

457  000422 
458 

459  000424 

460  000426 
461 


.SBTTL  SDDAST  -  ASYNCHRONOUS  COMPLETION  TO  DLC  LEVEL 

h 

••-SDDAST-ASYNCHRONOUS  COMPLETION  TO  DATA  LINK  CONTROL 

THIS  SUBROUTINE  IS  lALLED  BY  DEVICE  DRIVERS  WHEN  AN  ASYNCHRONOUS 
CONDITION  MUST  BE  RETURNED  TO  A  DATA  LINK  CONTROL  MODULE  AND  NO  CCB 
IS  AVAI.'BLE  AT  THE  DEVICE  DRIVER. 

INPUTS: 


R3 
R4 

OUTPUTS: 


ASYNCHRONOUS  COMPLETION  STATUS  (MOVED  INTO  C.STS) 
SYSTEM  LINE  NUMBER 


A  CCB  IS  ALLOCATED  ON  BEHALF  OF  THE  DEVICE  DRIVER 
AND  THE  ASYNCHRONOUS  STATUS  IS  QUEUED  TO  THE 
DATA  LINK  CONTROL  MODULE  WITH: 

C.FNC=  FC.CCP 

C.MOD=  FS.AST 

REGISTERS  MODIFIED: 
XXX 
.ENABL  LS8 


010446 

103406 
012664 
012764 
000426 

012604 


000006 
000020 


000010 


SDDAST ::MOV 
CALL 
BCS 
MOV 
MOV 
BR 


5$: 


MOV 
RETURN 


R4,-(SP) 

SCCBGT 

5$ 

(SP)+,C.LIN(R4) 

#FC.CCPtFS.AST,C 

20$ 

(SP)t,R4 


SAVE  LINE  NUMBER 
ALLOCATE  A  CCB 
li  CS  ERROR 

SET  LINE  NUMBER  !N  CCB 
FNC(R4)  ;  SET  ERROR  COMPLETE  FUNCTION  CODE 
FINISH  IN  COMMON  CODE 

CLEAN  THE  STACK 
RETURN  TO  CALLER 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 

13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.IIF  DF  X$$NDM  .TITLE   CEDDMN 

.  IIF  DF  X$$riDC  .TITLE  CEDDMM 

.IIF  NDF  X$$NDM  S  X$$MDC  .TITLE  CEDDM 

.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CEX  DDM/DLC  INTERFACE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-I'i^t-PLUS  VI  .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00     07-N0V-83 

OECNET-rM  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnct-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 
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520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 


ADD  $SLTMA,R3 

MOV  (R3),R5 

MOV  L.KR8A(R3),R5 

MOV  K.URM(R3),C.URM(RA) 


POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
GET  POINTER  TO  KR8 


.ENDC 

CALLR   SPDQUI 

.DSA8L  LS8 

.ENDC 


;  QUEUE  CC8  AND  SCHEDULE  PROCESS 


CEDLC   MACRO  V05.03b  Frida 
SXMCMP  -  TRANS":!  COMPLETE  TO 


147 
1A8 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 

175  000056 

176  000064 
177 

178  000066 

179  000074 


/  28-Jun-85  i8' '9 
to  LLC  LEVEL 


Page 


180 

181  000076 

182  000104 
183 

184  000106 

185  000114 
186 

187  000116 

1 88 

189  000122 

190  000126 

191  0CJ134 

192  000136 

193  C00142 

194  000144 
195 

196  000146 

197  000152 

198  000154 

199  COO  1 56 

200  000160 
201 

202 
203 


.SBTTL  SXMCMP 

.SSTTL  SCTCMP 

.SBTTL  SRCCMP 

.SBTTL  SKLCMP 


N  10 


TRANSMIT   COMPLETE    TO  LLC   LEVEL 
CONTROL    COMPLETE    TO  LLC   LEVEL 
RECEIVE    COMPLETE    TO  LLC   LEVEL 
KILL    COMPLETE    TO  LLC   LEVEL 


»»-$XMCMP-TRANSMIT   COMPLETE    TO  LOGICAL   LINK   CONTROL   PROCESSES 
•»-$CTCMP-C0NTR0l    COMPLETE 
»»-$RCCMP-RECEIVE   COMPLETE 
»*-$ICLCMP-KILL    lOMPLETE 


INPUTS: 


R3  =  OPERATION  COMPLETION  STATUS 
R4  =  ADDRESS  OF  CCB  (OR  FIRST  CC8  IN  A  CHAIN) 
THE  CCB  CONTAINS  A  VALID  LINE  NUMBER 

OUTPUTS: 

THE  APPROPRIATE  FUNCTION  CODE  IS  INSERTED  INTO  THE  CCB, 
THE  LINE  NUMBER  IS  USED  TO  FIND  THE  PDV  SPECIFICATION,  AND 
THE  CCB  IS  AuDED  TO  THE  PROCESS  QUEUE. 

REGISTERS  MODIFIED: 

R3 


112764 
000413 

112764 
000407 

112764 
000403 

112764 
010246 


116402  000006 


000012  000010 

000020  000010 

000016  000010 

0C0014  000010 


$XMCMP::M0v'R 
BR 

$CTCMP::MOVB 
BR 

$KLCMP::MOVB 
BR 

$RCCMP::MOVB 


010364 
142764 
006302 
066702 
011203 
100005 

116402 
060302 
006302 
011203 
C52703 


0*0012 

000200  000003 

OOOOOOG 


000007 


10$: 


20$: 


100000 


25$: 


MOV 

Move 

MOV 

BIC8 

ASL 

ADD 

MOV 

BPL 

MOVB 
ADD 
ASL 
MOV 

BIS 


#FC.XCP,C.FNC(R4) 
10$ 

#FC.CCP,C.FNC(R4) 
10$ 

#FC.KCP,C.FNC(R4) 
10$ 

#FC.RCP,C.FNC(R4) 
R2,-(SP) 

C.LIN(R4),R2 

R3,C.STS(R4) 

*200,C.BID(R4) 

R2 

$LLCTA,R2 

(R2),R5 

25$ 

C.STA(R4),R2 

R3,R2 

R2 

(R2),R3 

«100C00,R3 


;  SET  TRANSMIT  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

;  SET  CONTROL  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

;  SET  KILL  COMPLETE  FUNCTION  CODE 
JOIN  COMMON  CODE 

;  SET  RECEIVE  COMPLETE  FUNCTION  CODE 
SAVE  CALLERS  R2 

GET  SYSTEM  LINE  NUMBER 

STORE  OPERATION  STATUS  IN  CCB 

MARK  MESSAGE  FROM  A  DLC  PROCESS 

MULTIPLY  SLN  BY  2 

POINT  TO  REVERSE  MAPPING  TABLE 

GET  SLN  &  STATION  TO  PDV  £  CHANNEL  MAP  ENTRY 

IF  PL,  GOT  PDV  I   CHANNEL  (POINT  TO  POINT) 

ELSE,  POINTER  TO  STATION  TABLE  MAP 

GET  STATION  NUMBER  (NEVER  SIGN  EXTENDS) 

COMPUTE  HALF  MAPPING  TABLE  ENTRY  ADDRESS 

MAKE  A  WORD  ALIGNED  ADDRESS 

GET  PDV  &  CHANNEL  FOR  THIS  STATION 

INDICATE  THAT  CELL  CONTAINS  A  PDV  &  IHANNEL 


.IF  DF   M$$PRO 
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122  00005?  MTPS  *0  ,  DROP  PRIORITY  TO  0  AND  CLEAR  CONDITION  CODES 

•'21   000056  RE":RG  •fR5,R4,R3,R2,R1  ,^0>  ;  RESTORE  REGISTERS 

12i  000072  RE  I  IRN  ;  RETURN  TO  CALLING  LLC 

126  .ENDC  ;  DP  M$$PRO 


L 


N  12 

CBLOG  -  COMM/EXEC  El/E^JT  LOGGING  MACRO  v'05.03b  Friday  28-Jun-85  18:19  Page  5-1 
LOG  NET.JORK  EVENT 


115 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125  COCOOO 

126 

127       000001 


10$: 


SAVRG 

MOV 

MOV 

CALL 

RESRG 

CMP 

Tsr 

.ENDC 

RETURN 

.END 


<R4> 

$LGDDB,R5 

#$CELFN,R3 

SPDDSP 

<R4> 

(SP)t,(SP)t 
(SP)* 


PRESERVE  CC8  ADDRESS 

SET  ADDRESS  OF  LOGGING  DATABASE 

SET  UP  DISPATCH  FUNCTION 

AND  DISPATCH  TO  LOGGING  PROCESS 
RESTORE  CCB  ADDRESS 

CLEAN  UP  THE  STACK 


AND  RETURN 


L 
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Table  of   contents 
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s- 

7A 

$!NTSX 

ft- 

150 

$INTX7 

ISO 

$PD5PL 

H- 

217 

SPDDSP 

4- 

283 

SPDQUE 

0- 

552 

POWERf 

COMM  EXEC  DEVICE  INTERRUPT  SAVE  ROUTINE 
LEVEL  7  INTERRUPT  EXIT 

SET  UP  A  PROCESS  LEVEL  AND  DISPATCH  TO  IT 
DISPATCH  TO  A  PROCESS 

QUEUE  A  CCB  (CHAIN)  TO  A  LIST  AND  SCHEDULE  PROCESS 
POWERFAIL  RECOVERY  ROUTINE 


W( 
W( 
S 
S 
Oi 

E 
S 


L 
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Symbc!  table 

«•  'ASse'Tibier  statistics 


work   *ile  reads:  0 

work  tile  «(ri  tes  ;  C 

5ize  of  work  file:  15911  Words   (  63  Pages) 

Size  ot  core  Dool :  17608  Words   (  67  Pages) 

OoeraHng  system:  RSX-i  1M/PLUS 


N  U 


'E 


sifrESCH^.;2!h5o!°3^]CfSCH/CR/-SP=Sy:[1  JJRSXMrW.SML/ML  J150J10]NETL18/ML,[130JO]RSXMC»1/PA:1,[130,10]CESrH 
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256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 

293  0002A2 

294  000242 

295  000246 

296  000254 
2"7  000260 
2';8  000264 

299  000270 

300  000272 

301  000276 

302  000300 

303  000304 

304  000310 

305  000312 

306  000514 
507 

508 


.S8TTL  SMVFSf  -  MOVE  FROM  UNMAPPED  BUFFER  TO  A  MAPPED  BUFFER 

»•-  SMVFSF  -  MOVE  FROM  UNMAPPED  BUFFER  TO  A  MAPPED  BUFFER 

THIS  ROUTINE  IS  CALLED  TO  MOVE  A  BLOCK  OF  MEMORY  (LESS  THAN 
AK  WORDS)  FROM  AN  UNMAPPED  BUFFER  TO  A  BUFFER  THAT  IS  CURRENTLY 
MAPPED  (EITHER  IN  SYSTEM  DYNAMIC  SPACE  OR  IN  THE  COMM  BUFFER  POOL). 
THE  ROUTINE  UNMAPPf  THE  REQUtSlING  PROCESS  AND  USES  ARP5  TO  MAP 
TO  THE  UNMAPPED  "fRCM"  BUFFER. 

CALLING  FORMAT: 

JSR  R1,$MVFBF 


INPUTS: 


R2  =    VIRTUAL  ADDRESS  OF  MAPPED 
R5  =    NUMBER  OF  BYTES  TO  MOVE 
ON  STACK: 


■TO"  BUFFER 


R1 

VA 

BIAS 


ORIGINAL  CONTENTS  OF  R1  BEFORE  CALL 

16-8IT  VIRTUAL  ADDRESS  OF  UNMAPPED  "FROM"  BUFFER 


RELOCATION  BIAS  OF  UNMAPPED  "FROM' 
(MAPPED  SYSTEMS  ONLY) 


BUFFER 


OUTPUTS: 
R2= 


R5  = 

STILL  MAPPED  TQ 

REGISTERS  MODIFIED: 
R2  S  R3 


UPDATED  ADDRESS  OF  "TO"  BUFFER 
POINTS  TO  LAST  BYTE  MOVED  +1 
ZERO 


"TO"  BUFFER  VIA  KISAR6 


016746 
016667 
010166 
016601 
022701 
101002 
162701 
112122 

012667 
012601 
005726 


OOOOOOG 

000006  OOOOOOG 

000006 

000004 

1',0000 

020000 
OOOOOOG 


SMVFBF: 


15$: 
20$: 


MOV   ■ 

MOV 

MOV 

MOV 

CMP 

BHI 

sua 
Move 

SOB 
MOV 
MOV 
TST 
RETURN 


KISAR5,-(SP) 

6(SP),KISAR5 

R1,6(SP) 

4(SP),R1 

#140000, R1 

15$ 

#20000, R1 

(R1)»,(R2)+ 

R5,15$ 

(SP)+,KISAR5 

(SP)t,R1 

(SP)  + 


SAVE  CURRENT  PROCESS  MAPPING 

MAP  TO  "FROM"  BUFFER 

SAVE  RETURN  ADDRESS 

GET  "FROM"  BUFFER  VIRTUAL  ADDRESS 

IS  THE  "FROM"  BUFFER  IN  THE  EXEC  POOL? 

IF  HI,  YES  THEN  DON'T  ALTER  THE  VIRTUAL  ADDRESS 

SET  VA  FOR  BIAS  VIA  KISAR5 

MOVE  BUFFER  A  BYTE  AT  A  TIME 

LOOP  TILL  DONE 

RESTORE  PROCESS  MAPPING 

RESTORE  REGISTER 

CLEAN  UP  STACK 

RETURN 
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CEDDM 


J 
K 
L 
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K 
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N 
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F 

10 

F 

10 

G 

10 

H 

■() 

I 

•0 

J 

10 

K 

10 

1 

10 

M 

10 

N 

10 

R 

11 

r 

11 

D 

11 

F 

11 

F 

11 

G 

11 

H 

11 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

12 

D 

12 

F 

12 

F 

12 

G 

12 

H 

12 

I 

12 

J 

12 

K 

12 

1 

12 

M 

12 

N 

12 

R 

1< 

r 

n 

0 

H 

F 

H 

F 

1^ 

G 

T, 

H 

T, 

I 

T. 

,1 

H 

K 

1^ 

1 

1^ 

M 

1^ 

N 

M 

R 

14 

r 

14 

n 

14 

F 

U 

F 

14 

G 

14 

H 

14 

I 

14 

J 

K 

< 

14 

L 

14 

CEDLC 


CELLC 


CELOG 


CEL0G1 


CESCH 


M 

14 

N 

14 

R 

IS 

r 

IS 

D 

IS 

F 

IS 

F 

IS 

G 

IS 

H 

IS 

1 

IS 

J 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

1ft 

r 

1ft 

D 

1ft 

F 

1ft 

F 

1ft 

G 

1ft 

H 

1ft 

1 

1ft 

■  1 

1ft 

K 

1ft 

1 

1ft 

M 

16 

CESUB 


•»F!L.E«»1D«^CESUB1 


B     1 


cccccccc 

EEEEEEEEEE 

SSSSSSSS 

uu 

uu 

BBBB8BBB 

CCCCCfCC 

EEEEEEEEEE 

SSSSSSSS 

uu 

uu 

BBBBSe^B 

:c 

EE 

SS 

uu 

uu 

BB      BB 

111 

r  c 

EE 

ss 

uu 

uu 

BB      BB 

111 

EE 

SS 

uu 

uu 

BB      BB 

EE 

ss 

uu 

uu 

BB     BB 

EEEEEEEE 

ssssss 

uu 

uu 

BBBBBBBB 

EEEEEEEE 

ssssss 

uu 

uu 

B8BBBBBB 

EE 

ss 

uu 

uu 

66     BB 

EE 

ss 

uu 

uu 

BB     BB 

EE 

ss 

uu 

uu 

BB     BB 

EE 

ss 

uu 

uu 

BB     BB 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

BSBBBBBS 

111 

111 

cccccccc 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

BBBBBBBB 

111 

11  1 

SSSSSSSS 

TTTTTl 

TTTT 

SSSSSSSS 

TTTTT 

nil 

SS 

Tl 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

C     1 


CESUBl 
tCEl*IUL 

^50 
A51 
452 
453 
454 
455 
456 
457 
458 
45Q 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
47? 
473 
474 
475 
4  76 
477 

478 
479 
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.SBTTL   $C!.MUL  -  UNSIGNED  MULTIPLY 

♦»-  SCEMUL  -  UNSIGNED  MULTIPLY 

THIS  SUBROUTINE  PERFORMS  UNSIGNED  MULTIPLICATION  WHERE  THE  RESULT  IS  LESS 
THAN  16  BITS.  IT  IS  INCLUDED  HERE  SO  THAT  WE  CAN  CONDITIONAL ISE  THE  CODE 
FOR  EXTENDED  INSTRUCTION  SET. 

NOTE  HAT  IT  IS  THE  CAI LERS  RtSPONSIBILI TY  TO  ENSURE  THAT  THE  RESULT 
WILL  FIT  IN  16  BITS. 

INPUTS: 


RO  =  MULTIPLIER 

R1  =  MULTIPLICAND 

OUTPUTS: 

RO  =  CORRUPTED 

R1  =  LOW  16  ens  OF  RESULT 


000536 

000536  070100 
000540 


SCEMUL: :.IF  DF   R$$EIS 


MUL 
RETURN 

RO.RI 

.IFF 

;  DF  R$SE;S 

CALLR 

$MUL 

.ENDC 

;  DF  R$$EIS 

PERFORM  MULTIPLICATION 


CALL  EXEC  MULTIPLY  ROUTINE 


C  2 
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61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

75 

7A 

75 

76 

77 

78  000000 

"7 

80  000000 

81  0C0002 

82  000006 

83  000012 
84 

85 
86 
8^  0000^6 

88  000024 

89  000026 

90  000030 

91  000032 

92  000034 

93  000040 
94 

95 

% 

97  000044 

98 

99 
100 

101  000050 
102 


.SBTTL   TIMEOUT  PROCESSOR 

**-$T3TIM-TIME0UT  PROCESSOR 

THIS  SUBROUTINE  IS  CALLED  TO  TEST  AND  DECREMENT  A  TIMEOUT  COUNT  IN 
THE  FIRST  BYIE  OF  A  PROCESS  LINE  TABLE.  IF  THE  COUNT  IS  DECREMENTED 
10  ZERO,  THE  PROCESS  IS  DISPATCHED  AT  IT'S  TIMEOUT  ENTRV  POINT 


010203 

066703  OOOOOOG 

0167A6  OOOOOOG 

013367  OOOOOOG 


!05715 
001404 
105315 
001002 


012667  OOOOOOG 


10$: 


WITH  A 
INPUTS 

OUTPUTS: 


FS.LTM'  SUBFUNCTION  CODE. 


R2 
R5 


PDV  INDEX  OF  PROCESS 
POINTER  TO  PROCESS  LINE 


■ABLE 


ONLY  R4  WILL  BE  RESERVED 


$TSTIM::.IF  DF   M$$MGE 


MOV 
ADD 
MOV 
MOV 

.ENDC 

MTPS 

TSTB 

BED 

DECB 

8NE 

CALL 

MTPS 


R2,R3 
$PDVTA,R3 
K1SAR5,-(SP) 
a(R3)t,KISAR5 


#PR7 

(R5) 

10$ 

(R5) 

10$ 

$DSPTM 

#0 


copy  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

SAVE  CURRENT  MAPPING 

MAP  TO  PROCESS  (FOR  MAPPED  LINE  TABLES) 


DISABLE  INTERRUPTS 

IS  THE  TIMER  ACTIVE? 

NO  ...  JUST  EXIT 

YES  ...  DECREMENT  TIME  TO  GO 

IF  NE,  TIMER  STILL  RUNNING 

DISPATCH  TO  PROCESS 

RESTORE  PRIORITY 


.IF  DF   M$$MGE 

MOV     (SP)t,KISAR5 

.FNDC 

RETURN 


RESTORE  MAPPING 


C  3 


CEXCM  -  CEX  COMMON  DATABASE 


237 
238 
239 

2^.0 

2A1 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259  000312  000000 

260 

261  000314 

262  000314 

263  000314 

264  000314  000000 

265  000316  000000 

266  000320 

267  000320  000000 

268  00032^'  000000 
269 

270 

in 

272 
273 
274 
275 
276 
217 
278 
279 
280 
28' 
232 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 


B  4 
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.WORD  0 

.WORD  0 

.WORD  0 
.ENDR 

$$$0FF=2 

t1SCTB::.REPT  M$$PRO 

.WORD  T1ME»5*-$$$0FF 
$$$OFF=$$$OFFt$$$LEN 

.ENDR 


$$$OFF= 

$$$STM 

SSTMTB: 

:.REPT 

M$$PRO 

.WORD 

TIMER3t$$$0Fr 

$$$OFF= 

$$$OFFt 
.ENDR 

t$$LEN 

$CRESL: 

:LCKDFt 

SPIN 

.ENDC 

;  MSIPRO 

.ENOC 

;  R$$MPL 

SSHLST: 

:.WORD 

0 

SIMASK: 

SEMASK: 

; 

SETIMR: 

■ 

$SPAR1: 

:.WORD 

0 

.WORD 

0 

$pbia:: 

• 

$SPAR2.- 

:.WORD 

0 

.WORD 

0 

' 

.IF  DF 

R$$MPI 

:•  Cel  Ls 

to  be 

moued  to  the  DECnet 

iAfJNHD: 

:,BL<W 

1 

SRNNHD: 

:.WORD 

.'2 

.WORD 

0 

SNTNAM: 

.•.8LKR 

6 

SNSPNM: 

:.BLKW 

SNODID: 

:.8LKW 

.BLKB 

32. 

$HOST:: 

.BLKW 

$NLN:: 

.SLKW 

$NN : : 

.8LKW 

$MAXC:: 

.^VYV 

$MAXH:: 

.8LKW 

$MAXV:. 

.WORD 

20. 

iSQRTL. 

i.BLKW 

SROUTM 

:.WORD 

30. 

TIMER  QUEUE  BLOCK 


POINTER  TO  PROCESSOR  DEPENDANT  TIMER  CELL 


POINTER  10  PROCESSOR  DEPENDANT  TIMER  CELL 
SERIALIZE  ACCESS  TO  COMMEXEC  RESOURCES 

SECONDARy  HOST  LISTHEAD 

For  3271  back  compatibility  (1.0  con;m  exec) 

First  OcjUl-  word  spare  cell 

For  3271  back  combat ibi I ity  (1.0  comm  exec) 
Second  Double  word  spare  cell 

Leaue  cells  for  M+  backwards  compatabi  I  i ty 

Home  Block 

ALIAS  NODE  NAME  LISTHEAD 

REMOTE  NODE  NAME  lISTHEAD 

TEMPORARY  END  OF  REMOTE  NAME  LISTHEAD 

LOCAL  NODE  NAME 

LOCAL  NODE  NUMBER 

LENOFH  OF  LOCAL  NODE  IDENT  STRING 

LOCAL  NODE  IDENTIFICATION 

HOST  NODE  ADDRESS 

NUMBER  OF  ROUTING  CHANNEl S  FOR  NSP 

NUMBER  OF  NODES  IN  NETWORK 

MAXIMUM  COST 

MAXIMUM  HOPS 

MAXIMUM  VISITATION  COUNT 

SQUARE  ROOT  LIMITING  FACTOR 

ROUTING  TIMER  (SECONDS) 


.ENDC   ;  R$$MPL 
SYNC  AND  PAD  BUlFtR  DESCRIPTORS 


C  4 


r 
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101 

102 

103  000000 

in^  000002 

105  00000^ 

•  Ob 

H.7 
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.SBTTL 


000000 

OOOOOOG 

172354 

000002 


SSTCVT: 

•.WORD 

0 

KSAR5: 

.WORD 

KISAR5 

KSAR6: 

...JORD 

KIT'  :6 

B  5 

EXECUTIVE  VECTOR  TABLE 

;  FLAGS  WORD 


SSTCVL  ==  <<.-$STCVT>/2>-1  ;  LENGTH  OF  VECTOR  TABLE 


n 


C  5 


'!_     r 
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716 
717 
718 
719 


000001 


.ENDC 
.END 


r    A 


!____    r 


STCRCF 
SClCRC 


MACRO  V05.03b  F 
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109 

110 

111 

112 

113 

IH 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128  000006 

129 

130 

131 

132  000006  017746   177770 

133 

13A 

135 

136 

137 

138 

139 

KO 

HI 

U2 

U3 

U5  000012 

K6  000020  005001 

U7 

U8  00002?  010403 

U9  000024  062703  OOOOK 

150 

151 

152 

153 

154  000030  012377  177746 

155 

156 

157 

158 

I5s> 

;60 

IAI 

162 

163 

164 

165 


.SBTTL  SCLCRC  -  CALCULATE  CRC-16  ON  A  TRANSMIT  CHAIN 

♦*-$CLCRC-CALCULATE  CRC  (CRC16)  ON  A  TRANSMIT  CHAIN 

INPUTS: 

R4  -  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

C.LNK  -  ADDRESS  OF  NEXT  CCB  IN  CHAIN  (0  MARKS  END) 
C.BUF  -  DOUBLE  WORD  ADDRESS  OF  BUFFER 
C.CNT  -  lENGTH  OF  BUFFER 
C.FLG  -  SUFFER  FLAGS 

OUTPUTS: 

CRC  IS  STORED  AT  THE  END  OF  EACH  BUFFER  AND  THE  BYTE 
COUNT  IS  UPDATED. 


5$ 


REGISTERS  MODIFIED: 
R2,  R3 

LCRC:: 

.IF  DF 
.IF  NDF 

M$$MGE 
I$$AS 

MOV 

aKSAR5,-(SP) 

.IFF 

;  I$$AS 

MOV 
BIT 
BEQ 
MOV 
:     MOV 

*KP.AR3,-(SP) 

«140000,PS.EXP 

5$ 

#UPAR0+6,(SP) 

a(SP),-(SP) 

.ENDC 
.ENDC 

;  I$$AS 
;  M$$MGF 

SAVRG 
CLR 

<R0,R1 ,R4> 
Rl 

)$:    MOV 
ADD 

R4,R3 
*C.eUF,R3 

.IF  DF 
.IF  NDF 

M$$MGfc 
I$$AS 

MOV 

(R3)t,aKSAR5 

.IFF 

;  I$$AS 

MOV 

(R5)»,S10(SP) 

.ENDC 
.IFF 

;  I$$AS 
;  M$$MGE 

TST 

(R3)* 

.IFTF 

;  MSSi^GE 

SAVE  CALLER'S  MAPPING 


ASSUME  KERNEL  MODE 

IS  IT  ? 

VES  -  BR 

NO  -  MUST  BE  USER  MODE 

SAVE  CURRENT  MAPPING 


SAVE  REGISTERS 

INITIALISE  CRC  ACCUMULATOR 

COPY  CCB  ADDRESS 
AND  POINT  TO  BUFFER  DESCRIPTOR 


MAP  TO  THE  DAIA 


MAP  TO  THE  DATA 


SKIP  OVER  RELOCATION  BIAS 


r  7 
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A$$CHK= 

A$$CPS= 

A$$PRI^ 

A$STRP= 

BUFUMP= 

CB.CCB^ 

CB.D[)M= 

CB.DLC= 

CB.RDB= 

'B.SDB= 

CB.SL1= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.OAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.IME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LE  = 

CF.L1N= 

CF.SOM- 

CF.SYN= 

CF.TRN= 

CLRKG  = 

CMOOE  = 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.r'CF  = 

CP.HDL= 

CP.PS  = 

^P.PSI= 

CP.XCF= 

CP.2FR= 

CRC16  = 

.  ABS. 


000000 
000000 
000000 

ooooco 

17235'. 

000002 

OOOOAO 

000020 

OOOOC  '• 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

10036A 

100352 

100354 

100374 

1003A4 

000001 

000004 

000C20 

100000 

000002 

000010 

000040 

000100 

000020 

140000 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000001 


CS.AB0= 

C5.BRG= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.[)EV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.M1L= 

CS.RNG= 

CS.R0V= 

CS.RSN= 

CS.SHU= 

CS.S1D= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTABL 

C$$CKP= 

C$$CRE= 

r$$RSM-- 

C.ADD 

C.BID 

C.BUF 

C.6UF1 

C.BUF2 

C.CN1 

C.CNT1 

C.CNT2 

C.FLC 

C.FL&1 

C.Fi  G2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.S1A 


000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002C00 

040000 

00<<000 

000010 

000004 

010000 

uOOOOl 

000002 

000004 

000001 

020000 

000004 

OO0234P 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 


001234 
Errors  detected; 


000 
001 
0 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,C0N) 


C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

UDB   = 

D$$BUG= 

D$$ISK= 

0$$L11= 

D$$VNC= 

()$$YNM= 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FS.AST= 

FS.C]e= 

FS.CRA= 

fS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EXI= 

FS.GET= 

FS.Hl  T  = 

FS.!NII  = 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSM-^ 

FS.REA= 

FS.RE1= 

FS.REZ= 

FS.RLe= 


000012 
177776 
000004 
000035 
000044 
000040 
000r34 
000042 
000037 
000036 
000010 
177514 
000000 
000001 
000000 
000000 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
0010U0 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 


FS.RNG= 

fS.RST= 

FS.RTN^ 

FS.SE7= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WlB= 

FS.XKL= 

FS.X0F= 

FS.XON- 

FS.ZEf< 

F$$AS1= 

F$1LVL= 

G$$TPP= 

fc$$TSS= 

G$$TTK- 

G$$WRD= 

I$IRAR= 

I$$RDN= 

KGCSR  = 

KGINIT= 

KGLDBC= 

KI.SARO= 

KISAR5= 

KISAR6= 

KSAR5 

KSAR6 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LRC15  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MPAR  = 

MPCSR  = 

|vi$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 


011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000001 

OOOOdO 

000000 

000000 

000000 

000000 

000000 

170700 

000111 

000133 

172340 

******  GX 

172354 

000002R 

000004R 

177546 

177546 

000000 

000074 

000000 

000003 

000000 

000000 

000001 

ocoooo 

172100 
177746 
000124 
000000 
000000 
000000 


M$$NET= 

M$$0VR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

P$$P45= 

P$$WRD= 

Q$$0PT= 

R$$DER= 

R$$EIS= 

R$$K11= 

R$$SND= 

R$$11M= 

SEN 

STCR2 

SUR 

S$$WRG= 

S$$YSZ= 

IPS 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UISARO= 

U1SAR1= 

V$$C1R= 

X$$DBT= 

SCLCRC 

SSICRC 

SSTCRI 

$STCVL= 

SSTCVT 

.BASEB= 


000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

177772 

030000 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000000 

000000 

000010 

000000 

000000 

000001 

000000 

000000 

000100 

000162R 

177570 

000000 

007600 

177564 

000000 

000000 

170200 

1776'.0 

177642 

001000 

000000 

000006RG 

000122RG 

000124RG 

000002  G 

OOOOOORG 

UoOOO 

000034 


Asseiifc'er  stat'st'cs 
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166 

167  00003A 

168 

169 

170 

171 

172  000036 

173  000042 
'     00OOA4 


012502 


022702     UOOOO 

101002 

162702  C20000 


17A 

175 

176 

177 

178 

179 

180 

181  000050 

182 

183 

184  000050 

185  000052 

186  000056 

187  0000'^2 

1  Q  Q 

189  000064 

190  000066 

191  U0007C 

192  000072 

193  000074 

194  000100 
195 

196  0001 O:  011404 

197  000104  001346 
198 

199  000106 

200 

201 

202 

203 

204  0001  :4  012677  17?662 

205 

206 

207 

208 

209 

210 

211 

212 

215  000120 


20$: 


012500 

052715  000004 
001407 


060002 
110122 
000501 
110122 
062745 
005001 


000002 


50$: 


RETURN 


MOV 

fi3)  +  ,R2 

.IFT 
.IF  NDF 

;  M$$MGE 
I$$AS 

CMP 
BHI 
SUB 

#140000, R2 
20$ 
#20000, R2 

.IFF 

CMP 

BIOS 

ADD 

.ENDC 

;  i$$AS 
#60000, R2 
20$           ; 
#20000, R2      ; 
;  I$$AS 

.ENDC 

;  M$$MGE 

MOV 
CALL 
BIT 
BEQ 

(R3)+,R0 
srCR2 

#CF.E0M,(R3) 
50$ 

ADD 

MOVB 

SWAB 

MOVB 

ADD 

CLR 

R0,R2 

R1,(R2)*       ; 

R1           ; 

R1,(R2)t 

#2,-(R5) 

R1 

MOV 
SNE 

(R4),R4 
10$ 

RESRG 

<R4,R1,R0>      ; 

.IF  DF 
.IF  NDF 

MSSMGE 
I$$AS 

MOV 

(3P)+,aKSAR5 

.IFF 

;  I$$AS 

MOV 

(SP)  +  ,a(SP)*-    ; 

.ENDC 
.ENDC 

;  I$$AS 
;  M$$MGE 

GET  VIRTUAL  ADDRESS  OF  BUFFER 


IS  BUFFER  MAi-PED  Br  AND  APR  <  6? 

IF  HI,  rES 

MAP  BUFFER  THROUGH  APRS 


IS  BUFFER  MAPPED  BV  AN  APR  3  ? 
IF  LO  OR  SAME,  NO  -  MUST  BE  APR  5 
MAP  BUFFER  THROUGH  APR5 


GEI  LENGTH  OF  SEGMENT 
COMPUTE  CRC  ON  SEGMENT 
LAST  SEGMENT  IN  MESSAGE? 
IF  EQ,  NO 

POINT  TO  END  OF  MESSAGE 
STORE  CRC  FOLLOWING  DATA 


UPDATE  COUNT  IN  CCB 
RE-INITIALISE  CRC  ACCUMULATOR 

GET  NEXT  CCB  IN  CHAIN 
AND  COMPUTE  IT'S  CRC 

RESTORE  REGISTERS 


RESTORE  MAPPING 


RESTORE  MAPPING 


**wjd31** 
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T$SKN|G=  CQOOOO 
T$$MIN=  000000 


ABS.   177775 
0002U 
Erro's  detected; 


000 
001 
0 


UBMPR  =  170200 
UISARO=  177640 


(RW,I,GBl,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


UISAR1=  1776'42 
VS$CTR=  001000 


X$$DBT=  000000 
SBFRTN  OOOOOORG 


.BASEB=  140000 
.$$$$.=  000034 


Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system; 


17108  Words  (  67  Pages) 
17608  Words  {  67  Pages) 
RSX-11M/PLUS 


SY:AXBFR!\/2!n3°!?34B)<BFR/CR/-SP  =  Sy:C1,i:RSXMCM.SML/ML,[130,110].\:ETLI6/ML,ri50,10]RSXMCM/PA:1,[151, 


JIAXBFR 


AXDAT 


CREATED  BV  MACRO  ON  28-JUN-85  AT  18:28 


SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


SSTMFC 

STKPS 

tTKlOO 

SrSKRT 

STSTIM 

STISCL 

STIOOC 

STIOOQ 

SUMROT 

SXAVL 

SZTIME 

$ZTIM2 


****** 


r  ****** 
-  ****** 


=  ****** 


****** 


=     ****** 


GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
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REFERENCES 

5-132 

5-74 

5-138 

5-75 

5-139 

5-UO 

5-Kl 

5-U2 

5-76 

5-K3 

5-U4 

5-l'.8 
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Symbol  table 


A$$CHK= 
AS$rPS= 
A$$PR1= 
A$$TRP= 
CB.CC8= 
CB.DDM= 
CB.DLC= 
CB.RDB= 
CB.SDB= 
CB.SLI= 
CB.XLB= 
CCBRE' 
CCBRT  = 
CC.LLC= 
CE.ABO= 
CE.DAO= 
CE.DI5= 
CE.ERR= 
CE.ILN= 
CE.lTO= 
CE.MOP= 
CE.^JTE  = 
CE.RTE= 
CE.5RC= 
CE.ST-P  = 
.TME  = 
CE.THO= 
CE.UNS= 
CF.CHM= 
CF.EOM= 
CF.HDR= 
CF.LB  = 
CF.Lri= 
CF.SC  - 
CF.SyiJ= 
CF.TRN= 
CM.CIR= 
CM.FMT= 
CM.HRD= 
CM.L1N= 
CM.LOO= 
CM.XLO= 
CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PS1= 
CP.XCF= 
CP.2FR= 
CS.ABO= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.PCR= 
fS.DEF= 


OOOOCQ 

000000 

000000 

000000 

000002 

OOOOAO 

000020 

OOOOOA 

000010 

000100 

000001 

000030R 

•♦•»•»  GX 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

10037A 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

17''400 

C00200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 


CS.DEV= 

000002 

CS.DIS= 

00040 

CS.ENA= 

r  0001 

CS.EN8= 

-020 

CS.ERR= 

L'>.000 

CS.FTL= 

001000 

CS.HCR= 

000001 

CS.HFE= 

002000 

CS.LST= 

040000 

CS.MTL= 

004000 

CS.RNG= 

000010 

CS.R0V= 

000004 

CS.RSN= 

010000 

CS.SHU= 

000001 

CS.SID= 

000002 

CS.SIR= 

000004 

CS.SUC= 

000001 

CS.TM0= 

020000 

CS.XUR= 

000004 

C$$CKP= 

000000 

C$$ORE= 

000400 

C$SRSH= 

177564 

C.ADD 

000034 

C.BID 

000003 

C.BUF 

000014 

C.BUF1 

000014 

C.BUF2 

000024 

C.CNT 

000020 

C.CNT1 

000020 

C.CNT2 

00003C 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

C.LIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

000004 

C.PRO 

000042 

C.RSV 

000002 

C.STA 

000007 

C.STS 

000012 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLI 

000040 

C.XPT 

000034 

C.XSVC 

000042 

C.XTC 

000037 

C.X25 

000036 

Duny 

000026R 

D$$BUG= 

177514 

D$$ISK= 

000000 

D$$L11= 

000001 

DttVNC= 

'  B$rNM= 
EXRQN  = 
E$$XPR= 
FC.CCP= 
FC.CTL= 
FC.KCP= 
FC.KU  = 
FC.MAN= 
fC.MLD= 
Fl.PCT= 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CJB= 
FS.CRA= 
FS.DIS= 
FS.DVC-; 
FS.ENB= 
FS.EXJ= 
FS.GET= 
FS.HLT= 
FS.INJ= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.MNT=: 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RL8= 
FS.RNG= 
FS.KST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
F5.STM= 
FS.STP= 
FS.SrR= 
FS.TRM= 
FS.WLB= 
FS.XKL= 
FS.XOF= 
FS.X0N= 
FS.ZER= 
F$$LVL= 
G$$rPP= 


000000 
000000 

******  QY 

000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
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G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

]$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.9WT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.I*IFL  = 

LF.MFP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO- 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.FRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 


DDS 
_.DLC 
L.DLM 
L.DLS 
L.FLb 
L.KR8A 
L.LEN  = 
L.MPF 


000000 
000000 
000000 
000000 
000000 
177546 
1^7546 
000000 
000074 
000000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
17777o 
000002 
O.)C0O4 
00Cr"j3 
000006 
000010 
000000 
000016 
000022 
000022 


L.NMST 

L.NSTA 

L . OWNR 

L.UNT 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NETACP 

NHCL2  = 

NMCMP 

N$$ACC= 

N$$BUF - 

N$$LD'/= 

N$$M';P= 

N$$'ILL  = 

,\I$$NCT= 

N$$PEM=- 

P$$P45= 

P$$WRD= 

Q$$DPT= 

RDBRT  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SRSTD  = 

S$$WRG= 

S$$YSZ= 

S.CGST 

S.FLG 

3.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

SAUXTB 

SBF-^TN: 

SMDCIN 

.$$$$.= 


GX 


oc:o20 

000014 

000021 

000013 

000124 

000000 

000000 

000000 

000000 

000000 

000034R 

**♦*♦«  GX 

000040R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

****** 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

******  GX 

000000 

007600  ■ 

00C001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

OOOOOORG 

******  GX 

000026RG 

000034 
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POWERFAIL  RECOVERY  DISPATCH  ^0  DDM  MODULES 
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195 
194 
195 
196 
197 
198 
199 
200 
201 

202  000172 

203  00020J 
20A 

205  00020A 

206  000206 

207  000210 

208  000212 

209  000216 

210  000220 

211  000222 
212 

213 
2H 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 

226  000224 

227  000230 

228  000234 

229  000240 
230 

231  000244 

232  000246 

233  000250 
234 

235 
236 

237  000252 

238  000256 

239  000262 

240  000264 

241  000266 
242 

24  3 
244 

245  000272 

246  000300 
24  7 

248 

249  C003C2 


0127^7 
017746 

011603 
005303 
006303 
067703 
C11303 
005713 
100010 


016305 
116302 
016703 


005316 
001356 
005726 


.SBTTL  POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

»-PWkFL-POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

THIS  ROUTINE  IS  INVOKED  FROM  THE  DRIVER  POWERFAIL  ENTRY  POINTS  TO 
DISPATCH  TO  DDM  MODULES  TO  PERFORM  POWERFAIL  RECOVERY.  IF  THE  KMC 
MICROCODE  LOADER  TASK  IS  INSTALLED,  IT  WILL  BE  REQUESTED  TO  RUN. 


177777  OOOOOOG  PURFL: 
OOOOOOG 


10$: 


OOOOOOG 


15$: 


000004 
000002 
OOOOOOG 


20$: 


012703  000302' 

103403 
005001 


017777  OOOOOOG  OOOOOOG  30$: 


043313  047574 


KMCL  : 


MOV 

#-1,aPWRFl 

MOV 

SSLTNM.-(SP) 

MOV 

(SP),R. 

DEC 

R3 

ASL 

R3 

ADD 

SSLTMA,R3 

MOV 

(R3),R3 

TST 

(R3) 

BPL 

20$ 

.IF  DF   R$$MPL 
.IF  NDF  R$$PRO 


BIT 
BEQ 
MOV 
MOV 
BIT 
BEQ 

.ENDC 
.ENDC 

MOV 

Move 

MOV 
CALL 


#F2.MP,aFMSK2 

15$ 

L.KRBA(R3),R5 

S)CPURM,-(SP) 

K.URM(R5),a{SP; 

20$ 


L.DDS(R3),R5 
I  .DDM(R3),R2 

d:fnc,r3 

aPbSPL 


DEC  (SP) 

BNE  10$ 

TST  (SP)+ 

.IF  NDF  I$$AS 


*KMCL,R3 

aSRSTD 

30$ 

R1 

aTSKRT 


aSLTNM,aPWRF1 


MOV 

CALL 

BCS 

CLR 

CALL 

.ENDC 

MOV 
RETURN 


.IF  NDF  I$$AS 
.RAD50  /KMCL../ 


STOP  TIMERS  RUNNING  TO  DDM  PROCESSES 
SET  UP  COUNT  OF  LINES  TO  SCAN 

GET  NEXT  SfSTEM  LINE  # 

FORM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
AND  GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
IS  THE  LINE  ACTIVE? 
IF  PL,  NO 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

GET  ADDRESS  OF  KRB 

GET  ADDRESS  OF  CPU  URM  TABLE 

ARE  WE  RUNNING  ON  THE  CORRECT  PROCESSOR? 

IF  EQ,  NO 


GET  LINE  TABLE  ADDRESS 

AND  DDM  PDV  INDEX 
POINT  TO  POWERFAIL  FUNCTION  CODE 
DISPATCH  TO  DDM 

REDUCE  COUNT  OF  LINES  TO  SCAN 
LOOP  IF  MORE  TO  GO 
CLEAN  UP  THE  STACK 


POINT  TO  KMC  LOADER  TASK  NAME 
SCAN  TO  FIND  TASK'S  TC8 
IF  CS,  TASK  NOT  INSTALLED 
CLEAR  DEFAULT  UIC 
REQUEST  TASK  TO  RUN 


START  DISCONNECT  NOTIFICATION  ON  ALL  LINES 


TASK  NAME  OF  KMC  MICROCODE  LOADER 
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75  .MCALL      SLTDf$,CCB[)F$,SAVRG,RESRG 

77  000000  SLTDFS  ;    DEFINE    SYSTEM  LINE    TABLE   OFFSETS 

78  000000  CCBDFI  ;    DEFINE   CC8  OFFSETS 


i'..»"<?i««I^'^<  <iP^pii|#w^^m  1 
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*«F1LE'*ID*«AXDSPP 


AAAAAA 

XX 

XX 

DDDLODDC 

SSSSSSSS 

pppppppp 

pppppppp 

AAAAAA 

XX 

XX 

DDDDDDDD 

SSSSSSSS 

pppppppp 

pppppppp 

AA      AA 

XX 

XX 

DD 

DD 

SS 

pp    pp 

pp    pp 

AA      AA 

XX 

XX 

DD 

DD 

ss 

pp    pp 

pp    pp 

AA      AA 

XX 

XX 

DD 

DD 

SS 

pp    pp 

pp    pp 

AA      AA 

XX 

XX 

DD 

DD 

ss 

pp    pp 

pp    pp 

AA      AA 

X) 

DD 

DD 

ssssss 

pppppppp 

pppppppp 

AA      AA 

X) 

DD 

DD 

ssssss 

pppppppp 

pppppppp 

AAAAAAAAAA 

XX 

XX 

DD 

DD 

ss 

pp 

pp 

AAAAAAAAAA 

XX 

XX 

DD 

DD 

ss 

pp 

pp 

AA      AA 

XX 

XX 

DD 

DD 

ss 

pp 

pp 

AA      AA 

XX 

XX 

DD 

DD 

ss 

pp 

pp 

AA      AA 

XX 

XX 

DDDDDDDD 

ssssssss 

pp 

pp 

AA      AA 

XX 

XX 

DDDDDDDD 

SSSSSSSS 

pp 

pp 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

'TTTTTTTTT 

LL 

ss 

LL 

SS 

LL 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

C  1 

CESUB'   ^1'VCR0  V05.03b  Friday  28-Jun-85  18:20 
^ab'e  ot  contents 

QUEUE  A  CHAIN  OF  CC8S  TO  A  LIST 

REMOVE  A  CHAIN  OF  CC8S  FROM  A  LIST 

CONVERT  TO  18-8IT  UNIBUS  ADDRESS 

MOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

MOVE  FROM  UNMAPPED  BUFFER  TO  A  MA>"PED  BUFFER 

MAPPED  SUBROUTINE  CALL 

ACCESS  BLOCK  IN  EXTENDED  POOL 

ACCESS  BLOCK  IN  ALTERNALE  EXTENDED  POOL 

PROCESS  NAME  TO  PDV  INDEX 

UNSIGNED  MULTIPLY 

UNSIGNED  DIVISION 


6- 

68 

SCMQIN 

7. 

'01 

SCMQRM 

H- 

U2 

$CNV18 

Q- 

20-^ 

SMVTBF 

10- 

256 

SMVFBF 

11- 

310 

SCALLX 

12- 

36? 

tCEACC 

12- 

566 

SCECAC 

M- 

4'5 

SPDVID 

U- 

A5G 

SCEMUL 

Ib- 

A81 

ICEDIV 

D  1 


._J 
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SCEDlV  -  UNSIGNED  DIVISION 


C  2 


481 

A82 

A83 

A84 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501  000542 

502 

503  000542  010146 

504  000544  010001 

505  00054'!  005000 

506  00055J  071026 

507  000552 
508 

'09 
510 
511 
512 
513 


.S8TTL  SfEDIV  -  UNSIGNED  DIVISION 

**-  SCEDIV  -  UNSIGNED  DIVISION 

THIS  SUBROUTINE  PERFORMS  UNSIGNED  DIVISION  WHERE  THE  RESULTS  ARE  LESS  THAN 
16  BITS.  IT  IS  INCLUDED  HERE  SC  THAT  WE  CAN  CONDI TIONAL ISE  THE  CODE  FOR 
EXTENDED  INSTRUCTION  SET. 

NOTE  THAT  IT  IS  THE  CAl LERS  RESPONSIBILITY  TO  ENSURE  THAT  THE  RESULTS  WILL 
FIT  IN  16  BITS. 

INPUTS: 


RO  = 

Rl  = 

DIVIDEND 
DIVISOR 

OUTPUTS: 

RO  = 
Rl  = 

QUOTIENT 
REMAINDEri 

EDIV: 

:.IF 

3f   R$$EIS 

MOV     R1,-(SP) 
MOV     RO,R' 
CLR     RO 
DIV     CSP)+,RO 
RETURN 

.IFF 

;  DF  R$$EIS 

CALLR    $DIV 

.ENDC   ;  DF  R$$E1S 

SAVE  DIVISOR 
SET  UP  DIVIDEND 
CLEAR  HIGH  ORDER  WORD 
PERFORM  THE  DIVISION 


CALL  EXEC  DIVIDE  ROUTINE 


D  2 
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C  3 


10A 
105 
106 
107 
108 
1.09 
110 
111 
112 
113 
1 1  ^ 
115 
116 
117 

118  000052 

119  00005^ 

120  000060 

121  000064 

122  000066 

123  000072 
124 

125 
126 


010AA6 
012703 

012604 


000001 


.SSiTL  DISPATCH  A  PROCESS  TIMEOUT 

h 

♦*-$DSPTM-DISPATCH  A  PROCESS  TIMEOUT 

DISPATCH  A  PROCESS  TIMEOUT  AT  IT'i  TIMEOUT  ENTRY  POINT  WITH  A 
SUBFUNCTION  CODE  OF  'FS.LTM' 


INPUTS: 


R2 
R5 


PDV    INDEX   OF    PROCESS 

POI'.TER    TO  PROCESS    '  INE    TABLE 


OUTPUTS: 


ONLY  R4  WILL  BE  PRESERVED 


OOOOOOG 


$DSPTM: :MOV 
MOV 
CALL 
MOV 
MIPS 
RETURN 


.END 


R4,-(SP) 

#$LTMFC,R3 

SPDSPL 

(SP)+,R4 

#0 


SAVE  CALLER'S  M 
GET  ADDRESS  CF  FUNCTION  CODE 
DISPATCH  TO  PROCESS 
RESTORE  CALLER'S  R4 
ENABLE  INTERRUPTS 


I)  ^ 


CtXCM  -  CEX  COMMON  DATABASE 
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29^ 

295  000324 

296  0CO324 

297  000326 

298  000330 
299 

300  000332 

301  000332 

302  00033' 

303  000336 
304 

305  000340 

306 

307 

308 

309  000352 

310 

311 

312 

313 

314 

315 

316 

317 

318  000000 

319 

320  000000 

321  000002 

322  000004 
323 

324  000000 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 


000000 

000352' 

000010 


000000 

000340' 

000012 


0C0012 


000010 


SSYMB:: 


.WORD   0 
.UORD   SSVMBF 
.WORD   SSYNCT 


SPADB : : 


SPADBF  : 


SSVNB- : 


.WORD   0 
.WORD   SPADBF 
.WORD   IPADKL 


.REPT  SPADKL 

.BYTE  $PAD 
.ENDR 

'.REPT  tSYMCT 

.BYTE  $SYNC 
.EMDR 


000003 
000000 
000000 


COMM  EXEC  FREE  SPACE  POINTER 

.IF  NDF  R$$MFL 
.PSECT  SSSPOL 

.WORD   3 

$CEAVL.-:.WORD   0 

.WORD   0 

.PSECT 

.ENDC   ;  NDF  R$$MPL 

.ENDC   ;  DF  M$$NET 

.U  DF  R$$MPL 


SMTEND: 


ROUNDING  FACTOR 

POINTER  TO  FIRST  FREE  BLOCK 


000001 


.ENDC   ;  R$$MPL 


.END 


END  OF  ARE  10  DEALl OCaTE  IN  SET  /NOCEX 
MCR  COriMANt 


n  L 


r 


STCRC   MACRO  V05.03b  Friday  28-Jjn-85 
SCLCRC  -  CALCULATE  CRC-16  ON  A  TRANSMIT 

109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 

lei 

124 

125 

126 

12?' 

128  000006 

129 

130 

131 

132  0000C6  017746  177770 

133 

134 

135 

136 

137 

158 

139 

140 

141 

142 

143 

144 

145 

146 

14, 

148 

149 

150 

15^ 

152 

153 

154  300050  012377  177746 

155 

156 

157 

158 

i59 

160 

161 

1A2 

163 

'64 

165 
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CHAIN 


C  5 


.seni.  SCLCRC  -  calculate  crc-16  on  a  transmit  chain 

'♦-SCLCRi-CALCULATE  CRC  (CRC16)  ON  A  TRANSMIT  CHAIN 

INPUTS: 

R4  -  ADDRESS  OF  FIRST  CC8  IN  CHAIN 

C.LNK  -  /DDRESS  OF  NEXT  CCB  IN  CHAIN  (0  MARKS  END) 

'.9UF  -  DOUBLE  WORD  ADDRESS  OF  BUFFER 

L.CNT  -  lENGTH  OF  BUFFER 

C.FLG  -  BUFFER  FlAGS 

OUTPUTS: 

CRC  IS  STORED  AT  THE  END  OF  EACH  BUFFER  AND  THE  BYTE 
COUNT  IS  UPDATED. 


5$ 


0O0U12 

000020  005001 

000022  010403 

000024  062703  000014 


REGISTERS  MODIFIED: 
R2,  R3 

LCRC:: 

.IF  DF 
.IF  NDF 

M$$MGE 
I$$AS 

MOV 

aKSAR5,-'SP) 

.IFF 

;  I$$AS 

MOV 
BIT 
BEQ 
MOV 
MOV 

*KP.AR3,-(SP) 
#140000, PS. EXP 
5$ 
#UPAR0+6,(SP) 

a(SP),-(SP) 

.ENDC 
.ENDC 

;  I$$AS 
;  MSSMGE 

SAVRG 
CLR 

<R0,R1,R4> 

Rl 

$:    MOV 
ADD 

R4,R3 
#C.8UF,R3 

.IF  DF 
IF  NDF 

M$$MGE 
I$$AS 

MOV 

(R3)+,aKSAR5 

.IFF 

;  I$$AS 

MOV 

(R3)t,J10(SP) 

.IFF 

;  ;I$AS 
;  MSJMGE 

TST 

(R3)t 

.IFTF 

;  M$$MGE 

SAVE  CALLER'S  MAPPING 


ASSUME  KERNEL  MODE 

IS  IT  ? 

VES  -  BR 

NO  -  MUST  BE  USER  MODE 

SAVE  CURRENT  ^:APPING 


SAVE  REGISTERS 

INITIALISE  CRC  ACCUMULATOR 

COPV  CCB  ADDRESS 
AND  POINT  TO  BUFFER  DESCRIPTOR 


MAP  TO  THE  DATA 


MAP  TO  THE  DATA 


SKiP  OVER  RELOCATION  BIAS 


STCRC   MACRO  V05.03b  friday  28-Jun-85  18:21 
SymboL  table 


AStCHK-- 

A$$CP5= 

A$$PRI= 

ASSTRPr 

BUFUMP= 

CB.CCB= 

CB.DDM= 

C3.DLC= 

CB.RDB= 

CB.SDB= 

CB.3LI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.»JTE  = 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.1ME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

lF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SVN= 

CF.rRN= 

ClRKG  = 

rMOHE  = 

CM.nR  = 

CM.FWT= 

CM.HRD-- 

CM.L1N= 

CM.LOO= 

CM.XLC= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PS!= 

CP.XCF= 

CP.2FR= 

rRC16  = 


OOOOOC 

000000 

000000 

000000 

172554 

000002 

OOOOAO 

000020 

000004 

000010 

000100 

000001 

000200 

100362 

100'?46 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

10C344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

00C100 

000020 

140000 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000001 


.  ABS.   V77/6 
000356 
Errors  JetecteO: 


CS.AB0= 

CS.BR0= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.[)EV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.MfE= 

CS.LST^ 

CS.MTL= 

CS.RNG= 

CS.R0V= 

rS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTABL 

C$$CKP= 

C$$0RE= 

C$$RSHi 

C.ADD 

C.BID 

C.8UF 

C.BUFi 

C.6UF2 


.CNT 
C.CNTl 
C.CNT2 
r.FLG 
C.FLGl 
C.FLG2 
C.FNC 
C.lIM 
C.LW 
C.nOD 
C.MSP 
C.PRC 
C.R5V 


000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

00^000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000256R 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 


000 
001 
C 


(RW,l,GbL,A8S,0VR) 
(RU,1,LCL,REL,C0N) 
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C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLl 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DDB   = 

D$$BUG= 

DSSISK^ 

DJ.$L11  = 

P$$VNC= 

D$$YNM= 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.riM= 

FC.XCP= 

FC.XME= 

FS.AST= 

FS.CI8= 

FS.CRA= 

FS.[)IS  = 

FS.DVC= 

FS.ENB= 

FS.EXI-^ 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KJL= 

FS.LCL= 

fs.l:m= 

FS.MNT^ 
FS.|i1SN= 
F5.REA= 
FS.RET= 
FS.REZ= 


C  6 


000007 
000012 
177776 
000004 
000035 
000044 
000040 
000034 
000042 
000037 
000036 
000010 
177514 
000000 
000001 
000000 
000000 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
00100C 
00600C 
000000 
000000 
000000 
100000 
001 000 
004000 
014000 
OOIOUO 
000000 
003000 


FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.WLB= 
FS.XKL= 
FS.X0F= 
FS.X0N= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 

g$$:tk= 

G$$WRD= 

I$$RAR= 

ISIRDNi-^ 

KGCSR  = 

KGINIT= 

KGLDBC= 

KISAR0= 

KISAR5= 

KISAR6= 

KSAR5 

KSAR6 

K$$CNT= 

K$$CSR= 

K$$LDC= 

<$$TPS= 

L':$LP  - 

LRC16  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MPAR  = 

MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS^- 

M$$MGE= 


002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

170700 

000111 

000133 

172340 

******  GX 

172354 

000002R 

000004R 

177546 

177546 

000000 

000074 

000000 

000003 

000000 

000000 

000001 

OGOOOO 

172100 

17/'746 

000124 

000000 

000000 

000000 


M$$NET= 

M$$0VR= 

N$$ACC= 

N$$BUF= 

N$$LD\/= 

N$$MCP= 

N$$MLL= 

N$$HOV= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PPO 

PR1 

PR  2 

PR3   = 

PR4 

PR5 

PR6   = 

PR7 

PS 

P$$P45= 

P$$WRD= 

Q$$DPT= 

R$$DER= 

R$$EIS= 

R$$K11= 

R$$SND= 

R$$11M= 

SEN   = 

STCR2 

SWR 

S$$WRG= 

S$$YSZ= 

rps 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UISAR0= 

UISAR1= 

V$$CTR= 

X$$DBT= 

SCLCRC 

SSTCRC 

SSTCRl 

$STCVL= 

SSTCVT 

.BASEE- 

.$$$$.= 


000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
0C0001 
U7772 
030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 

Mint 

000000 

000000 

000010 

000000 

000000 

C00001 

000000 

000000 

000100 

000162R 

177570 

000000 

007600 

177564 

000000 

000000 

170200 

177640 

177642 

001000 

000000 

000006RG 

000122RG 

000124RG 

000002  G 

OOOOOORG 

140000 

000034 


Assembler  ■  tat i st ir s 
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C     7 


185 


166 

167  CQ003'. 

168 

169 

170 

171 

172  C00056 

173  0000^2 
17A  OOOOAA 
175 

176 
177 
178 
179 
180 

181   000050 
182 
183 

184  000050 
'^  000052 
000056 
187  000062 
1  88 

189  00006A 

190  000C66 

191  000070 

192  000072 

193  000074 

194  000100 
195 

196  000102 

197  000104 
198 

199  000106 

200 

201 

202 

203 

204  000114 

205 

206 

207 

208 

209 

210 

211 

212 

2' 3  C0012C 


01230c 


022702  140000 

101002 

162732  020000 


20$: 


012300 

032713  000004 
001407 

060002 

110122 

000301 

110122 

062743  000002 

005001 

011404 
001346 


012677     177662 


30$: 


MOV 


(R3)i-,R2 


RETURN 


.IFT 
.IF  NDF 

;  M$$MGE 
!$$AS 

CMP 
BHI 
SUB 

#1 40000, R2 

20$ 

#20000,";? 

.IFF 

CMP 

BLOS 

ADD 

.ENDC 

;  I$$AS 
*60000,R2 
20$ 

*20000,R2 
;  I$$AS 

.ENDC 

;  M$$MGE 

MOV 
CALL 
BIT 
BEQ 

(R3)',R0 
STCP,2 

*CF.E0M,(R3) 
30$ 

ADD 

MOVB 

SWAB 

MOVB 

ADD 

CLR 

R0,k2 

R1,(R2)t 

R1 

Rl,(R2)t 

*2,-(R3) 

R1 

MOV 
BNE 

(R4),R4 
10$ 

RESRG 

<R4,R1,R0> 

.IF  DF 
.IF  NDF 

M$$MGE 
I$$AS 

MO,' 

(SP)+,aKSAR5 

.IFF 

;  I$$A5 

MOV 

(SP)+,a{SP)+    ; 

.ENDC 
.ENDC 

;  I$$AS 
;  M$$MGE 

GET  VIRTUAL  ADDRESS  OF  BUFFER 


IS  BUFFER  MAPPED  BY  A".'D  APR  <  6? 

IF  HI,  YES 

MAP  BUFFER  THROUGH  APRS 


IS  BUFFER  MAPPED  BY  AN  APR  3  ? 
IF  LO  OR  SAME,  M  -   MUST  BE  APR  3 
MAP  BUFFER  THROUGH  APR3 


GET  LENGTH  OF  SEGMENT 
COMPUTE  CRC  ON  SEGMENT 
LAST  SEGMEN"  IN  MESSAGE? 
IF  EQ,  NO 

POINT  TO  END  OF  MESSAGE 
STORE  CRC  FOLLOWING  DATA 


UPDATE  COUNT  IN  CCB 
RE-INITIALISE  CRC  ACCUMUlATO,^ 

GET  NEXT  CCB  IN  CHAIN 
AND  COMPUTE  IT'S  CRC 

RESTORE  REGISTERS 


RESTORE  MAPPING 


RESTORE  MAPPING 


**w]d01** 


STCRCF   MACRO  VO5.03b  Friday  28-Jun-8S  18:22 
Symbol  table 


Work  file  reads:  0 

Work   f i le  writes:  0 

Size  of  work  file:  15190  Words  (  60  Pages) 

Size  of  core  pool:  16552  Words  (  63  Pages) 

Operating  system:  RSX-11M/PLUS 
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C  8 


Elapsed  time:  00:00:16.30 

SY : STCRCF. V2, [130,1 34]STrRCF /CR/- 


=  SV:[1,1]RSXMCM.SML/ML,[130,V0]NETLIB/ML,C130,10]RSXMCM/PA:  1  ,[1  3J,  10]V2,STrRC 


n 


STCRCK  MACRO  V05.03b  Friday  28- 
$STCkC  -  CALCULATE  CRC  ON  BLOCK 


215 

216 

217 

2'8 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

2A0 

241 

242 

243 

2<,4 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

271 


Jun-85  18:22 
OF  DATA 
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C  9 


.SBTTL  SSTCRC  -  CALCULATE  CRC  OM  BLOCK  Of  DATA 


000122  005001 
000124 


000124  017746  177652 

000130  016477  000014 

000136  022702  140000 

000142  101002 

000144  162702  020000 


«»-$STCRC-CALCULATE  CRC  ON  BLOCK  OF  DATA 
**-$STCRl-ALTERNATE  ENTRY  (R1  -  PARTIAL  CRC) 


CALCULATE  THE  CRC 
INPUTS: 


ON  A  BLOCK  OF  DATA. 


RO  -  *  OF  BYTE3  IN  DATA  BLOCK 

Rl  -  PARTIAL  CRC  OR  0 

R2  -  POINTER  TO  DATA  BLOCK 

R4  -  CC6  DESCRIBING  DATA  BUFFER 


OUTPUTS: 

Rl  -  UPDATED  CRC  VALUE 


SSTCRC: 
SSTCRI  : 


177644 


000' 50 
000150 

000154  012677  I77£22 


5$: 


10$: 


:CLR 


Rl 


.IF  DF  M$$MGE 
.IF  NDF  I$$AS 


MOV 
MOV 
CMP 
BHI 
SUB 

.IFF 

MOV 

BIT 

BEQ 

MOV 

MOV 

MOV 

CMP 

BLOS 

ADD 

.ENDC 

.ENDC 

CALL 


a<SAR5,-(SP) 
C.8UF(R4),aKSAR5 
#140000, R2 
10$ 
#20000, R2 

;  ISfAS 

#KP.^^3,-(SP) 

#14001,0, PS. EXP 

5$ 

#UPAR0*-6,(SP' 

a(SP),-(SP) 

C.BUF(R4),S2(SP) 

#60000, R2 

10$ 

#20000, R2 

;  I$$AS 

;  M$$MGE 

STCR2 


.IF  DF   M$$M'^E 
.IF  NDF  I$$a:, 


MOV 
.IFF 

MOV 
.ENDC 


(SP)+,SK5AR5 

CSP)«,a(SP)t 
;  !$$A5 


INITIALISE  CRC  ACCUMULA^:R 


SAVE  CURRENT  MAPPIiMG 
:   AND  MAP  TO  BUFFER 
IS  BUFFER  MAPPED  BY  APR  >  6? 
IF  HI,  NO 
MAP  BUFFER  USING  APR5 


ASSUME  KERNEL  MODE 
KERNEL  MODE  ? 
YES  -  BR 

NO  -  MUST  BE  USER  MODE 
SAVE  CURRENT  MAPPING 
;  MAP  TO  DATA  BUFFER 
IS  BUFFER  MAPPED  BY  APR  2? 
IF  LO  OR  SAME,  NO 
MAP  BUFFER  USING  APR3 


CALCULATE  CRC 


RESTORE  MAPPING 


RESTORE  MAPPING 
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TAGE  1 

CREF   n^.oo 


SYMBOL   VALUE 


REFERENCES 


BUFUMP 

CF.EOM 

CLRKG 

CMODE 

CRC16 

C.BUF 

ODB 

I$$AS 

KGCSR 

KGINIT 

KGLDBC 

KISARO 

KISAR5 

KISAR6 

KSAR5 

KSAR6 

<$$G11 

LRC16 

L$$sn 

MPAR 

MPCSR 

M$$MGE 

PIRQ 

PMODE 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

P$$3A 

P$$AO 

P$$A5 

P$$70 

R$$EIS 

R$$M°L 

R$$11D 

SEN 

STCR2 

SWR 

TPS 

UBMPR 

UISARO 

UISARI 

SC.CRC 

SSTCRC 

tSTCRI 

$STrvL 

Ssrri/T 


GX 


172354 
000004 
C00020 
140000 
000001 
000014 
000010 

****** 

170700 
000111 
000133 
172340 

****** 

172354 
000002  R 
000004   R 
000001 
000003 

****** 

172100 

177746 

OOOOOC 

1 77772 

030000 

000000 

00004C 

000100 

000140 

000200 

000240 

:  000300 

:  000340 

:   177776 


=  000000 


000100 
000162  R 
177570 
177564 
170200 
177640 
177642 
000006  RG 
000122  RG 
000124  RG 
000002     G 
000000  RG 


#6-68 

9-186 

*7-96 

7-98 

*6-68 

*7-''3 

7-99 

9-149 

10-239 

#7-95 

7-98 

7-99 

6-68 

9-130 

9-152 

#7-92 

11-295 

11-296 

#7-99 

11-305 

#7-98 

11-299 

11-334 

#6-68 

8-104 

#6-68 

8-105 

#8-104 

9-132 

9-154 

#8-105 

#4-2 

5-1 

11-293 

#7-94 

7-98 

6-73 

#6-68 

#6-68 

6-68 

6-73 

9-129 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#6-63 

#6-o8 

#6-68 

#6-68 

6-73 

6-73 

6-73 

6-73 

#6-75 

6-79 

6-68 

6-68 

6-68 

6-68 

#7-97 

7-98 

7-99 

9-185 

10-260 

#11-291 

#6-68 

#6-68 

#6-68 

#6-68 

#6-68 

#9-128 

#10-232 

#10-254 

#8-107 

#8-103 

8-107 

11-312  11-316 

9-170  9-202 


9-204  10-238 

12-431 

9-151  9-201 


10-236  10-263 


10-239  10-265 


10-235  10-262 
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C   11 

PAGE    1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

BUFUMP 

=  172354 

#5-61 

CB.RDB 

=  000004 

6-94 

CF.LB 

=  100000 

6-91 

CMODE 

=  1A0000 

#5-61 

C.BID 

000003 

«6-94 

C.CNT 

000020 

•6-92 

C.CNT2 

000030 

*6-93 

C.FLG 

000022 

»6-91 

C.FNC 

000010 

6-155 

•6-172 

C.LIN 

000006 

•6-151 

FC.kCE 

=  000002 

6-172 

FS.RTN 

=  001000 

6-172 

!S$AS 

r  *  ** t *♦ 

5-61 

6-100 

KISARO 

=  1723A0 

#5-61 

KISAR6 

=  172354 

#5-61 

LF.ACT 

=  100000 

#5-60 

LF.BRO 

=  000400 

#5-60 

LF.BWT 

=  000007 

#5-60 

6-129 

LF.ENA 

=  002000 

#5-60 

LF.LPB 

=  001000 

#5-60 

LF.MDC 

=  000100 

#5-60 

LF.MFL 

=  004000 

#5-60 

LF.MTP 

=  000020 

#5-60 

LF.PAC 

=  000200 

#5-60 

LF.RDY 

=  040000 

#5-60 

LF.REA 

=  010000 

#5-60 

LF.5EF( 

=  000040 

#5-60 

LF.TIM 

=  000010 

#5-60 

LF.UNL 

=  020000 

#5-60 

LF.X2P 

=  OOCGOO 

#5-60 

LN.CLO 

=  000000 

#5-60 

LN.DUM 

=  000005 

#5-60 

LN.LOA 

=  000004 

#5-60 

LN.LGO 

=  000003 

#5-60 

LN.OAJ 

=  000003 

#5-60 

LN.OFF 

^  000001 

#5-60 

LN.ON 

=  000000 

#5-60 

LN.OQP 

=  000004 

#5-60 

LN.OPE 

=  000001 

#5-60 

LN.REF 

=  000002 

#5-60 

LN.SER 

=  000002 

#5-60 

LN.STA 

=  000017 

#5-60 

LN.SUB 

=  000360 

#5-60 

LN.TRi 

=  000006 

#5-60 

L.COST 

000015 

»5-60 

L.CTL 

000012 

#5-60 

L.CVA 

177776 

#5-60 

L.DDM 

000002 

#5-60 

6-153 

l.dd; 

000004 

#5-60 

6-152 

L.DLf 

000003 

#5-60 

L.DLM 

000006 

#5-60 

L.Dl - 

000010 

#5-60 

6-160 


6-180 


C  12 


..F;LE'MD»*AXD5P 


AAAAAA 

XX      XX 

DDDDDDDD 

3SSSSSSS 

pppppppp 

AAAAAA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pppppppp 

AA      AA 

XX      )X 

DD 

DD 

SS 

pp    pp 

AA      AA 

XX      XX 

OD 

DD 

SS 

pp    pp 

AA      AA 

XX   XX 

DD 

DD 

SS 

pp    pp 

AA      AA 

XX   XX 

DD 

DD 

SS 

pp    pp 

AA      AA 

XX 

DD 

DD 

SSSSSS 

pppppppp 

AA      AA 

XX 

DD 

DD 

SSSSSS 

pppppppp 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

fTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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.  ABS. 

177776 

000 

(RW, 

,GBL,ABS,OVR) 

0002^'. 

OQi 

(RW, 

,LCL,REL,CON) 

Errors 

detected: 

0 

»•»  Assembler  statistics 


work   file  reads:  0 

Work      t i le   wr i  tes :  0 

Size  of   «ork    fUe;  16127  Words      (   63  Pages) 

Size  of   core  pool:  17608  Words      (    67  Pages) 

Operating      system:  RSX-11M/PLUS 


DB2:AXDSp'T!Kcnri3ljAXDSP/CR/-SP-D82:[1  J]RSXMCM.SML/ML,[130,110]NETLI8/MLJ130J0]RSXMCM/PA:1,[131,10]AXDSP 
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POWERFUL  RECOVER*  DISPATCH  TO  DDM  MODULES 

250  .ENDC 

251 

252  •E^J[)C 
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8C 

81 

82 

83 

8A  000000 

85  000000 

000001  ' 

86  000002 

OOOOOOG 

87  OOOOOA 

000005' 

88 

89  000006 

OOOOOOG 

90 

91 

92 

93  000010 

OOOOOOG 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103  000012 

000013' 

104  OOOOU 

000015' 

105  000016 

000017' 

106  000020 

000030' 

107 

108 

109 

110  000022 

000026' 

111 

112  00002-; 

000040' 

113 

IK 

115 

116 

117 

118 

119  000026 

120  000030 

AUXILARV  PROCESS  DISPATCH  TABLE 


SAUXTB: 


SMDCIN: 


.WORD 

.t1 

.  .vORD 

SBFRTN 

.WORD 

.+1 

.if  DF 

X$$MDC 

.WORD 

MDMCTL 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

MDMSCN 

.ENDC 

.IFF 

.WORD 

.-►1 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

DUMMV 

.ENDC 

.ENDC 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

CC8RET 

.IF  DF 

P$$RFL 

.WORD 

PWRFL 

.IFF 

.WORD 

Dumy 

.ENDC 

.WORD 

NMCMP 

TRANSMIT  ENABLE  (NOP) 
RECEIVE  ENABLE 
KILLIO  (NOP) 

MODEM  CONTROL  CONTROL  ROUTINE 

PERFORM  POWERFAIL  RECOVERY 

TIMEOUT  ENTERS  SCAN  ROUTINE 

CONTROL  ENABLE  (NOP) 
PERFORM  POWERFAIL  RECOVERY 
TIMEOUT  (NOP) 

TRANSMIT  COMPLETE  (NOP) 

RECEIVE  COMPLETE  (NOP) 

KILL  COMPLETE  (NOP) 

CONTROL  COMPLETE  -  RELEASE  CCB 

POWERFAIL  DISPATCH  TO  DDM  MODULES 

POWERFAIL  DISPATCH  TO  DDM  MODULES  (NOP) 

NETWORK  MANAGEMENT  COUNTER  COMPLETION 


.IF  NDF  X$$MDC  &  R$$11D  8  !'i$AS 
'.ENDC 


DUMMY.-   RETURN 
CC8RET:  CALLR 


aCCBRT 
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9-  193    POWERFAIL  RECOVERY  DISPATCH  TO  DDM  TIDDULES 
10-  25A    NETWORK  MANAGEMENT  COUNTER  COHPLETION 
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8 

9 

10 
11 
12 
15 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2i 
25 
26 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

';o 

A1 
42 
43 
44 
45 
46 
47 

48 
49 


.llf  NDF  R$$EIS  .TITLE   CESUB 
.J  IF  DF  R$$EIS   .TITLE   CESUB1 
.IDEfif  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION 

CEX  SUBROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  V.I 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/R5X  VI. 0 
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515 
516 
517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 


.IF  DF  M$$PRO 

.SBTTL   SMPLCK  -  MULTi-PROCESSOR  LOCK  ROUTINE 

*»-$MPLCK-MULTI-PROCESSOR  LOCK  ROUTINE 

THIS  ROUTINE  WILL  PER.'ORM  A  SPIN  LOCK  ON  THE  COMMEXEC  LOCK  (SCRESL) 
AND  THEN  CO-CALL  THE  CALLER.  ON  RETURN  IT  WILL  UNLOCK  THE  COMMEXEC 
LOCK  AND  RETURN.  NOTE  THAT  WE  PERFORM  THE  LOCK  OPERATION  OURSELVES 
SO  THAT  WE  CAN  CORRECTLY  MANIPULATE  THE  CACHE. 


SPIN  ON  THE  LOCK 
UNTIL  WE  HAVE  ACCESS 
FLUSH  THE  CACHE  OF  STALE  DATA 

CO-CALL  THE  CALLER  BACK 

RESET  THE  LOCK 


iMPLCK: 

:ASRB 
BCC 
CACHES 

SCRESL 
SMPLCK 
FLUSH 

CALL 

a(SP)+ 

MOVB 

#1, SCRESL 

RETURN 
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A$tCHK= 
A$tCPS= 
A$$PRI= 
A$$TRP= 
CB.CCB= 
CB.DDM= 
CB.DLC= 
CB.RDB^ 
CB.SDB= 
CB.SLI= 
CB.XLB= 
CC.LLC= 
CE.ABO^ 
CE.DAC= 
CE.DIS= 
CE.ERR= 
CE.ILN= 
CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.brP= 
CE.TME= 
CE.Tf10= 
CE.UNS= 
rF.CHN= 
CF.EOM= 
CF.HDR= 
CF.LB  = 
CF.LIN= 
CF.SOM= 
CF.SYN= 
CF.TRN= 
CM.CIR= 
CM.FHT= 
CM.HRD= 
CM.LIN= 
CM.LOO= 
CM.XLC= 
CP.DCf= 
CP.HDL= 
CP.PS  = 

rp.psi= 
cp.;(CF  = 
cp.:i^R= 

CS.rtBO= 
CS.BRO= 
C5.BUF= 
CS.CES--: 
CS.CWJ= 
CS.CMP= 
CS.DCR^ 
:S.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 


000000 

000000 

000000 

000000 

000002 

OOC04C 

000020 

OOOOOA 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

10036A 

100352 

10035'. 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

OOC200 

C00400 

000004 

000002 

OOOO'-O 

oooc 


CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LSTr 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

C$$CKP= 

C$$0RE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LW 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

D$$BUG= 

D*$l^<= 

Dt$L  1= 

D$$VNC= 

0$tyNM= 

F$$XPR= 

FC.CCP= 

FC.CTL-- 

FC.KCP= 


000020 

100000 

C01000 

000001 

002000 

0 ■ 0000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

00002C 

0C0020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

0O0.J44 

000040 

000034 

000042 

000037 

000036 

177514 

000000 

000001 

000000 

000000 

000000 

000020 

000006 

000016 


FC.KIL= 
FC.HAN= 
FC.MLD= 
FC.PCT= 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.nM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.C]B= 
FS.CRA= 
FS.DIS= 
FS.DVC^ 
FS.ENB= 
FS.cXI= 
FS.GET= 
FS.HLT;^ 
FS.INI= 
FS.KIL= 
FS.ICL= 
FS.LrM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
fS.HtZ= 
FS.RL8= 
FG.RNG= 
FS.RST:= 
FS.RrN= 
FS.SEr= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.WLB= 
FS.XKL^ 
FS.X0F= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TFK= 
G$$WRD= 
II$RAR= 
I$$RDN= 
KISAR5= 
K$$CNI= 
K$$CSR= 
K$$LDC= 


C00004 

K$$TPS= 

000074 

N$$ACC= 

000024 

LD$LP  = 

000000 

N$$BUF= 

000026 

LF.ACT--: 

100000 

N$$LDV= 

000030 

LF.8R0= 

000400 

N$$MCP= 

000022 

LF.BWT= 

000007 

N$$HLL- 

000002 

LF.ENA= 

002000 

NJ$MOV= 

000014 

LF.LPB= 

001000 

N$$NCT= 

C00010 

LF.HDC= 

000100 

N$$PEM= 

000012 

LF.MFL= 

004000 

PR7   = 

000000 

LF.HTP= 

000020 

PS    = 

000000 

LF.PAC= 

000200 

P$$P45= 

002000 

LF.RDr= 

040C00 

P$$WRD= 

001000 

LF.REA= 

010000 

Q$$OPT= 

013000 

LF.StR= 

000040 

Kiii^C"- 

001000 

LF.TIM= 

000010 

R$$K11= 

012000 

LF.UNL= 

020000 

R$$SND= 

001000 

LF.X2P= 

000000 

R$$11M= 

006000 

LN.CLO= 

000000 

Sr.ACT= 

000000 

LN.DUM= 

000005 

SF.ENA= 

000000 

LN.L0A= 

000004 

SF.LPB= 

000000 

LN.LOO= 

000003 

SF.MFL= 

100000 

LN.0AU= 

000003 

SF.PAC= 

001000 

LN.OFF^ 

000001 

SF.REA= 

004000 

LN.ON  = 

000000 

SF.SER= 

014000 

LN.00P= 

000004 

SF.SVC= 

001000 

LN.OPE= 

000001 

SF.UML= 

000000 

LN.REF= 

000002 

S$$UIRC= 

003000 

LN.SER= 

000002 

S$$VSZ= 

002000 

LN.STA= 

000017 

S.COST 

011000 

LN.SU8= 

000360 

S.FLG 

000000 

LN.TRI= 

000006 

S.LEN 

001000 

L$$ASG= 

000000 

S.NHST 

005000 

L$$DRV= 

000000 

S.OWNR 

005000 

L$$P11= 

000001 

T$$KMG= 

006000 

L$$11R= 

000000 

T$$MIN= 

004000 

L.COST 

000015 
000012 

VI$CTR= 

040000 

L.CTL 

X$$DBT= 

000000 

L.CVA 

177776 

ZF.C0U= 

002000 

L.DDM 

000002 

ZF.DDM= 

001000 

L.DDS 

000004 

ZF.DIA= 

003000 

L.DLC 

000003 

ZF.DLC= 

001000 

L.DLH 

000006 

ZF.DVP- 

002000 

L.DLS 

000010 

ZF.INI= 

010000 

L.FLG 

000000 

ZF.KMX= 

007000 

L.KRBA 

000016 

ZF.LLC= 

002000 

L.LEN  = 

000022 

Z,  .LMC= 

000001 

L.M'^F 

000022 

ZF.MAN= 

000000 

L.NMST 

000020 

ZF.MFL= 

000000 

L.NSTA 

000014 

ZF.MTM= 

000000 

L . OWNR 

000021 

ZF.HUX= 

000000 

L.UNT 

000013 

ZF.PSE= 

000000 

l*l$$CRB= 

000124 

ZF.SLI= 

000000 

M$$CRX= 

000000 

ZF.TIM= 

****•»  GX 

M$$FCS= 

000000 

ZF.X3P= 

177546 

M$$MGE= 

000000 

ZS.ASN= 

177546 

M$$NET= 

000000 

ZS.BSV= 

000000 

M$$OVR= 

onnoco 

Z.AVL 

000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 


000000 
000000 
000010 
000000 
000001 
000000 
000000 
000200 
0001 tU 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 
000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 

ooooon 

lOOOOu 
140000 
000014 


GX 
GX 
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A$$CH<-- 
A$$CPS= 
A$$PRI= 
A$tTRP= 
CB.CCB= 
CB.DDM= 
CB.DLC= 
CB.RDB= 
CB.5DB= 
CB.SLI= 
CB.XLB= 
CC.LLC= 
CE.ABO= 
CE.DAO= 
CE.D1S= 
CE.ERR= 

ce.:ln= 

CE.!.TO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
CE . TMO= 
CE.UNS= 
CF.CHN^ 
CF.DDM= 
CF.DYN= 
CF.EIS= 
CF.FOM= 
CF.FRK= 
CF.HDR= 
CF.LB  = 
CF.lIN= 
CF.LOG= 
CF.MDM= 
CF.SOM= 
SVN: 
TIM^ 
TRN^ 


CM.CIR= 
CM.FMT= 
CM.HRD= 
CM.LIN= 
CM.LOO= 
CM.XLO= 
CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF: 

CP.2FR: 

CRCOV  = 
CS.ABO= 
CS.BRO; 
CS.BUF: 


000000 

000000 

000000 

000000 

000002 

0000^0 

onoo20 

■jOOOOA 

000010 

000100 

000001 

000200 

100362 

1003A6 

1003b6 

10037C 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

10035A 

10037A 

100344 

000001 

000002 

000004 

000010 

000004 

100000 

00002C 

10000C 

000002 

000020 

000001 

000010 

000040 

000400 

000100 

000002 

100000 

000002 

000000 

000001 

C00004 

000040 

000007 

'77400 

000200 

000100 

000030 

000002  G 

000100 

000002 

000200 


CS.CES= 

000002 

CS.CHN= 

000010 

CS,CMP= 

000200 

CS.DCR= 

000400 

CS.DEF= 

000004 

CS.DEV= 

000002 

CS.DIS= 

000040 

CS.ENA== 

000001 

CS.ENB= 

000020 

CS.ERR= 

,00000 

CS.FTL= 

001000 

CS.HCR= 

000001 

CS.HFE= 

002000 

CS.LST= 

040000 

CS.MTL= 

004000 

CS.RNG= 

000010 

CS.R0V= 

000004 

CS.RSN= 

010000 

CS.SHU= 

000001 

rs.siD= 

000002 

CS.STR= 

000004 

CS.SUC= 

000001 

CS.TM0= 

020000 

CS.XUR= 

000004 

C$$CKP= 

000000 

C$$0RE= 

000400 

C$$RSH= 

177564 

C.ADD 

000034 

C.BID 

000003 

C.BUF 

000014 

C.BUF1 

000014 

C.SUF2 

000024 

C.CNT 

000020 

C.CNT1 

000020 

C.CNT2 

000030 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

C.LIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

000004 

C.PRO 

000042 

C.RSV 

000002 

C.STA 

000007 

C.ST3 

000012 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLI 

OOOO-tO 

C.XPT 

000034 

c.xsvr 

000042 

C.XTl 

000037 

C.X2. 

000036 

DLCOV  = 

000010  G 

D$$BUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
E$$XPR= 
FC.CCP= 
FC.CTL= 
FC.KCP^ 
FC.KIL= 
FC.MAN= 
FC.MLD= 
FC.PCT^ 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.T]M= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CIB= 
fS.CRA^ 

f:.djs= 

FS.DVC= 
FS.EN8= 
FS.EXJ= 
FS.GET= 
FS.HLT= 
FS.JNI= 
FS.KIL= 
FS.LCL= 
F$.LTM= 
F$.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RrN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.5TM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.UL8= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 


177514 
000000 
000001 
000000 
000000 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 


G$$TSS= 

000000 

$EHASK 

000314RG 

002 

G$$TT/(= 

000000 

SETIMR 

000314RG 

002 

G$$URD= 

000000 

SEVDSC 

000226RG 

002 

I$$RAR= 

000000 

IFILHD 

0002?2RG 

002 

I$$RDN= 

000000 

SIMASK 

000314RG 

002 

K$$CNT= 

17754s 

SLDBAF 

000032RG 

002 

K$$CSR= 

177546 

SLGCON 

000300RG 

002 

K$$LDC= 

000000 

SLGDDB 

000220RG 

002 

K$$TPS= 

000074 

SLGFNB 

000246RG 

002 

K.CSR 

000002  G 

SLGMON 

000274RG 

002 

K.PRI 

000000  G 

SLGPDV 

00021 6RG 

0C2 

K.VCT 

000001  G 

SLGSTT 

000224RG 

002 

LD$LP  = 

000000 

SLGUIC 

000272RG 

002 

L$$ASG= 

000000 

JLLCTA 

000004RG 

002 

L$$DRV= 

000000 

SLTHFC 

000104RG 

002 

L$$P11= 

000001 

SMAXOV 

000214RG 

002 

L$$11R= 

000000 

SNBIAS 

000166RG 

002 

M$$CRB= 

000124 

SNMCLH 

000306RG 

002 

M$$CRX= 

000000 

$NMCL2 

00031  ORG 

002 

M$$FCS= 

000000 

SNMLST 

000204RG 

002 

M$$MGE= 

000000 

SNTLPT 

000162RG 

002 

M$$NET= 

000000 

SOBJHD 

000206RG 

002 

M$$OVR= 

000000 

$PAD  = 

000377  G 

N$$ACC= 

000001 

$PADB 

000332RG 

002 

N$$BUF= 

000001 

SPADBF 

000340RG 

002 

N$$LDV= 

000001 

$PADKL= 

000012  G 

N$$MCP= 

000001 

$PADSH= 

000002  G 

N$$MLL= 

000001 

IPAVL 

000202RG 

002 

N$$M0V= 

000010 

$PBIAS 

000320RG 

002 

N$tNCT= 

000001 

SPDVNM 

000006RG 

002 

N$$PEM= 

000001 

SPDVTA 

OOOOOORG 

002 

P$$P45= 

000000 

SPSIPT 

000126RG 

002 

P$$WRD= 

000000 

$PUMR 

0001 74RG 

002 

Q$$0PT= 

000010 

tPWRFl 

0001 76RG 

002 

R$$DER= 

000000 

SQBIAS 

0001 70RG 

002 

R$$Ki1= 

000001 

SQSTRT 

0C0172RG 

002 

R$$SND= 

000000 

SRDBAF 

0001 54RG 

002 

R$$11M= 

000000 

SRDBCT 

000146RG 

002 

S$$WRG= 

000000 

SRDBLH 

000150RG 

002 

s$$ysz= 

007600 

SRDBNM 

000016RG 

002 

rt$KMG= 

000000 

$RDBSZ 

000020RG 

002 

T$$M1N= 

000000 

IRDBTH 

000036RG 

002 

V$$CTR= 

001000 

SRDQCT 

:00160RG 

002 

X$$DBT= 

000000 

SRDrSL 

0001 56RG 

002 

SCCBAF 

000030RG 

002 

$SD'  '■ 

000144RG 

002 

SCCBAL 

000034RG 

002 

SSDfc.i 

0001 36RG 

002 

SCCBCT 

000026RG 

002 

$SD8LH 

0001 40RG 

002 

SCCBLH 

000134RG 

002 

SSDBNM 

000022RG 

002 

SCCBNM 

000012RG 

002 

SSDBSZ 

000024RG 

002 

SCCBSZ 

000014RG 

002 

SSHLST 

00031 29G 

002 

SCEAVL 

000002R& 

003 

SSLTMA 

000002RG 

002 

SCELFN 

000304RG 

002 

SSLTNM 

00001  ORG 

002 

SCMFRK 

000046RG 

002 

SSNAPT 

000130RG 

002 

$CMPDV 

000040RG 

002 

SSPARI 

00031 4RG 

002 

SCXOPT 

000164RG 

002 

$SPAR2 

000320RG 

002 

tDDFNC 

000132RG 

002 

SSORCM 

00021 2RG 

002 

$DECPT 

00O124RG 

002 

SbTMFC 

000064RG 

0C2 

SKRC 

$cl:rc  ■ 

166 
167 
168 

lo9 
170 
171 
172 
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00003A  012302 


_  000C36 
173  000042 
17;  000044 
175 
176 
177 
178 
179 
180 

181  000050 
182 
183 
184 
185 
186 
187 
1 RR 

189  000064 

190  OOC066 

191  000070 

192  000072 

193  000074 
•!94  000100 
195 

196  000102 

197  000104 


022702  140000 

101002 

162702  020000 


20$: 


000050 
000052 
000056 
00006? 


198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 


012300 

J32713  000004 
001407 

060002 

110122 

000301 

110122 

062743  000002 

005001 

011404 
001346 


30$: 


000106 


000114  012677  177662 


000120 


MOV 


(R3)t,ft2 


RETURN 


.IFT 
.IF  NDF 

;  MSSMGE 
I$$AS 

CMP 
BHl 
SUB 

#1 40000, R2 

20$ 

#20000, R2      ; 

.IFF 

CMP 

BLOS 

ADD 

.ENDC 

;  I$$AS 
#60000, R 2 
20$ 

#20000, R2 
;  I$$AS 

.ENDC 

;  M$$MGE 

MOV 
CALL 
BIT 
BEQ 

(R3)+,R0 
STCR2 

#CF.E0M,(R3>    ; 
30$ 

ADD 

M0V8 

SWAB 

MOVB 

ADD 

CLk 

R0,R2 

R1,(R2)* 

R1 

Ri,(R2)+ 

#2,-(R3)       ; 

R1           ; 

MOV 
BNE 

(R4),R4 
10$ 

RESR6 

<R4,R1,R0> 

.IF  DF 
.IF  NDF 

M$$MGE 
I$$AS 

MOV 

(SP)+,aKSAR5    ; 

.IFF 

■  I$$AS 

MOV 

(SP)  +  ,51(SP)t 

.ENDC 
.ENDC 

;  I$$AS 
;  M$tMGE 

GET  V'RTUAL  ADDRESS  OF  BUFFER 


IS  BUFFER  MAPPED  BV  AND  APR  <  6? 

IF  HI,  VES 

MAP  BUFFER  THROUGH  APRS 


IS  BUFFER  MAPPED  Bi   AN  APR  3  ? 
IF  LO  OR  SAME,  NO  -  MUST  BC  APR  3 
w^P  BUFFER  THROUGH  APR3 


GET  LENGTH  OF  SEGMENT 
COMPUTE  CRC  ON  SEGMENT 
LAST  SEGMENT  IN  MESSAGE? 
IF  EQ,  NO 

POINT  TO  END  OF  MESSAGE 
STORE  CRC  FOLLOWING  DATA 


UPDATE  COUNT  IN  CCB 
RE-INITIALISE  CRC  ACCUMULATOR 

GET  NEXT  CCB  IN  CHAIN 
AND  COMPUTE  IT'S  CRC 

RESTORE  REGISTERS 


RESTORE  MAPPING 


;  RESTORE  MAPPING 


♦*wjd01** 


n 
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215 

216 

217 

218 

219 

220 

221 

222 

223 

22^. 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

245 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

2t3 

264 

265 

266 

267 

268 

26':' 

270 

271 
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.SBTTL  $STCRC  -  CALCULATE  CRC  ON  BLOCK  Of  DATA 

•*-$STCRC-CALCULATE  CRC  ON  BLOCK  OF  DATA 
»— SSTCRI-ALTERNATE  ENTRY  (R1  -  PARTIAL  CRC) 

CALCULATE  THE  CRC  ON  A  BLOCK  OF  DATA. 

INPUTS: 

RO  -  #  Of  BYTES  IN  DATA  BLOCK 

R1  -  PARTIAL  CRC  OR  0 

R2  -  POINTER  TO  DATA  BLOCK 

R4  -  CC8  DESCRIBING  DATA  BUFFER 


000122  005001 
000124 


000124  017746  177652 

000130  016477  000014  177644 

000136  022702  140000 

000142  101002 

000144  162^02  020000 


OUTPUTS: 
R1  - 

iSTCRC::CLR 

SSTCRI:: 


C00150 
000150 

000154     C12677     177622 


5$: 


10$: 


UPDATED  CRC  VALUE 
R1 


.IF  DF  M$$MGE 
.IF  NDF  I$$AS 


MOV 
MOV 
CMP 
BHI 
SUB 

.IFF 

MOV 

BIT 

BEQ 

MOV 

MOV 

MOV 

CMP 

BLOS 

ADD 

.ENDC 

.ENDC 

CALL 


aKSAR5,-(SP) 
C.8UF(R4),SK:AR5 
#140000, R2 
10$ 
#20000, R2 

;  I$$AS 

#KP.AR3,-(SP) 

#140000, PS. EXP 

5$ 

#UPAR0t6,(SP) 

a(SP),-(SP) 

C.BUF(R4),a2(SP) 

#6000C,R2 

10$ 

#20000, R2 

;  I$$AS 

;  M$$MGE 

STCR2 


.IF  DF  M$$MGE 

.IF  NDF  I$$AS 

MOV  (SP)t,aKSAPS 

.IFF 

MOV  (SP)*,a(SP)t 

.ENDC  ;  I$$AS 


INITIALISE  CRC  ACCUMULATOR 


SAVE  CURRENT  MAPPING 
;  AND  MAP  TO  BUFFER 
IS  BUFFER  MAPPED  BY  APR 
IF  HI,  NO 
MAP  BUFFER  USING  APR5 


ASSUME  KERNEL  MODE 
KERNEL  MODE  ? 
YfS  "■  BR 

NO  -  MUST  BE  USER  MODE 
SAVE  CURRENT  MAPPING 
;  MAP  TO  DATA  BUFFER 
IS  BUFFER  MAPPED  BY  APR 
IF  LO  OR  SAME,  NO 
MAP  BUFFER  USING  APR3 


>  6? 


CALCULATE  CRC 


RESTORE  MAPPING 


RESTORE  MAPPING 
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SYMBOL 

VALUE 

REFERENCES 

BUFUMP 

=  172354 

#6-68 

CF.EOM 

=  000004 

9-186 

clrkg 

=  000020 

#7-96 

7-98 

CMODF 

=  140000 

#6-68 

CRC16 

=  000001 

#7-93 

7-99 

CTASL 

000234 

R 

11-361 

#12-436 

C.BUF 

000014 

9-149 

10-239 

DDB 

=  000010 

#7-95 

7-98 

7-99 

F$$AST 

=  000001 

#4-2 

5-4 

11-351 

12-453 

I$$AS 

-  ****** 

6-68 

9-130 

9-152 

9-170 

9-202 

<GCSR 

=  170700 

#7-92 

KGINIT 

=  000111 

#7-99 

KGLDBC 

=  000133 

#7-98 

KISARO 

=  172340 

#6-68 

lfISAR5 

r  ****** 

GX 

8-104 

KISAR6 

=  172354 

#6-68 

8-105 

<SAR5 

000002 

R 

#8-104 

9-132 

9-154 

9-204 

10-23 

K5AR6 

000004 

R 

#8-105 

K$$G11 

=  ♦♦*♦** 

5-1 

11-293 

12-431 

LRC16 

=  000003 

#7-94 

7-98 

L$$S11 

=      ****** 

6-73 

MPAR 

=  172100 

#6-68 

MPCSR 

=  177746 

#6-68 

M$$MGE 

=  000000 

6-68 

6-73 

9-129 

9-151 

9-201 

PIRQ 

=  177772 

#6-68 

PMODE 

=  030000 

#6-68 

PRO 

=  000000 

#6-68 

PR1 

=  000040 

#6-68 

PR2 

=  000100 

#6-68 

PR3 

=  000  ••'■0 

#6-68 

PR4 

=  000200 

#6-68 

PR5 

=  000240 

#6-68 

PR6 

=-   000300 

#6-68 

PR7 

=  000340 

#6-68 

PS 

=  177776 

#6-68 

P$$34 

:;:  ****** 

6-73 

P$$40 

-  ****** 

6-73 

P$$45 

-      ♦*♦*♦* 

6-73 

P$$70 

-   ****** 

6-73 

R$$EIS 

=  000000 

#6-75 

6-79 

11-344 

11-420 

RtSMPL 

-    ***♦♦* 

6-6S 

6-68 

6-^8 

R$$11C 

=  ****** 

6-68 

SEN 

=  000100 

#7-97 

7-98 

7-99 

5TCR2 

000162 

R 

9-185 

10-260 

#11-291 

SWR 

=  177570 

#6-68 

TPS 

=  177564 

#6-68 

UBMPR 

=  170200 

#6-68 

UISARO 

:r  17764C 

#6-68 

uisar; 

=  177642 

#6-68 

SCLCRC 

000006 

RG 

#9-128 

$STCP; 

000122 

RG 

#10-232 

$ST,R1 

000124 

RG 

#10-234 

10-236 


10-239 


10-235 


10-263 


10-265 


10-262  11-359 


II 


STCRCn  MACRO  V05.03b  Friday  28-Jun-85  18:22  Page  10-1 
SSTCRC  -  CALCULATE  CRC  ON  BLOCK  OF  DATA 


D  9 


272 
273 
27A  000160 


.ENDC 
RETURN 


M$$MGE 


:i 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

L.FLG 

000000 

#5-60 

L.KRBA 

000016 

#5-60 

L.LEN 

=  000022 

#5-60 

L.MPF 

000022 

#5-60 

-.NMST 

000020 

#5-60 

L.NSTA 

OOOOU 

#5-60 

L.CWNR 

000021 

#5-60 

L.UNT 

000013 

#5-60 

MPAR 

^  172100 

#5-61 

MPCSR 

=  1777A6 

#5-61 

H$$MGE 

=  000000 

5-61 

N$$1LN 

r     ****** 

6-116 

PDSPL 

r     ****** 

GX 

6-156 

PIRQ 

^   177772 

#5-61 

PMODE 

=  030000 

#5-61 

PRO 

=  000000 

#5-61 

6-106 

6-166 

6-186 

PRl 

=  000040 

#5-61 

PR2 

=  000100 

#5-61 

PR  3 

=  OOOUO 

#5-61 

PR4 

=  000200 

#5-61 

PR5 

=  000240 

#5-61 

PR6 

=  000300 

#5-61 

PR7 

=  000340 

#5-61 

6-96 

PS 

=   177776 

#5-61 

♦6-96 

♦6-106 

♦6-166 

RDBGT 

=   ****** 

GX 

6-170 

RDBRT 

-   ****** 

GX 

6-178 

RDBSZ 

=   ****** 

GX 

6-92 

6-93 

RDQCT 

=   ****** 

GX 

6-97 

6-132 

RDOSL 

=   ****** 

GX 

6-110 

6-112 

6-113 

RSSMPL 

:;      ****** 

5-61 

5-61 

5-61 

6-78 

R$$11D 

::     ****** 

5-61 

6-100 

6-160 

6-180 

SF.ACT 

=  000200 

#5-60 

SF.EN'A 

=  000100 

#5-60 

SF.LPB 

=  000004 

#5-60 

SF.MFL 

=  000040 

#5-60 

SF.PAC 

=  000020 

#5-60 

SF.REA 

=  000010 

#5-60 

SF.SER 

^-  000001 

#5-60 

SF.StfC 

=  000002 

#5-60 

SF.IJNL 

=  000040 

#5-60 

SLT-1A 

=   ****** 

GX 

6-124 

SUUf 

-   ****** 

GX 

6-112 

SWR 

=    177570 

#5-61 

S.COST 

03000 i 

#5-60 

S.FLG 

OOOOOC 

#5-60 

S.LEM 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

'■PS 

=   177564 

#5-61 

UBMPR 

-   170200 

#5-61 

UISARO 

=   177640 

#5-61 

U I  SARI 

=   177642 

#5-61 

♦6-186 


6-134 


6-190 


6-202 
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SYMBOL 

VALUE 

REFERENCES 

CB.CCB 

=  000002 

9-306 

CCBRET 

000030  R 

6-106 

#6-120 

CCBRT 

=  ******     GX 

6-120 

9-308 

C5.LST 

=  040000 

9-303 

C.ADD 

000034 

9-270 

C.BID 

000003 

9-306 

C.CNT2 

000030 

9-274 

9-286 

C.STS 

000012 

♦9-303 

DUMMY 

000026  R 

6-100 

6-no 

EXRQN 

r  *»»»*«   QX 

9-304 

1$$AS 

-     ****** 

4-1 

6-115 

LF.ACT 

=  100000 

#5-77 

LF.BRO 

=  000400 

#5-77 

9-277 

LF.BWT 

=  000007 

#5-77 

LF.ENA 

=  002000 

#5-77 

LF.LPB 

=  001000 

#5-77 

LF.MDC 

=  000100 

#5-77 

LF.MFL 

=  004000 

#5-77 

LF.MTP 

=  000020 

#5-77 

9-279 

LF.PAC 

=  000200 

#5-77 

LF.RDY 

=  040000 

#5-77 

LF.REA 

=  010000 

#5-77 

LF.SER 

=  000040 

#5-77 

9-281 

LF.TIM 

=  000010 

#5-77 

LF.UNL 

=  020000 

#5-77 

LF.X2P 

=  oocooo 

#5-77 

LN.CLO 

=  000000 

#5-77 

LN.DUM 

=  000005 

#5-77 

LN.LOA 

=  000004 

#5-77 

LN.LOO 

=  000003 

#5-77 

LN.OAU 

=  000003 

#5-77 

LN.OFF 

=  000001 

#5-77 

LN.ON 

=  000000 

#5-77 

LN.OOP 

=  000004 

#5-77 

LN.OPE 

=  000001 

#5-77 

LN.REF 

=  000002 

#5-77 

LN.SER 

=  000002 

#5-77 

IN.STA 

---   000017 

#5-77 

LN.SUB 

=  000360 

#5-77 

LN.TRI 

=  000006 

#5-77 

L.COST 

000015 

#5-77 

L.CTL 

000012 

#5-77 

L.CVA 

177776 

#5-77 

L.DDM 

000002 

#5-77 

L.DDS 

000004 

#5-77 

L.DLC 

000003 

#5-77 

L.DLM 

000006 

#5-77 

L.DLS 

000010 

#5-77 

L.FLG 

000000 

#5-77 

L.KRBA 

000016 

#5-77 

L.LEN 

=  000022 

#5-77 

9-285 

L.MPF 

000022 

#5-77 

#6-119 
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254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267  0003U6 

268 

269  000312 

270  0003U 

271  000320 

272  000322 
273 

27/.  000324 
2?i  :00330 

276  000532 

277  000336 

278  00034A 

279  000346 

280  000354 

281  000356 

282  000364 

283  000366 

284  000370 

285  000372 

286  000376 

287  000402 

288  000404 

289  000410 

290  000414 

291  000',20 
292 

293  000422 

294  000426 

295  000432 
296 

297  000434 

298  000440 

299  000442 

300  000446 

301  000450 

302  000452 

303  000454 

304  000462 
305 

306  000466 

307  000474 

308  000476 

309  000502 

310  000504 


.SBTTL  NETWORK  MANAGEMENT  COUNTER  COMPLETION 

-NMCMP-NETWORK  MANAGEMENT  COUNTER  COMPLETION 

THIS  ROUTINE  IS  ENTERED  WHEN  A  NETWORK  MANAGEMENT  REQUEST  FOR  COUNTERS 

HAS  BEEN  COMPLETED  BY  A  LOWER  LEVEL  PROCESS. 

THE  ROUTINE  ALbO  REQUESTS/UNSTOPS  NETACr  TO  PROCESS 

REQUESTS  FOR  LINE  WATCHER 


INPUTS: 


R4  =  ADDRESS  OF  COUNTER  CCB 


054134 

003310 

NETACP: 

.RAD50 

/NETACP/ 

010403 

NMCMP: 

MOV 

R4,R3 

062703 

000034 

ADD 

#C.ADD,R3 

005713 

TST 

(R3) 

001041 

BNE 

40$ 

116403 

000030 

M0V8 

C.CNT2(R4),R3   ; 

006303 

ASL 

R3 

067703 

OOOOOOG 

ADD 

aSLTMA,R3 

032773 

000400 

000000 

BIT 

#LF.8R0,a(R3) 

001026 

BNE 

30$ 

032773 

000020 

000000 

BIT 

#LF.MTP,a(R3) 

001005 

BNE 

5$ 

032773 

000040 

000000 

BIT 

#LF.SER,a(R3)   ; 

001416 

BEQ 

30$ 

000437 

BR 

60$ 

011303 

5$: 

MOV 

(R3),R3 

062703 

000022 

ADD 

#L.LEN,R3      ; 

116401 

000031 

MOVB 

C.CNT2+1(R4),R1  ; 

001404 

BEQ 

20$     ,      ; 

062703 

000004 

10$: 

ADD 
SOB 

#S.LEN,R3      ; 
R1,10$ 

032713 

000001 

20$: 

BIT 

#SF.SER,(R3) 

001022 

BNE 

60$ 

012703 

000306' 

30$: 

MUV 

#NETACP,R3     ; 

40$: 

CALL 

aSfiSTD         ; 

103415 

BCS 

60$ 

017703 

OOOCOOG 

MOV 

aNMCL2,R3 

010413 

MOV 

R4,(fi3) 

010477 

OOOOOOG 

50$: 

MOV 

R4,SNMCL2 

010403 

MOV 

R4,R3 

011404 

MOV 

(R4),R4 

001373 

BNE 

50$           : 
#CS.LST,C.STS(R35 

052763 

040000 

000012 

BIS 

CALLR 

aEXRQN 

122764 

000002 

000003 

60$: 

CMPB 

#C8.CCB,C.BID(R4) 

001002 

BNE 
CALLR 

70$ 
aCCBRT 

70$: 

SAVRG 
CALL 

<(R4)> 
aRDBRT 

Copy  the  ccb  address 
Point  to  the  task  name 
Is  It  for  NETACP  ? 
If  NE,  no 

Copy  SLN 

Form  word  index 

Point  to  line  table  address 

Is  it  a  broadcast  channel? 

If  NE,  yes  -  EPM  already  filtered  it. 

Is  it  multipoint? 

If  NE,  yes  -  check  station  table 

Is  service  disabled  ? 

If  EQ,  no  -  allow  request 

Else,  toss  the  request 

Get  to  the  end  of  the  line  table 

Get  the  station  number 

Move  to  the  correct  station  table 

Is  service  disabled  ? 

If  NE,  yes  -  toss  the  request 

Else  start  up  NETACP 
Scan  STD  for  task's  TCB 
If  CS,  not  there  1 1 

Get  address  of  net  man  listhead 

Add  CCB  to  end  of  head  pointer 

Update  the  tail  pointer 

Copy  possible  'last'  buffer  address 

Else,  get  to  the  end  of  this  chain 

If  NE,  get  next  buffer 

;  Else,  set  end  of  chain  flag 

Request  the  task  (unstop  or  request) 

;  Is  it  a  CCB  ? 

If  NE,  no 

Return  the  CCB 

Save  the  next  in  the  chain 

Return  this  one 


J 


0  15 
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122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
KO 

i;i 

U2 
K3 
KA 
K5 
K6 
1A7 
K8 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
16G 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 


.JF  DF 
.SBTTL 


P$$RFL 

POWERFAIL  RECOVERY  ROUTINE 


••-PWFAIL-POWERFAIL  RECOVERS  ROUTINE 

THIS  ROUTINE  IS  INVOKED  ONCE  PER  SECOND  BY  THE  TIMER  SERVICE 
CODE.  IF  THE  POWERFAIL  RECOVERY  FLAG  IS  SET,  WE  WILL  SCAN  THE 
SYSTEM  LINE  TABLE  FOR  'ACTIVE'  LINES  (I.E.  LINES  WHICH  HAVE 
BOTH  DLC  AND  DDM  PROCESSES  LOADED)  AND  ASYNCHRONOUSLY  QUEUE 
A  CONTROL  COMPLETION  TO  THE  LLC  LEVEL  INDICATING  THAT  THE 
LINK  HAS  BEEN  DISCONNECTED. 


GET  D   OF  LINES  REMAINING  TO  BE  POWERFAILED 
IF  NONE  ...  NO  RECOVERY  UNDERWAY 
CONVERT  TO  SYSTEM  LINE  # 
SAVE  FOR  LATER  CALL  TO  SASCMP 


100$: 


PWFAIL: 

MOV 

aPWRFI.Rl 

BLE 

100$ 

DEC 

R1 

MOV 

R1  ,R3 

.ir  DF 

N$$1LN 

MOV 

aSLTMA.RI 
(RD.Rl 

MOV 

.IFF 

ASL 

R1 

ADD 

aSLTMA.RI      ; 

MOV 

(R1),R1 

.ENDC 

BIT 

#LF.ACT,(R1) 

BEQ 

20$ 

CLR 

R2            ; 

TSTB 

L.NSTA(Rl) 

BEQ 

10$           ; 

M0V8 

TRI8+1,R2 

ASL 

R2 

ASL 

R2 

ADD 

R1,R2         ; 
*SF.ACT,L.MPF(R2) 

BITS 

BEQ 

15$           ; 

MOV 

TRI8,R2        ; 
R3,rJ 

10$: 

BISB 

MOV 

#CE.D1S,R3 

CALL 

aASCMP 

BCS 

100$ 

15$: 

INCB 

TRIB+1 

CMPB 

tr!b+i,l.nsta;ri) 

BLO 

PWFAIL 

CLR 

TRI6 

20$: 

DEC 

aPWRFI 

BNE 

PWFAIL 

;  GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  MAPPING  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


IS  THIS  LINE  'ACTIVE'? 

NO  ...  rjO  RECOVERY  REQUIRED 

ASSUME  LINE  IS  NOT  MULTIPOINT 

IS  THIS  LINE  MULTIPOINT? 

IF  EQ,  NO 

GET  TRIBUTARY  NUMBER  TO  CHECK 

FORM  DOUBLE  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  TABLE 

;  IS  THE  TRIBUTARY  ACTIVE? 

NO  ...  NO  RECOVERY  REQUIRED 

YES  ...  GET  TRIBUTARY  ADDRESS 

SET  SYSTEM  LINE  NUMBER 

YES  ...  SET  UP  ERROR  CODE 

PERFORM  ASYNCHRONOUS  COMPLETION 

TRY  LATER  ON  RESOURCE  ALLOCATION  FAILURE 

UPDATE  TRIBUTARY  ADDRESS 

;  HAVE  WE  CHECKED  ALL  TRIBUTARIES  ON  THIS  LINE? 

IF  LO,  NO 

RESET  TRIBUTARY  ADDRESS 

ONE  LESS  LINE  TO  RECOVER 

LOOP  TILL  ALL  DONE 


.  IF  DF   X$$MDC 


D  16 
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1 
2 
3 
i, 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
■^7 


IF  DF 

IF  DF 

TITLE 

IFF 

TITLE 

ENDC 

IFF 

IF  DF 

JF  DF 

"  ITLE 

IFF 

TITLE 

ENDC 

IFF 

IF  DF 

TITLE 

IFF 

TITLE 

ENDC 

ENDC 

ENDC 

IDENT 


R$$11D1I$$AS 

X$$MDC 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 


X$$MDC 
P$$RFL 
AXOSPB  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH 


P$$RFL 

AXDSPP  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 


AXDSP  -  AUXILLIARY  PROCESS  DISPATCH 


/V05.01/ 


COPYRIGHT  (C)  1978,1979,1980  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATIO.J,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
Or.-IER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  Dlfi'TAL. 


MODULE  DESCRIPTION 

AUXILARY  PROCESS  DISPATCH  TABLE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   10-FE8-78 

VERSION  2.0  R";LEASE 

2. CO  14-DEC-79 


CESUB1  MACRO  v05.03b  Friday  28-Jun-85  18:20  Page  5-1 


E  1 


53 

59 

60 

61 

62 

63  000000 

6A  000000 

65  000000 

66 


MACRO  LIBRARY  CALLS 

.MCALL  INHIB$,ENABL$,SAVRG,RESRG 

.MCALL  CC8DF$,PDVDF$,CLKDF$ 

.MCALL  CALLR  ;  AVOID  SYSTEM  DEPENDENCY 

CCBDFS  ;  DEFINE  THE  CCB  OFFSETS 

PDVDF$  ;  DEFINE  THE  PDV  OFFSETS 

CLKDFS  ;  DEFINE  CLOCK  BLOCK  OFFSETS 


F  1 


CESUB1 
tCEDIV 

537 
538 
539 
540 
5A1 
542 
5A3 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
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E  2 


.SBT7L  SMPSAV  -  BVPASS  CACHE  WITH  SAVE  AND  RESTORE 

♦♦-SMPSAV-BYPASS  CACHE  WITH  SAVE  AND  RESTORE 

ThiS  ROUTINE  WILL  SAVE  THE  CURRENT  STATE  OF  THE  CACHE  AND  BYPASS 
IT  BEFORE  CO-CALLING  THE  CALLER.  ON  RETURN  IT  WILL  RESTORE  THE 
INITIAL  STATE  OF  THE  CACHE. 


iMPSAV::CACHE$  SAVE 


SAVE  CURRENT  STATE  OF  CACHE 


000001 


CALL 
MOV 

a2(SP) 

(SP)+,2(SP) 

;  CO-CALL  THE  CALLER 
;  OVERWRITE  RETURN  LINK 

CACHES 
RETURN 

UNSAVE 

;  RESTORE  THE  CACHE 

.ENDC 

;  DF  MSSPRO 

.END 

F  2 


CETIM 
Symbci 


MACRO  VC5.03b  Friday  28-Jun-85  18:21 
table 


Z.DAT  000016 
Z.DSP  000000 
Z.FLG   000010 


Z.LEN  =  000016 
Z.LLN  000006 
Z.MAP   000020 


Page  6-2 

Z.NAM  000004 

Z.PCB  000012 

Z.SCH  000007 


E  3 


SDSPTH  000052RG 
$LTMFC=  *♦**♦*  GX 
$PDSPL=  ******  GX 


$PDVTA=  ******  GX 
STSTIM  OOOOOORC 
.$$$$.=  000034 


ABS.   177776    000 
COC074    001 
Errors  detected:  0 

***  Assembler  statistics 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


WoTK  tile  reeds 
Work  file  writes 
Size  of  work  file 
Size  of  core  pool 
Operating  system 


9 

12 

17471  Words      (  i9  Pages) 

17608  Words      (   67  Pages) 

RSX-11M/PLUS 


Elapsed   time:   00:00:12.04  ^   ,„   ,,„, 

SY:CETIM.V2,C130,134]CETIM/CR/-SP=SY:[1,1.1RSXMCM.SML/ML,[130,110^ 


;TLlB'ML,ri30,10]RSXMCM/PA:1,C130,10KETIM 


f      I 


SSYNB  OOO^^ARG 
SSYNBF  00035?RG 
SSYNC  =  000226  G 
SSYNCTr  000010  6 


CEXCM  -  CEX  COMMON  CATABASE 
ymbol  table 


E  4 
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002  $TCK50 

002  $TK100 

tTISCL 


000210RG 
000210RG 
000106RG 


002  ITIOOC 
002  STIOOQ 
002  $T50CL 


000066RG 
000060RG 
000066RG 


002  $T50Q 
002  $XAVL 
002  SXBIAS 


000060RG  002  SZTIME  O00U'.2RG  002 
000202RG  002  $ZTIM2  OCOOI^RG  002 
000200RG    002  .$$$$.=  000034 


AB5. 

CEXCOM 
$$$POL 


177776 
000000 
000362 
000006 


Errors  detected: 


000 
001 
002 
005 
0 


(RW,!,GBL,AB5,0VR) 
(RW,!,LCL,REL,CON) 
(RW,1,LCL,REL,C0N) 
(RU,1,LCL,REL,C0N) 


«♦♦   Assembler   statistics 

Work      fUe      reads:  0 

Work      file   writes:  0 

Size  of   work   file:  14625  Words      (    58  Pages) 

Size  ot   core  pool:  15496  Words      (    59  Pages) 

Operating      system:  RSX-11M/PLUS 

SY?CE?CM!v2!n3o!?34]CEXCM/CR/-SP=SY:C1,1]RSXMCM.SML/ML,[130,rO]NETLI8/ML,[130,10JRSXMCM/PA:1,[130,10]CEXCM 


F     4 


STC!»: 
SSTCRC 
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E  5 


215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

255 

236 

237 

238 

239 

240 

241 

242 

245 

2^4 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

265 

264 

265 

266 

267 

268 

269 

270 

271 


.SBTTL  SSTCRC  -  CALCULATE  CRC  ON  BLOCK  OF  DATA 


♦*-$STCRC-CALCULATE  CRC  ON  BLOCK  OF  DATA 

•*-$STCR1-ALTERNArE  ENTRY  (R1  -  PARTIAL  CRC) 

CALCULATE  THE  CRC  ON  A  BLOCK  OF  DATA. 

INPUTS: 


RO 
R1 
R2 
R4 

OUTPUTS: 
R1 


#  OF  BYTES  IN  DATA  BLOCK 
PARTIAL  CRC  OR  0 
POINTER  TO  DATA  BLOCK 
CCB  DESCRIBING  DATA  BUFFER 


000122  005001 
000124 


000124  017746  177652 

000130  016477  000014  177644 


tsTCRC: 
SSTCRI: 


000136  022702  140000 

000142  101002 

O0C144  162702  020000 


000150 
000150 

000154  012677  177622 


5$: 


10$: 


;CLR 


UPDATED  CRC  VALUE 
R1 


.IF  DF  M$$MGE 
.JF  NDF  I$$AS 


MOV 
MOV 
CMP 
BHI 
SUB 

.IFF 

MOV 

BIT 

BED 

MOV 

MOV 

MOV 

CMP 

BLOS 

ADD 

.ENDC 

.ENDC 

CALL 


aKSAR5,-(SP) 
C.BUF(R4),aKSAR5 
#140000, R2 
10$ 
#20000, R2 

;  I$$AS 

#KP.AR3,-(SP) 

#140000, PS. EXP 

5$ 

#UPAR0+6,(SP) 

a(SP),-(SP) 

C.BUF(R4),a2(SP) 

#60000, R2 

10$ 

#20000, R2 

;  I$$AS 

;  M$$MGE 

STCR2 


.IF  DF  M$$MGE 
.IF  NDF  I$$AS 


MOV 
.IFF 
MOV 
.ENDC 


(SP)  +  ,5IKSAR5 

(SP)t,a(SP)+ 
;  I$$AS 


INITIALISE  CRC  ACCUMULATOR 


SAVE  CURRENT  MAPPING 
;  AND  MAP  TO  BUfFER 
IS  BUFFER  MAPPED  BY  APR  >  6? 
IF  HI,  NO 
MAP  BUFFER  USING  APR5 


ASSUME  KERNEL  MODE 
KERNEL  MODE  ? 
YES  ~  BR 

NO  -  MUST  BE  USER  MODE 
SAVE  CURRENT  MAPPING 
;  MAP  TO  DATA  BUFFER 
IS  BUFFER  MAPPED  BY  APR  2? 
IF  10  OR  SAME,  NO 
MAP  BUFFER  USING  APR3 


CALCULATE  CRC 


RESTORE  MAPPING 


RESTORE  MAPPING 


S'CRC      CREATED  BY  MACRO  ON  28-JUN-85  AT  18:22 
SYMBOL  CROSS  REFERENCE 


E  6 

PAGE  1 

CREF   04.00 


:VNBOL 

VALUE 

REFERENCES 

BUFUMP 

=  172354 

#5-68 

CF.EOM 

=  000004 

8-186 

CLRKG 

=  000020 

#6-96 

6-98 

CMODE 

^^  140000 

#5-68 

CRC16 

=  000001 

#6-93 

6-99 

CTABL 

000256  R 

10-385 

10-401 

#11-436 

C.BUF 

000014 

8-149 

9-239 

ODB 

=  oooo:c 

#6-95 

6-98 

6-99 

F$$AST 

-  ***♦**■ 

4-4 

10-351 

11-453 

I$$AS 

-  *****^ 

5-68 

8-130 

8-152 

KGCSR 

=  17070C 

#6-92 

KGINIT 

=  000111 

#6-99 

KGLDBC 

=  000135 

i>6-98 

KISARO 

=  172340 

#5-68 

KISAR5 

=  »«•»»«  GX 

7-104 

KISAR6 

=  172354 

#5-68 

7-105 

KSAR5 

000002  R 

#7-104 

8-132 

8-154 

KSAR'i 

000004  R 

#7-105 

K$$G11 

=  *»♦♦*♦ 

4-1 

10-293 

11-431 

LRC16 

=  000003 

#6-94 

6-98 

L$$SI1 

=   ♦**♦** 

5-73 

MPAR 

=  172100 

#5-68 

MPCSR 

=  177746 

#5-68 

M$$MGE 

=  000000 

5-68 

5-73 

8-129 

PiRQ 

=  177772 

#5-68 

PMODE 

=  030000 

#5-68 

PRO 

=  000000 

#5-68 

PR' 

=  000040 

#5-68 

PR2 

=  000100 

#5-68 

PR  3 

=  000140 

#5-68 

PR4 

=  000200 

#5-68 

PR5 

=  000240 

#5-68 

PR6 

=  000300 

#5-68 

PR7 

=  000340 

#;-6C 

PS 

=  177776 

#5-68 

P$$3A 

=      ****** 

5-73 

P$$40 

-      ****** 

5-73 

P$$45 

=      ****** 

5-73 

P$$70 

-   ****** 

5-73 

R$$EIS 

=  ooooco 

#5-75 

5-79 

10-344 

R$$MPL 

=    ****** 

5-68 

5-68 

5-68 

R$$I10 

-  ****** 

5-68 

SEN 

=  000100 

#6-97 

6-98 

6-99 

5TCR2 

000162  R 

8-185 

9-260 

#10-291 

SWR 

=  177570 

#5-68 

TP5 

=  177564 

#5-68 

UBMPR 

=  170200 

#5-68 

UISARO 

=  177640 

#5-68 

U I  SARI 

=  177642 

#5-68 

SCLCRC 

000006  RG 

#8-128 

SSTCRC 

000122  RG 

#9-232 

ssrcRi 

000124  RG 

#9-234 

-170     8-202 


-204     9-238 


8-151     8-201 


9-236     9-263 


9-239     9-265 


9-235     9-262 


10-383 


10-399 


10-420 


n 


STCRCF 
SSTCRC 
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E  7 


272 
273 

27A  000150 


.ENDC   ;  ri$$MGE 
RETURN 


'Jl 


E  8 

STCRCF     CREATED  BY  MACRO  ON  28-JUN-85  AT  18:22     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREF   04.00 

SYMBni   VALUE  REFERENCES 

SSKVL  =  000002  6    #8-107 
SSTCVT    000000  RG     #8-103     8-107 
BASES  =  KOOOO       #6-68 


STCRCK 
STCR2  - 
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E  9 


276 

277 

278 

279 

280 

281 

282 

285 

284 

285 

286 

287 

238 

289 

290 

291  000162 

292 

293 

294 

295  000172 

296  000176 

297  000202 

298  000204 

299  000206 
300 

301  000212 

302  000214 
303 

304  000216 

305  000220 
306 

307  000224 

308  000226 
309 


.SBTTL   STCR2  -  CALCULATE  CRC 

»*-STCR2-CALCULATE  CRC  FOR  A  BLOCK  OF  DATA 

CALCULATE  THE  CRC-16  FOR  A  BLOCK  OF  DATA  USING  THE  KG-11  (IF  AVAILABLE) 
OR  SOFTWARE. 

INPUTS: 

RO  -  #  OF  BYTES  IN  DATA  BLOCK 

R1  -  INITIAL  CRC  VALUE 

R2  -  POINTER  TO  DATA  BLOCK 


OUTPUTS: 

R1  -  UPDATED  CRC  VALUE 

STCR2:   SAVRG   <R0,R2,R4,R5> 

.IF  DF  K$$G11 


012704  170700 

012705  170704 
012446 
011446 
012744  000133 

105714 
100376 

010115 

012714  000111 

105714 
100376 


310  000230 

052702  000001 

311  000234 

001411 

312  000236 

042714  000010 

313  000242 

112215 

314  000244 

105714 

315  000246 

100576 

316  000250 

052714  000010 

317  000254 

005300 

318  000256 

003412 

319 

320  000260 

006200 

321  000262 

006046 

32? 

323  000264 

005300 

324  000266 

002404 

325  000270 

012215 

326 

327  00C272 

105714 

328  00027<. 

100773 

529  000276 

000775 

350 

531  0005JO 

005726 

332  000302 

10C755 

MOV 
MOV 
MOV 
MOV 
MOV 

#f.GCSR,R4 

#KGCSR+4,R5 

(R4)+,-(SP) 

(R4),-(SP) 

#KGLDBC,-(R4) 

10$: 

TST8 
BPL 

CR4) 
10$ 

MOV 
MOV 

R1,(R5) 
#KGINIT,(R4) 

20$: 

TSTB 
BPL 

CR4) 
20$ 

30$: 
35$: 

BIT 
8EQ 
BIC 

Mova 

TSTB 

BPL 

BIS 

DEC 

BLE 

#1,R2 

40$ 

#DD8,(R4) 

(R2)t,(R5) 

(R4) 

35$ 

#DD8,(R4) 

RO 

80$ 

40$: 

ASR 
ROR 

RO 
-(SP) 

50$: 

DEC 
BLT 
MOV 

RO 

70$ 

(R2)+,(R5) 

60$: 

TST8 

BMI 

BR 

(R4) 

50$ 

60$ 

70$: 

TST 
BH! 

(SP)t 
50$ 

SAVE  SOME  REGISTERS 


POINT  TO  KG-11  CSR 

POINT  TO  KG-11  DATA  REGISTER 

SAVE  CURRENT  STATUS  OF  KG-11 

SINCE  IT  IS  SHARED 

SET  UP  TO  LOAD  NEW  BCC 

WAIT  FOR  COMPLETION 
(ONLY  ON  FASTER  PROCESSORS) 

LOAD  NEW  CRC 
AND  INIT  FOR  CRC-16 

WAIT  FOR  COMPLETION 


DOES  BUFFER  START  ON  ODD  BOUNDARY? 

IF  EQ,  NO 

SET  KG-11  TO  BYTE  MODE 

AND  DO  CRC  ON  BYTE 
Wait  for  completion 

RESET  WORD  MODE 
REDUCE  BYTE  COUNT 
IF  LE,  ALL  DONE 

CONVERT  TO  WORD  COUNT 

SAVE  ODD  BYTE  COUNT  ON  STACK 

ANY  MORE  WORDS  TO  GO? 

IF  LT,  NO 

DO  CRC  ON  WORD 

WAIT  FOR  COMPLETION 
IF  MI,  ALL  DONE 
CONTINUE  WAITING 

CHECK  FOR  ODD  BYTE  COUNT 

IF  MI,  COMPUTE  CRC  ON  LAST  BYTE 


STCRCi^     CREATED  B1     MACRO  ON  28-JUN-85  AT  18:22 
MACRO  CROSS  REFERENCE 


E  10 

PAGE  3 

CREF   OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

9-185 

10-260 

CCBDFS 

#6-65 

6-67 

NHUDFS 

#6-65 

6-68 

RESRG 

#6-65 

9-199 

11-428 

RETURN 

9-213 

10-274 

11-429 

SAVRG 

#6-65 

9-U5 

11-291 

AXBFR      CREATED  BY  MACRO  ON  28-JUN-85  AT  18:28 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


E  11 

PAGE  3 

CREF   0^.00 


SBFRFN    000000  RG 
.BASEB  =  UOOOO 


#6-77 
#5-61 


AXDSP  -  AUXILLIARY  PROCESS  DISP  MACRO  Y05.03b  Tuesday  03-Sep-85  10:58  Page  K 


V^ 


2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.IF  DF 
.IF  DF 

.Title 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.ENDC 

.ENDC 

.IDENT 


R$$11DII$tAS 

X$$MDC 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 


X$$MDC 
P$$RFL 
AXDSPB  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH 

P$$RF  L 

AXDSPP  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARY  PROCESS  DISPATCH 
/V05.01/ 


COPYRIGHT  (C)  1978,1979,1980,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  ^HE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION 

AUXILARY  PROCESS  DISPATCH  TABLE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


OF   ITS 


1.00   10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 


AXDSP 

CREATED  BY 

MACRO     ON  3- 

SEP-85   AT 

10:58 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF       04 

SYMBOL 

VALUE 

REFERENCES 

L.NMST 

000020 

#5-7/' 

L.NSTA 

OOOOU 

#5-77 

L.OWNR 

000021 

#5-77 

L.UNT 

000013 

#5-77 

NETACP 

00003-1 

R 

#9-267 

9-293 

NMCL2 

~      * t**** 

GX 

9-297 

9-299 

NHCMP 

OOOOAO 

R 

6-112 

#9-269 

P$$RFL 

-    ***** t 

4-15 

6-97 

6-107 

7-122 

RDBRT 

=   ****** 

GX 

9-310 

R$$nD 

=    ****** 

4-1 

6-115 

SF.ACT 

=  000200 

#5-77 

SF.ENA 

=  000100 

#5-77 

SF.LPB 

=  000004 

#5-77 

SF.MFL 

=  OOOOAO 

#5-77 

SF.PAC 

=  000020 

#5-77 

SF.REA 

=  000010 

#5-77 

5F.SER 

=  000001 

#5-77 

9-290 

SF.SVC 

=  000002 

#5-77 

SF.UNL 

=  000040 

#5-77 

SL1MA 

=    ****** 

GX 

9-276 

SRSTD 

r     ****** 

GX 

9-294 

S.COST 

000001 

#5-77 

S.FLG 

000000 

#5-77 

S.LEN 

000004 

#5-77 

9-288 

S.NMST 

000002 

#5-77 

S.OWNR 

000003 

#5-77 

X$$MDC 

=    ****** 

4-8 

6-88 

6-115 

$AUXTB 

000000 

RG 

#6-84 

SBFRTN 

-    ****** 

GX 

6-86 

SMDCIN 

000026 

RG 

#6-116 

E  13 


n 


E  U 

AXOSPB  -  AUXILIIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  10:58 
NETWORK,  MANAGEMENT  COUNTER  COMPLETION 


3n  000510 

312  000512  001375 

313  0005K 
3H 

315       000001 


RESRG 

BNE 

RETURN 

.END 


<R4> 
70$ 


Page  10-1 


Recover  the  next  buffer 
if  NE,  get  next  buffer 
Else,  return 


n 


n 


AXD5PM  -   AUXILLIARY   PROCESS  DIS  MACRO  V05.03b   Tuesday  03-Sep-85   1 


i   15 

0:59 


179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 


Page  8-1 


MODEM  CONTROL  SCAN  ROUTINE 


CALLR   MDMSCN 

.IFF 

RETURN 

.ENDC 

•  LOCAL  STORAGE  FOR  TRIBUTARY  ADDRESS  DURING  POWERFAIL 

TR18:    .8LKW 


E  16 

AXDSPP  -  AUXILLIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  11:00  Page  5-1 


58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 


DECNET-lliVS  V3.0 
DECNET-11M-PLUS  VI. 0 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 
DECnet-IIM/S  VA.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 

5.01  09-Aug-85 

Add  logic  to  bypass  service  disabled  check  on  broadcast  channels. 
This  change  requires  EPMMAl  ident  V5.01. 


J 


CESUB1 
SCMQIN 


MACRO  V05.03b  Friday  28-Jun-85   18:20     Page  6 
-  QUEUE   A   CHAIN  OF    CCBS    TO  A  LIST 


F  1 


68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90  000000 

91  OOOOOA 

92  000006 

93  OOOOK 
9A  000016 

95  000020 

96  000026 

97  000032 

98  000036 

99  000042 


.SBTTL  SCMQIN  -  QUEUE  A  CHAIN  OF  CCBS  TO  A  LIST 

♦*-$CHQIN  -  QUEUE  A  CHAIN  OF  CCBS  TO  A  LIST 

THIS  SUBROUTINE  IS  CALLED  TO  ADD  A  CCB  OR  A  CHAIN  OF  CCBS  TO 
THE  END  OF  A  SINGLE  LINKED  LIST. 

INPUTS: 

R3  =  ADDRESS  OF  TWO  WORD  LISTHEAD 
R4  =  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

OUTPUTS: 

THE  CCB  IS  QUEUED  TO  THE  END  OF  THE  LIST 
REGISTERS  MODIFIED: 

NONE 


010405 
042765 
011504 
001372 
052765 
011673 
010563 


040000  000012 


040000 
000002 
000002 


000012 


$CMQIN::SAVRG 
10$:  MOV 
BIC 
MOV 
BNE 
BIS 
MOV 
MOV 
RESRG 
RETURN 


<R5,R4> 

R4,R5  ; 

*CS.LST,C.STS(R5) 

(R5),R4 

10$  : 

#CS.LST,C.STS(R5) 

(SP),a2(R3) 

R5,2(R3) 

<R4,R5> 


SAVE  REGISTERS 

COPY  CCB  ADDRESS 

;  CLEAR  LAST  CCB  IN  CHAIN  BIT 

GET  ADDRESS  OF  NEXT  CCB  IN  CHAIN 

LOOP  TILL  END  OF  CHAIN 

;  SET  LAST  CCB  IN  CHAIN  BIT 

LINK  CHAIN  TO  END  OF  QUEUE 

UPDATE  LISTHEAD  POINTER  TO  LAST  CCB  IN  QUEUE 

RESTORE  REGISTERS 

RETURN 
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CESUB1   MACRO  V05.03b  Friday  28-Jun-85  18:20 
Symbol  table 


Page  17-1 


F  2 


A$$CHI<;= 

000000 

CS.D1S= 

000040 

C.SYTK= 

000010 

FS.SET= 

005000 

R$$11M= 

000000 

A$$CPS= 

000000 

CS.ENA= 

000001 

C.TCB 

000004 

FS.SFC= 

005000 

S$$WRG= 

000000 

A$$PRI= 

000000 

CS.ENB= 

000020 

C.TIM 

000006 

FS.SFR^ 

006000 

S$$YSZ= 

007600 

A$$TRP- 

000000 

CS.ERR= 

100000 

C.UIC 

000016 

FS.SFS= 

50^585 

T$$KMG= 

000000 

CB.CCB= 

000002 

CS.FTL= 

001000 

C.URM 

177776 

FS.SPW= 

040000 

T$$MIN= 

000000 

CB.ODM= 

000040 

CS.HCR= 

000001 

C.XACP 

000004 

FS.STM= 

000000 

V$$CTR= 

001000 

CB.DLC= 

000020 

CS.HFE= 

002000 

C.XID 

000035 

FS.STP= 

002000 

X$$DBT= 

000000 

CB.RDB= 

000004 

CS.LST= 

040000 

C.XLEN 

000044 

FS.STR= 

001000 

ZF.COU= 

001000 

CB.SDB= 

000010 

CS.MTL= 

004000 

C.XPLI 

000040 

FS.TRM= 

003000 

ZF.DDM= 

000001 

CB.SLI= 

000100 

CS.RNG= 

0000 10 

C.XPT 

000034 

FS.WLB= 

001000 

ZF.DIA= 

004000 

CB.XLB= 

OCOCOl 

CS.ROV= 

000004 

C.XSVC 

000042 

FS.XKL= 

002000 

ZF.DLC= 

000002 

CC.LLC= 

000200 

CS.RSN= 

010000 

C.XTC 

000037 

FS.XOF= 

010000 

ZF.DVP^ 

100000 

CE.ABO= 

100362 

CS.SHU= 

000001 

C.X25 

000036 

FS.XON= 

007000 

ZF.INI= 

040000 

CE.DAO= 

100346 

CS.5ID= 

000002 

DS$BUG= 

177514 

FS.ZER= 

002000 

ZF.KMX= 

000020 

CE.DIS= 

100366 

CS.STR= 

000004 

D$$ISK= 

000000 

F$$LVL= 

000001 

ZF.LLC= 

000004 

CE.ERR= 

100370 

CS.SUC= 

000001 

D$$L11= 

000001 

G$$TPP= 

000000 

ZF.LMC= 

000100 

CE.ILN= 

100350 

CS.TMO= 

020000 

D$$YNC= 

000000 

G$$TSS= 

000000 

ZF.MAN= 

020000 

CE.LTO= 

100356 

CS.XUR= 

000004 

D$$YNM= 

000000 

G$$TTK= 

"29899 

ZF.MFL= 

000010 

CE.MOP= 

100372 

CI$CKP= 

000000 

E$$XPR= 

000000 

G$$WRD= 

000000 

ZF.MTM= 

000400 

CE.NTE= 

100361 

C$$ORE= 

000400 

FC.CCP= 

000020 

I$$RAR= 

000000 

ZF.MUX= 

000040 

CE.RTL= 

100376 

C$$RSH= 

177564 

FC.CTL= 

000006 

I$$RDN= 

000000 

ZF.PSE= 

002000 

CE.SRC= 

100364 

C.ADD 

000034 

FC.KCP= 

000016 

KISAR5= 

******  GX 

ZF  SLI= 

010000 

CE.5TP= 

100352 

CARS 

000014 

FC.KIL= 

000004 

KISAR6= 

*«*♦«*  GX 

2F.TIM= 

000200 

CE.TME= 

100354 

CAST 

000012 

FC.MAN= 

000024 

K$$CNT= 

177546 

ZF.X3P= 

000000 

CE.TMO= 

100374 

C.BID 

000003 

FC.MLD= 

000026 

K$$CSR= 

177546 

ZS.ASN= 

100000 

CE.UNS= 

100344 

C.BUF 

000014 

FC.PCT= 

000030 

K$$LDC= 

000000 

ZS.BSY= 

140000 

CF.CHN^ 

000001 

C.BUF1 

000014 

FC.PWR= 

000022 

K$$TPS= 

000074 

Z.AVL 

000014 

CF.EOM= 

000004 

C.BUF2 

000024 

FC.RCE= 

000002 

LDSLP  = 

000000 

Z.DAT 

000016 

CF.HDR= 

000020 

C.CNT 

000020 

FC.RCP= 

000014 

L$$ASG= 

000000 

Z.DSP 

000000 

CF.LB  = 

100000 

C.CNT1 

000020 

FC.TIM= 

000010 

L$$DRV= 

000000 

Z.FLG 

000010 

CF.LIN= 

000002 

C.CNT2 

000030 

KC.XCP= 

000012 

L$$P11= 

000001 

Z.LEN  = 

000016 

CF.SOM= 

000010 

C.CSTP= 

000012 

FC.XME= 

000000 

L$$11R= 

000000 

Z.LLN 

000006 

CF.SYN= 

000040 

C.DST 

000016 

FS.AST= 

000000 

M$$CRB= 

000124 

Z.MAP 

000020 

CF.TRN= 

000100 

C.EFN 

000003 

FS.CIB= 

002000 

M$$CRX= 

000000 

Z.NAM 

000004 

CM.CIR= 

000002 

C.FLG 

000022 

FS.CRA= 

001  COO 

M$$FCS= 

000000 

Z.PCB 

000012 

CM.FMT= 

100000 

C.FLG1 

000022 

FS.DIS= 

013000 

M$$MGE= 

000000 

Z.SCH 

000007 

CM.HRD= 

000002 

C.FLG2 

000032 

FS.DVC= 

001000 

H$$NET= 

000000 

SCALLX 

000272RG 

CM.LIN= 

000000 

C.FNC 

000010 

FS.ENB= 

012000 

M$$0VR= 

000000 

SCEACC 

000400RG 

CM.LOO= 

000001 

C.LGTH= 

000020 

FS.EXI= 

001000 

N$$ACC= 

000001 

SCECAC 

000406RG 

CM.XLO= 

000004 

C.LIN 

000006 

FS.GET= 

006000 

N$$8UF= 

000001 

SCEDIV 

000542RG 

CP.DCF= 

000040 

C.LNK 

000000 

FS.HLT= 

000000 

N$$LDV= 

000001 

SCEMUL 

000536RG 

CP.HDL= 

000007 

C.MOD 

000011 

FS.INI= 

000000 

N$$MCP= 

000001 

$CMPDV= 

******  GX 

CP.FS  = 

177400 

C.MRKT= 

oonooo 

FS.KIL= 

000000 

N$$MLL= 

000001 

SCMQIN 

OOOOOORG 

CP.PSI= 

000200 

C.NSP 

00U004 

FS.LCL= 

100000 

N$$M0V= 

000010 

SCMQRM 

000044RG 

CP.XCF= 

000100 

C.PRO 

000042 

FS.LTM= 

001000 

N$$NCT= 

000001 

$CNV18 

000114RG 

rP.2FR= 

000030 

C.RQT 

000002 

FS.MNT= 

004000 

N$$PEM= 

000001 

$CNV22 

000114RG 

CS.ASO= 

000100 

C.RSI 

000012 

FS.MSN= 

014000 

OFS   = 

000006 

SHVFBF 

00021 6RG 

CS.BRO= 

000002 

C.RSV 

000002 

FS.REA= 

001000 

P$$P45= 

000000 

SMVTBF 

0001 52RG 

^S.BUF= 

000200 

C.SCHD= 

000002 

FS.RET=: 

000000 

P$$WRD= 

000000 

SPDVID 

000460RG 

CS.CES= 

000002 

C.SRC 

000014 

F5.REZ= 

003000 

0$$0PT= 

000010 

$PDVNM= 

♦***♦»  GX 

CS.rHN= 

000010 

C.SSHT= 

000004 

FS.RL8= 

002000 

R$$DER= 

000000 

$PDVTA= 

»*«***  GX 

CS.CMP= 

000200 

C.STA 

000007 

FS.RNG= 

OllOOC 

R$$EIS: 

000001 

$PUMR  = 

******  GX 

CS.DCR= 

000400 

C.STS 

000012 

FS.RST= 

000000 

RS$K11= 

000001 

$XBIAS= 

******  GX 

CS.DEF= 

000004 

C.SUB 

0000^2 

FS.RTN^ 

001000 

Rf$SND= 

000000 

.$$$$.= 

000034 

CS.DE\/= 

000002 

C.SYST= 

000006 

.  ABS. 

177776    000   (RW,I,G8L,AB;-,0VR) 
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symbcl  cross  reference 
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F  3 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ISSAS 

=   ****** 

4-58 

MSAR5 

=   ******     GX 

5-82 

«5-83 

LF .ACT 

=  100000 

#4-57 

LF.bRO 

=  000400 

#4-57 

LF.BWT 

=  000007 

#4-57 

-F.ENA 

=  00200C 

#4-57 

LF.LPB 

=  001000 

#4-57 

LF.MDC 

=  000100 

#4-57 

LF.MFL 

=  004000 

#4-57 

LF.MTP 

=  000020 

#4-57 

LF.PAC 

=  000200 

#4-57 

lf.rdy 

=  040000 

ltt,-57 

LF.REA 

=  010000 

#4-57 

LF.SER 

=  000040 

#4-57 

LF.TIM 

=  000010 

#4-57 

LF.UNL 

=  020000 

#4-57 

LF.X2P 

=  000000 

10,-57 

LN.CLO 

=  000000 

#4-57 

LN.DUM 

=  000005 

#4-57 

LN.LOA 

=  000004 

#4-57 

LN.LOO 

=  000003 

#4-57 

LN.OAU 

=  000003 

#4-57 

LN.OFF 

=  000001 

#4-57 

LN.ON 

=  000000 

#4-57 

LN.OOP 

=  000004 

#4-57 

LN.OPE 

=  000001 

#4-57 

LN.REF 

=  000002 

#4-57 

LN.SER 

=  000002 

#4-57 

LN.STA 

=  000017 

#4-57 

LN.SUB 

=  000360 

#4-57 

LN.TRI 

=  000006 

#4-57 

L.CDST 

000015 

lti,-57 

L.CTL 

000012 

ll',-57 

L.CVA 

177776 

lt',-57 

^.DDM 

000002 

H-57 

L.DDS 

000004 

ltl,-57 

L.DLC 

000003 

#4-57 

L.DLM 

000006 

#4-57 

L.DLS 

000010 

#4-57 

L.FLG 

000000 

#4-57 

L.KRBA 

000016 

#4-57 

L.LEN 

=  000022 

#4-57 

L.MPF 

000022 

#4-57 

L.NMST 

000020 

#4-57 

L.NSTA 

000014 

#4-57 

L.OWNR 

000021 

#4-57 

L.UNT 

000013 

#4-57 

MSSMGE 

=  000000 

5-78 

5-95 

PRr' 

=   **♦«»»     GX 

5-87 

PS 

=    ..**•.      3X 

•  5-87 

»5-93 

R$$11D 

3       ****** 

4-58 

R$$11M 

^  000000 

4-58 

♦6-122 
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CEXCM     CREATED  BY  MACRu  ON  28-JUN-85  AT  18:21 
SYMBOL  CROSS  REFERENCE 


F  A 

PAGE  1 

CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

CF.DDM 

-  000002 

#4-58 

CF.DYN 

=  000004 

#4-58 

CF.EIS 

=  000010 

#4-58 

CF.FRK 

=  100000 

#4-58 

CF.LOG 

=  000020 

#4-58 

CF.MDM 

=  000001 

#4-58 

CF.TIM 

=  000400 

#4-58 

CRCOV 

=  000002 

G 

#4-66 

DLCOV 

=  000010 

G 

#4-66 

FC.PWR 

=  000022 

5-149 

FC.TIM 

=  000010 

5-112 

5-129 

FS.LTM 

=  001000 

5-129 

FS.STM 

=  000000 

5-112 

M$$NET 

=  ocoooo 

4-50 

M$$PRO 

=  *♦♦*♦♦ 

5-94 

5-123 

5-139 

R$$MPL 

-    ****** 

4-1 
5-317 

4-2 
5-330 

4-52 

SCCBAF 

000030 

RG 

#5-86 

SCCBAL 

000034 

RG 

#5-88 

SCCBCT 

000026 

RG 

#5-85 

SCCBLH 

000134 

RG 

#5-154 

SCCBNM 

000012 

RG 

#5-79 

SCCBSZ 

000014 

RG 

#5-80 

SCEAVL 

000002 

RG 

#5-321 

SCELFN 

000304 

RG 

#5-205 

SCMFRK 

000046 

RG 

#5-98 

SCMODV 

000040 

RG 

#5-90 

SCXOPT 

000164 

RG 

#5-166 

SDDFNC 

000152 

RG 

#5-147 

SDECPT 

000124 

RG 

#5-143 

SEMASK 

000314 

RG 

#5-262 

SETIMR 

000314 

RG 

#5-263 

SEVDSC 

000226 

RG 

#5-193 

SFILHD 

000222 

RG 

#5-190 

SIMASK 

000314 

RG 

#5-261 

SLDBAF 

000032 

RG 

#5-87 

SLGCON 

000300 

RG 

#5-203 

tLGDDB 

000220 

RG 

#5-189 

SLGFNB 

000246 

RG 

#5-195 

tLGMON 

000274 

RG 

#5-202 

SLGPDV 

000216 

RG 

#5-188 

SLGSTT 

000224 

RG 

#5-191 

SLGUIC 

000272 

RG 

#5-201 

SLLCTA 

000004 

RG 

#5-76 

SLTMFC 

000104 

RG 

#5-127 

SMAXOV 

000214 

RG 

#5-186 

SNBIAS 

000166 

RG 

#5-168 

SNMCLH 

000306 

RG 

#5-207 

$NMCL2 

000310 

RG 

#5-208 

SNMLST 

000204 

RG 

#5-178 

SNTLPT 

000162 

RG 

#5-165 

SOBJHD 

000206 

RG 

#5-179 

5-111 


5-128 


5-148 


5-171 


5-210 


5-270 


G  4 


STCRC 
SSTCRC 
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272 
273 
2?4  000160 
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.ENDC 
RETURN 


F  5 


M$$MGE 


G  5 


J 


STCRC  CREATED  BY     MACRO     ON  28-JUN-85   AT   18:22 

SYMBOL    CROSS  REFERENCE 

SYMBOL      VALUE  REFERENCES 

SSTCVL     =  000002     G  #7-107 

SSTCVT         000000  RG  #7-103  7-107 

.BA';EB     =   UOOOO  #5-68 


F     6 

PAGE   2 

CREF       04.00 
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F  7 


276 
277 
278 
279 
280 
281 
282 
285 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
506 
307 
308 
309 


000162 


.SBTTL  STCR2  -  CALCULATE  CRC 
y 
**-STCfi2-CALCULATE  CRC  FOR  A  BLOCK  OF  DATA 

CALCULATE  THE  CRC-16  FOR  A  BLOCK  OF  DATA  USING  THE  KG-11  (IF  AVAILABLE) 
OR  SOFTWARE. 

INPUTS: 

RO  -  #  OF  BYTES  IN  DATA  BLOCK 

R1  -  INITIAL  CRC  VALUE 

R2  -  POINTER  TO  DATA  BLOCK 

OUTPUTS: 

R1  -  UPDATED  CRC  VALUE 


STCR2: 


10$: 


20$: 


SAVRG 

.IF  DF 

MOV 
MOV 
MOV 
MOV 
MOV 

TST8 
BPL 

MOV 
MOV 

TSTB 
BPL 


310 

BIT 

311 

BEQ 

512 

50$: 

BIC 

313 

MOVB 

3U 

35$: 

TSTB 

315 

BPL 

316 

BIS 

317 

DEC 

318 

BLE 

3''9 

320 

A0$! 

ASR 

321 

ROR 

322 

523 

50$: 

DEC 

52A 

BLT 

325 

MOV 

326 

327 

60$: 

TSTB 

328 

BMI 

529 

BR 

330 

351 

7C$: 

TST 

532 

BMI 

<R0,R2,R4,R5> 

K$$Gl1 

/fKGCSR.RA 

#KGCSRtA,R5 

{RA)+,-(SP) 

(R4),-(SP) 

#KGLDBC,-(R4) 

(R4) 
10$ 

R1,(R5) 
#KGINIT,(R4) 

(R4) 
20$ 

#1,R2 

m 

*DD8,(R4) 

(R2)+,(R5) 

(Rii) 

55$ 

#DDB,(RA) 

RO 

80$ 

RO 
-(SP) 

RO 

70$ 

(R2)+,(R5) 

(R4) 

50$ 

60$ 

(SP)*- 
50$ 


SAVE  SOME  REGISTERS 


POINT  TO  KG-11  CSR 

POINT  TO  KG-11  DATA  REGISTER 

SAVE  CURRENT  STATUS  OF  KG-11 

SINCE  IT  IS  SHARED 

SET  UP  TO  LOAD  NEW  BCC 

WAIT  FOR  COMPLETION 
(ONLY  ON  FASTER  PROCESSORS) 

LOAD  NEW  CRC 
AND  INIT  FOR  CRC-16 

WAIT  FOR  COMPLETION 


DOES  BUFFER  START  ON  ODD  BOUNDARY? 
IF  EQ,  NO 

SET  KG-11  TO  BYTE  MODE 
AND  DO  CRC  ON  BYTE 
Wait  for  completion 

RESET  WORD  MODE 
REDUCE  BYTE  COUNT 
IF  LE,  ALL  DONE 

CONVERT  TO  WORD  COUNT 

SAVE  ODD  BYTE  COUNT  ON  STACK 

ANY  MORE  WORDS  TO  GO? 

IF  LT,  NO 

DO  CRC  ON  WORD 

WAIT  FOR  COMPLETION 
IF  MI,  ALL  DONE 
CONTINUE  WAITING 

CHECK  FOR  ODD  BYTE  COUNT 

IF  HI,  COMPUTE  CRC  ON  LAST  BYTE 


G  7 


F  8 

STCRCF     CREATED  BY  MACRO  ON  28-JUN-85  AT  18:22     PAGE  3 

MACRO  CROSS  REFERENCE  CREF   0^.00 


MACRO  NAME 

REFERENCES 

CALL 

9-185 

10-260 

CCBDFS 

#6-65 

6-67 

NHWDFS 

#6-65 

6-68 

RESRG 

#6-65 

9-199 

11-428 

RETURN 

9-213 

10-274 

11-429 

SAVRG 

#6-65 

9-K5 

11-291 

r,    A 


J 


STCRCK 
STCR2  ■ 

333 

334 

335 

336 

337 

338 

339 

3A0 

341 

3A2 

343 

344 

345 

346 

347 

348 

34V 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

373 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 
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F  9 


000304  016501  177776 

000310  012714  000133 

000314  105714 

000316  100376 

000320  012615 

000322  0126H 


80$: 

MOV 
MOV 

-2(R5),R1 
#KGLD8C,(R4) 

90$: 

TST8 
BPL 

(R4) 
90$ 

MOV 
MOV 

(SP)+,(R5) 
(SP)+,(R4) 

.IFF 

;  K$$G11 

.IF  NDF 

R$$EIS 

SAVRG 

<R3> 

.ENDC 

5$: 

.IF  DF 

F$$AST 

10$: 

Move 

(R2)+,R5 

XOR 
BIC 
ASL 

R1,R5 

#*C<377>,R5 

R5 

.IF  OF 

M$$MGE 

MOV 

CrA8L{R5),R5    ; 

.IFF 

ADD 
MOV 

PC,R5 
CTABL-.(R5),R5  ; 

.ENDC 

CLRB 
SWAB 
XOR 

R1 
R1 
R5,R1 

.IFF 

;  DF  F$$AST 

10$: 

M0V8 

(R2)+,R5 

XOR 
MOV 
BIC 
ASL 

R1,R5         ; 
R5,R4         ; 
*"C<17>,R5 
R5 

.IF  DF 

M$$MGc 

MOV 

CTABL(R5),R5 

.IFF 

ADD 

PC,R5 

GET  NEW  CRC  FROM  KG-11 
SET  UP  TO  RELOAD  OLD  BCC 

WAIT  FOR  COMPLETION 


RESTORE  OLD  BCC 
AND  OLD  CSR  STATUS 


SAVE  AN  EXTRA  REGISTER 


GET  NEXl  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
ISOLATE  USEFUL  BYTE 
FORM  WORD  ADDRESS 


GET  MODIFIER  WORD  FROM  TABLE 


FORM  PIC  ADDRESS 

GET  MODIFIER  WORD  FROM  TABLE 


CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


GET  NEXT  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
SAVE  A  COPY  OF  THE  RESULT 
EXTRACT  LOW  4  BITS 
FORM  WORD  ADDRESS 


GET  FIRST  MODIFIER  WORD 


FORM  PIC  ADDRESS 


J 


F  10 


AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA  AAA 
AAA         AAA 


uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

uuu 

uuu 

XXX 

uuu 

uuu 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuu 

uuu 

XXX 

XXX 

uuuuuuuuuuuuuuu 

XXX 

XXX 

uuuuuuuuuuuuuuu 

XXX 

XXX 

uuuuuuuuuuuuuuu 

XXX 

XXX 

n 


AXBFR      CREATED  BY 
MACRO  CROSS  REFERENCE 


MACRO  MAME 

REFERENCES 

CALL 

6-156 

6-170 

CCBDFS 

#5-58 

5-59 

ENABL$ 

#5-58 

INHISS 

#5-58 

MTPS 

6-96 

6-106 

NHWDFS 

#5-58 

5-61 

RETURN 

6-200 

SLTDFt 

#5-58 

5-oO 

MACRO  ON  28-JUN-85  AT  18:28 


6-178 


PAGE  4 
CREF 


F  11 

04.00 


6-166 


6-186 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 


DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 
DECnet-ll/'/S  V4.? 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 

5.01  09-Aug-85 

Add  logic  to  bypass  service  disabled  check  on  broadcast  channels. 
This  change  requires  EPMMAI  ident  V5.01. 


J 


AXDSP 


CREATED  BY  MACRO  ON  3-SEP-85  AT  10:58 


MACRO  CROSS  REFERENl^^ 
MACRO  NAME      REFEREMCES 
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PAGE  3 

CREF   04.00 


CALL 

9-294 

9-310 

CALLR 

5-120 

9-304 

CCBDFS 

#5-75 

5-78 

RESRG 

#5-75 

9-311 

RETURN 

6-119 

9-313 

SAVRG 

#5-75 

9-309 

SLTDF$ 

#5-75 

5-77 

SOB 

9-289 

9-308 


F  K 
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ASCMP  = 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$tTRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SlI= 

CB.XLB= 

CCBRET 

CCBRT  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.1LN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

Cf .HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.L1N= 

CM.LOD= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 


000000 

'OOOOO 

000000 

000000 

000002 

000040 

000020 

OOOOOA 

000010 

000100 

000001 

000030R 

**«««*  GX 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

COO 100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 


CS.DEV= 

CS.DIS= 

CS.ENA= 

CS.EN8= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.BUFl 

C.BUF2 

C.CNT 

C.CNTl 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DDFNC  = 

DUMMV 

0$$BUG= 

[)$$ISK  = 

D$$L11= 

D$$VNC= 


000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

******  GX 

000026R 

177514 

000000 

000001 

000000 


0$$YNM= 
EXRQN  = 
E$$XPR= 
FC.CCP= 
FC.CTL= 
FC.KCP= 
FC.K]L= 
FC.MAN= 
FC.MLD= 
FC.PCT= 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.TJM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CIB= 
FS.CRA= 
FS.DJS= 
FS.DVC= 
FS.ENB= 
FS.EX1= 
FS.GET= 
FS.HLT= 
FS.INI= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.mT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM^ 
FS.STP= 
FS.STR= 
FS.rRM= 
FS.ULB= 
FS.XKL= 
FS.XOF= 
FS.X0N= 
FS.ZER= 
F$$LVL= 
G$$TPP= 

G$$rss= 

G$$TTK= 
G$$WRD= 


000000 

******  GX 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

U02000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 


I$$RAR= 
I$$RDN= 
KMCL 
K$$CNT= 
KS$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LF.ACT= 
LF.BRO= 
LF.8WT= 
LF.ENA= 
LF.LP8= 
LF.MDC^ 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TJM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOa= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPb= 
LN.REF= 
LN.SER= 
LN. STA- 
IN. SUB^ 
LN.TRI= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
!  -CTL 

CVA 

DDM 

DDS 

DLC 

DLM 

DLS 

FLG 

KRBA 
..LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 


000000 

000000 

000302R 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

''00360 

.00006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 


MDMCTL= 

MDMSCN= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

H$$MGE= 

H$$NET= 

M$IOVR= 

NETACP 

NMCL2  = 

NMCMP 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$HOV= 

N$$NCT= 

N$$PEM= 

PDSPL  = 

PWFAIL 

PWRFL 

PWRFl  = 

P$$P45=: 

P$$RFL= 

P$$WRD= 

Q$$OPT= 

RDBRT  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SLTNM  = 

SRSTD  = 

S$$URG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TRIB 

TSKRT  = 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 


******  GX 

******  GX 

000124 

000000 

000000 

000000 

000000 

000000 

000306R 

******  GX 

000312R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

»***♦*  GX 

000034R 

0001 72R 

******  GX 

000000 

000001 

000000 

000010 

****** 

000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 

****** 
****** 


GX 


******  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000170R 

**♦«*♦  GX 

000000 

000000 

001000 

000000 


~l 
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193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

24  3 

244 

24  5 

246 

24  7 

248 

249 


.SBTTL   POWERFAIL  RECOVl RY  DISPATCH  TO  DDM  MODULES 

*-PURFL-POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

THIS  ROUTINE  IS  INVOKED  FROM  THE  DRIVER  POWERFAIL  ENTRY  POINTS  TO 
DISPATCH  TO  DDM  MODULES  TO  PERFORM  POWERFAIL  RECOVERY.  IF  THE  KMC 
MICROCODE  LOADER  TASK  IS  INSTALLED,  IT  WILL  BE  REQUESTED  TO  RUN. 


STOP  TIMERS  RUNNING  TO  DDM  PROCESSES 
SET  UP  COUNT  OF  LINES  TO  SCAN 

GET  NEXT  SYSTEM  LINE  * 

FORM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
AND  GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
IS  THE  LINE  ACTIVE? 
IF  PL,  NO 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

GET  ADDRESS  OF  KRB 

GET  ADDRESS  OF  CPU  URM  TABLE 

ARE  WE  RUNNING  ON  THE  CORRECT  PROCESSOR? 

IF  EQ,  NO 


GET  LINE  TABLE  ADDRESS 

AND  DDM  PDV  INDEX 
POINT  TO  POWERFAIL  FUNCTION  CODE 
DISPATCH  TO  DDM 

REDUCE  COUNT  OF  LINES  TO  SCAN 
LOOP  IF  MORE  TO  GO 
CLEAN  UP  THE  STACK 


POINT  TO  KMC  LOADER  TASK  NAME 
SCAN  TO  FIND  TASK'S  TCB 
IF  CS,  TASK  NOT  INSTALLED 
CLEAR  DEFAULT  UK 
REQUEST  TASK  TO  RUN 


PWRFL: 

MOV 
MOV 

#-1,aPWRFl 
aSLTNM,-(SP) 

10$: 

MOV 
DEC 
ASL 
ADD 
MOV 
TST 
BPL 

(SP),R3 

R3 

R3 

aSLTMA,R3 

(R3),R3 

(R3) 

20$ 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

15$: 

BIT 
BEQ 
MOV 
MOV 
BIT 
BEQ 

.ENDC 
.ENDC 

#F2.MP,aFMSK2 

15$ 

L.KRBA(R3),R5 

aCPURM,-(SP) 

K.URM(R5),a(SP)+; 

20$           ; 

MOV 
MOVB 
MOV 
CALL 

L.DDS(R3),R5 
L.DDM(R3),R2 
DDFNC,R3 
aPDSPL 

20$: 

DEC 
BNE 
TST 

(SP)           ; 

10$ 

(SP)  + 

.IF  NDF 

I$$AS 

MOV 

CALL 

BCS 

CLR 

CALL 

#KMCL,R3 

aSRSTD         ; 

30$           ; 

R1 

aiSKRT 

.ENDC 

30$: 

MOV 
RETUR'. 

aSLTNM.aPWRFI 

KMCL: 

.IF  NDF 
.RAD50 

I$$AS 
/KMCL../ 

START  DISCONNECT  NOTIFICATION  ON  ALL  LINES 


TASK  NAME  OF  KMC  MICROCODE  LOADER 


F  16 
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75  .MCALL   SLTDF$,CCBDF$,SAVRG,RESRG 

77  COOGOO  SLTDFS  ;  DEFINE  SYSTEM  LINE  TABLE  OFFSETS 

78  000000  CCBDFS  ;  DEFINE  CCS  OFFSETS 
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101 
102 
1C3 
10^ 
105 
106 
137 
108 
109 
110 
111 
112 
115 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 

125  000044 

126  000046 

127  000050 

128  000052 

129  000056 

130  000060 

131  000066 

132  000070 

133  000072 
134 

135  000074 

136  000076 
"37  000100 

138  000104 

139  000106 

140  000112 


.SBTTL  SCMQRM  -  REMOVE  A  CHAIN  OF  CCBS  FROM  A  LIST 


•*-$CMQRM  -  REMOVE  A  CHAIN  OF  CCBS  FROM  A  LIST 

THIS  SUBROUTINE  IS  CALLED  TO  REMOVE  THE  FIRST  ENTRY 
FROM  A  SINGLY  LINKED  LIST. 

INPUTS: 

R3  =  ADDRESS  OF  TWO  WORD  LISTHEAD 

OUTPUTS: 

C/CLEAR: 

R4  =  ADDRESS  OF  FIRST  IN  CHAIN  OR  ONLY  CCB  DEQUEUED 


000261 
011304 
001420 

010405 

032765  040000 

001002 

011504 

001371 

011513 

001002 

010363  000002 

005015 


000012 


C/SET: 

QUEUE  IS  EMPTY 

•  REGISTERS  MODIFIED: 

R4 

SCMQRM: 

:SEC 

MOV 

(R3),R4 

BEQ 

40$ 

SAVRG 

<R5,R4> 

10$: 

MOV 

R4,R5         ; 
#CS.LST,C.STS(R55 

BIT 

BNE 

20$ 

MOV 

(R5),R4 

BNE 

10$ 

20$: 

MOV 

(R5),(R3) 

BNE 

30$ 

MOV 

R3,2(R3) 

30$: 

CLR 

<r5) 

RESRG 

<R4,R5> 

40$: 

RETURN 

SET  C-eiT  JUST  IN  CASE  QUEUE  IS  EMPTY 

GET  ADDRESS  OF  FIRST  CCB  IN  QUEUE 

RETURN  IF  QUEUE  IS  EMPTY 

SAVE  A  REGISTER 

COPY  FIRST  CCB  IN  CHAIN  ADDRESS 

;  IS  THIS  THE  LAST  CCB  IN  THE  CHAIN? 

YES  -  UPDATE  THE  LISTHEAD 

NO  -  GET  NEXT  CCB  -  IS  THIS  THE  LAST? 

NO  -  LOOP  TILL  END  OF  CHAIN 

SET  ADDRESS  OF  NEW  FIRST  CCB  IN  QUEUE 

BRANCH  IF  QUEUE  IS  NOT  EMPTY 

OTHERWISE  CLOSE  UP  LIST 

CLEAR  LINK  POINTER  IN  THE  LAST  CCB  OF   CHAIN 

RESTORE  REGISTER 

RETURN 


H  1 


G  2 
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CETIM 
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R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

X$$MCB 

ZF.COU 

ZF.DDM 

zf.i.;a 

ZF.DLC 

ZF. DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.OAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SDSPTM 

SLTMFf 

SPDSPL 

tPDVTA 

STSTIM 


=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=:  000002 
=  000040 

000001 

000000 

000004 

000002 

000003 

=  ****** 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
=  000010 
=  000400 
=  000040 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 

000014 

000016 

000000 

000010 
=  000016 

000006 

000020 

000004 

000012 

000007 

000052  RG 
=  »».»»»   GX 
r  .«.».»  GX 
=  «»»»»*  GX 

000000  RG 


REFERENCES 

4-58 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 
#4-57 

4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 
#4-58 

5-92 

6-119 

6-120 

5-81 
#5-78 


4-58 


4-58 


#6-118 


J   [ 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

$PAD 

^  000577  6 

#4-66 
5-308 

5-308 
5-308 

5-308 

SPADB 

000332  RG 

#5-300 

SPADBf 

0003A0  RG 

5-302 

#5-305 

SPADKL 

=  000012  G 

#4-66 

5-303 

5-306 

SPADSH 

=  000002  6 

#4-66 

SPAVL 

000202  RG 

#5-176 

IPBIAS 

000320  RG 

#5-266 

SPDVNM 

000006  RG 

#5-77 

SPDVTA 

000000  RG 

#5-74 

SPSIPT 

000126  RG 

#5-144 

$PUMR 

000174  RG 

#5-172 

SPWRFI 

000176  RG 

#5-174 

SQBIAS 

000170  RG 

#5-169 

SQSTRT 

000172  RG 

#5-170 

SRDBAF 

000154  RG 

#5-162 

SRDBCT 

000146  RG 

#5-159 

SRDBLH 

000150  RG 

#5-160 

SRDBNM 

000016  RG 

#5-81 

SRDBSZ 

000020  RG 

#5-82 

SRDBTH 

000036  RG 

#5-89 

SRDQCT 

000160  RG 

#5-164 

SRDQSL 

000156  RG 

#5-163 

SSDBAF 

000144  RG 

#5-158 

SSDBCT 

000136  RG 

#5-155 

SSDSLH 

000140  RG 

#5-156 

SSDBNM 

000022  RG 

#5-83 

SSDBSZ 

000024  RG 

#5-84 

SSHLST 

000312  RG 

#5-259 

SSLTMA 

000002  RG 

#5-75 

SSLTNM 

000010  RG 

#5-78 

SSNAPr 

000130  RG 

#5-145 

SSPARI 

000314  RG 

#5-264 

$SPAR2 

000320  RG 

#5-267 

SSQRCM 

000212  RG 

#5-183 

SSTMFC 

000064  RG 

#5-110 

SSYNB 

000324  RG 

#5-295 

SSVNBF 

000352  RG 

5-297 

#5-309 

$SYNC 

=  000226  G 

#4-66 

5-312 

5-312 

SSYNCT 

=  000010  G 

#4-66 

5-298 

5-310 

$TCK50 

000210  RG 

#5-182 

STKIOO 

000210  RG 

#5-181 

STISCL 

000106  RG 

#5-134 

STIOOC 

000066  RG 

#5-118 

$T100Q 

000060  RG 

#5-107 

$T50CL 

000066  RG 

#5-117 

$T50Q 

000060  RG 

#5-106 

$XAVL 

000202  RG 

#5-177 

SXBIAS 

000200  RG 

#5-175 

SZTIME 

000042  RG 

#5-91 

$ZT1M2 

000044  RG 

#5-92 

5-308 


5-308 


5-308 


5-308 


5-308 


5-308 


5-312 


5-312 


5-312 


5-312 


5-312 


5-312 


:iL  r 


STCRC 
STCR2 
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276 
277 
278 
279 
280 
281 
282 
283 
28^ 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29^ 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30^ 
305 
306 


000162 


.S8TTL  STCR2  -  CALCULATE  CRC 

•*-STCfi2-CALCULATE  CRC  FOR  A  BLOCK  OF  DATA 

CALCULATE  THE  CRC-16  FOR  A  BLOCK  OF  DATA  USING  THE  KG-1 1 
OR  SOFTWARE. 

INPUTS: 

RO  -  #  OF  BYTES  IN  DATA  BLOCK 

R1  -  INITIAL  CRC  VALUE 

R2  -  POINTER  TO  DATA  BLOCK 


(IF  AVAILABLE) 


OUTPUTS: 

R1  -  UPDATED  CRC  VALUE 


STCR2: 


10$: 


SAVR6 

.IF  DF 

MOV 
MOV 
MOV 
MOV 
MOV 

TSTB 
BPL 

MOV 
MOV 


<R0,R2,R'!i,R5> 

K$$G11 

#KGCSR,RA 

#KGCSR+4,R5 

(RA)t,-(SP) 

(R4),-(SP) 

#KGLDBC,-(RA) 

(R4) 
10$ 

R1,(R5) 
#KG1NIT,(R4) 


307 

20$: 

TSTB 

(R1) 

308 

BPL 

20$ 

309 

310 

BIT 

#1,R2 

loi 

311 

BEQ 

312 

30$: 

BIC 

#DD8,(R1) 

313 

MOVB 

(R2)+,(R5) 

311 

35$: 

TSTB 

(R4) 

315 

BPL 

35$ 

316 

BIS 

tfDDB.CRD 

317 

DEC 

RO 

318 

BLE 

80$ 

319 

320 

40$: 

ASR 

RO 

321 

ROR 

-(SP) 

322 

323 

50$: 

DEC 

RO 

321 

BLT 

70$ 

325 

326 
327 

MOV 

(R2)+,(R5) 

60$: 

TSTB 

(R4) 

328 

BMI 

50$ 

329 

BR 

60$ 

330 

331 

70$: 

TST 

(SP)t 

332 

BMI 

30$ 

SAVE  SOME  REGISTERS 


POINT  TO  KG-11  CSR 

POINT  TO  KG-11  DATA  REGISTER 

SAVE  CURRENT  STATUS  OF  KG-11 

SINCE  IT  IS  SHARED 

SET  UP  TO  LOAD  NEW  BCC 

WAIT  FOR  COMPLETION 
(ONLY  ON  FASTER  PROCESSORS) 

LOAD  NEW  CRC 
AND  INIT  FOR  CRC-16 

WAIT  FOR  COMPLETION 


DOES  BUFFER  START  ON  ODD  BOUNDARY? 

IF  EQ,  NO 

SET  KG-11  TO  BYTE  MODE 

AND  DO  CRC  ON  BYTE 
Wait  for  completion 

RESET  WORD  MODE 
REDUCE  BYTE  COUNT 
IF  LE,  ALL  DONE 

CONVERT  TO  WORD  COUNT 

SAVE  ODD  BYTE  COUNT  ON  STACK 

ANY  MORE  WORDS  TO  GO? 

IF  LT,  NO 

BO  CRC  ON  WORD 

WAIT  FOR  COMPLETION 
IF  MI,  ALL  DONE 
CONTINUE  WAITING 

CHECK  FOR  ODD  BYTE  COUNT 

IF  MI,  COMPUTE  CRC  ON  LAST  BYTE 


H  ; 


G  6 

STCRC      CREATED  BY  MACRO  ON  28-JUN-85  AT  18:22     PAGE  3 

MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

8-185 

9-260 

CCBDFi 

#5-65 

5-67 

NHWDFt 

#5-65 

5-68 

RESRG 

#5-65 

8-199 

10-428 

RETURN 

8-213 

9-274 

10-429 

SAVRG 

#5-65 

8-U5 

10-291 

H      t, 


~1 


STCRCF 
STCR2  ■ 
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00017A  074105 

000176  042705  177400 

000202  006305 


333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350  000172 

351 

352 

353  000172  112205 

354 

355 

356 

357 

358 

359 

360 

361  000204  016505  000234' 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

574 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

587 

388 

589 


000210  105001 
000212  000501 
000214  074501 


80$: 

MOV 
MOV 

-2(R5),R1 
#KGLDBC,(R4)    ; 

90$: 

TSTB 
BPL 

(R4) 
90$ 

MOV 
MOV 

(SP)t,(R5) 
(SP)+,(R4) 

.IFF 

;  K$$G11 

.IF  NDF 

R$$EIS 

SAVRG 

<R3> 

.ENDC 

5$: 

.IF  DF 

F$$AST 

10$: 

MOVB 

(R2)+,R5 

XOR 
BIG 
ASL 

R1  ,R5 

*»C<377>,R5 

R5           ; 

.IF  DF 

M$$MGE 

MOV 

CTABL(R5),R5    ; 

.IFF 

ADD 
MOV 

PC,R5 
CTA8L-.(R5),R5   ; 

.ENDC 

CLRB 
SWAB 
XOR 

R1            ; 

R1 

R5,R1 

.IFF 

;  DF  F$$AST 

10$: 

MOVB 

(R2)'-.R5 

XOR 
MOV 
BIC 
ASL 

R1,R5         ; 
R5,R4         ; 
#*C<17>,R5 
R5 

.IF  DF 

M$$MGE 

MOV 

CTA8L(R5),R5    ; 

.IFF 

ADD 

PC,R5 

GET  NEW  CRC  FROM  KG-11 
SET  UP  TO  RELOAD  OLD  BCC 

WAIT  FOR  COMPLETION 


RESTORE  OLD  BCC 
AND  OLD  CSR  STATUS 


SAVE  AN  EXTRA  REGISTER 


GET  NEXl  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
ISOLATE  USEFUL  BYTE 
FORM  WORD  ADDRESS 


GET  MODIFIER  WORD  FROM  TABLE 


FORM  PIC  ADDRESS 

GET  MODIFIER  WORD  FROM  TABLE 


CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


GET  NEXT  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
SAVE  A  COPY  OF  THE  RESULT 
EXTRACT  LOW  4  BITS 
FORM  WORD  ADDRESS 


GET  FIRST  MODIFIER  WORD 


FORM  PIC  ADDRESS 


:iT 


♦*F1LE«'ID»«STCRCK 
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ssssssss 

TTTTTTTTTT 

CCCCCCCC 

RRRRRRRR 

CCCCCCCC 

KK      KK 

ssssssss 

TTTTTTTTTT 

CCCCCCCC 

RRRRRRRR 

CCCCCCCC 

KK      KK 

ss 

RR      RR 

KK      KK 

ss 

RR      RR 

KK      KK 

ss 

RR      RR 

KK    KK 

ss 

RR      RR 

KK    KK 

ssssss 

RRRRRRRR 

KKKKKK 

ssssss 

RRRRRRRR 

KKKKKK 

ss 

RR  RR 

KK    KK 

ss 

RR  RR 

KK    KK 

ss 

RR    RR 

KK      KK 

ss 

RR    RR 

KK      KK 

ssssssss 

CCCCCCCC 

RR      RR 

CCCCCCCC 

KK      KK 

ssssssss 

CCCCCCCC 

RR      RR 

CCCCCCCC 

KK      KK 

LL 

SSSSSSSS 

TTTTTTTTTT 

lL 

ssssssss 

TTTTTTTTTT 

LL 

SS 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLL. ' LLL 

ssssssss 

LLLLLllLlL 

ssssssss 

STCRCK 
STCR2  - 
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390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
AGO 
401 
A02 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 

428  000324 

429  000334 


20$: 


MOV     CTA8L-.(R5),R5  ;  GET  FIRST  MODIFIER  WORD 
.ENDC 


BIC 

#*C<360>,R4 

;  NOW  EXTRACT  HIGH  i 

.  BITS 

ASR 

R4 

;  FORM  WORD  OFFSET 

ASR 

R4 

;   ... 

ASR 

R4 

>   •  •  • 

.IF  DF   M$$MGE 

MOV     CTABL+32.(R4),R4;  GET  SECOND  MODFIER  WORD 

.IFF 

FORM  PIC  ADDRESS 


EXCLUSIVE  'OR'  MODIFIER  WORDS 
CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


ADD 
MOV 

PC,R4 
CTABL+32.-.(R 

.ENDC 

XOR 
CLR8 
SWAB 
XOR 

R4,R5 
R1 
R1 
R5,R1 

.ENDC 

DEC 
BGT 

RO 
10$ 

.IF  NDF 

R$$EIS 

RESRG 

<R3> 

.ENDC 

.ENDC 

RESRG 
RETURN 

<R5,R4,R2,R0> 

ANY  MORE  TO  GO? 
IF  GT,  YES 


**F!LE»*1D»«AXBFR 
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AAAAAA 

XX      XX 

BBBBBBBB     f 

FFFFFFFFF 

RRRRRRRR 

AAAAAA 

XX      XX 

BBBBBBeS     F 

FFFFFFFFF 

RRRRRRRR 

AA      AA 

XX      XX 

BB      BB   F 

RR      RR 

AA      AA 

XX      XX 

BB      BB   F 

RR      RR 

AA      AA 

XX   XX 

BB      BB   F 

RR      RR 

AA      AA 

XX   XX 

BB     BB   F 

RR      RR 

AA      AA 

XX 

BBBBBBf  J     F 

FFFFFFF 

RRRRRRRR 

AA      AA 

XX 

BBBBBB83     F 

FFFFFFF 

RRRRRRRR 

AAAAAAAAAA 

XX   XX 

BB     BB   F 

RR  RR 

AAAAAAAAAA 

XX   XX 

BB      BB   F 

RR  RR 

AA      AA 

XX      XX 

BB      BB   F 

RR    RR 

AA      AA 

XX      XX 

BB      BB   F 

RR    RR 

AA      AA 

XX      XX 

BBBBBBBB     F 

RR      RR 

AA      AA 

XX      XX 

BBBBBBBB     F 

RR      RR 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

_L 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLl 

ssssssss 

LLLLLLLLlL 

ssssssss 
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'LE«MD»«AXDAT 


AAAAAA 

XX      XX 

DDDDDDDD 

AAAAAA 

TTTTTl 

TTTT 

AAAAAA 

XX      XX 

DDDDDDDD 

AAAAAA 

TTTTTl 

nil 

AA      AA 

XX      XX 

DD 

DD 

AA 

AA 

AA      AA 

XX      XX 

DO 

DD 

AA 

AA 

AA      AA 

XX   XX 

DD 

DD 

AA 

AA 

AA      AA 

XX   XX 

DD 

DD 

AA 

AA 

AA      AA 

XX 

DD 

DD 

AA 

AA 

AA      AA 

XX 

DD 

DD 

AA 

AA 

AAAAAAAAAA 

XX   XX 

DD 

DD 

AAAAAAAAAA 

AAAAAAAAAA 

XX   XX 

DD 

DD 

AAAAAAAAAA 

AA      AA 

XX      XX 

DD 

DD 

AA 

AA 

AA      AA 

XX      XX 

DD 

DD 

AA 

AA 

AA      AA 

XX      XX 

DDDDDDDD 

AA 

AA 

AA      AA 

XX      XX 

DDDDDDDD 

AA 

AA 

ssssssss 

TTTTT^TTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLrLLL 

ssssssss 
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75 
76 

77  000000 

78  000000 


.MCALL   SLTDF$,CCBDF$,SAVRG,RESRG 


SLTDFS 
CCBDFS 


DEFINE  SYSTEM  LINE  TABLE  OFFSETS 
DEFINE  CCB  OFFSETS 


,.F1LE*«ID»*AXDSPB 
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AAAAAA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pppppppp 

BBBBBaSB 

AAAAAA 

XX      XX 

DDDDDDDD 

SSSSS5SS 

pppppppp 

BBBBBBB8 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp    pp 

B6     B6 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp    pp 

BB     BB 

AA      AA 

XX   XX 

DD 

DD 

SS 

pp    pp 

BB     66 

AA      AA 

XX   XX 

DD 

DD 

SS 

pp    pp 

66     66 

AA      AA 

XX 

DD 

DD 

SSSSSS 

pppppppp 

B8BBBB6B 

AA      AA 

XX 

DD 

DD 

SSSSSS 

pppppppp 

66686638 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

BB     66 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

66     BB 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

66     BB 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

BB     66 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

BB6BBB66 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

66686888 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSi 

J 
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Symbol  table 

X$$MDC=  000001         SAUXTB  OOOOOORG       $BFRTN=  »♦♦«♦*  GX      .$$$$.=  000034 

.  ABS.  177776    000   (RW.I ,GBL ,ABS,OVR) 
000516    001    (RW,1,LCL,REL,C0N) 
Errors  detected:  0 

***  Assembler  statistics 

Work   fiie  reads:  0 

Work  f i le  writes:  C 

Size  of  work  tile:  16133  Words  (  64  Pages) 

Size  of  core  oool:  17608  Words  (  67  Pages) 

uperating  system:  RSX-11M/PLUS 

DB2:AXnSPB™T47?[13i;?34]AXDSP8/CR/-SP=DB2:C1  J]RSXP1CM.SML/ML,[130J10JNETLI8/ML,[130J0JRSXMCM/PA:1,[131  J0JT47,A 
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250 
251 
252 


.ENDC 
.ENDC 
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81 
8? 
83 

84  000000 

85  000000 

86  000002 

87  000004 
88 

89 

90 

91 

92 

93 

94 

95 

96  000006 

97 

98  000010 

99 
100 
101 
102 

103  000012 

104  000014 

105  000016 

106  00002C 
107 

108  000022 

109 

110 

111 

112  000024 

113 

114 

115 

116  000026 

117 

118 

119  000026 

120  000030 


ooooor 

OOOOOOG 
000005' 


00000 : ■ 

000034' 


000013' 
000015' 
000017' 
000030' 

000170' 


000310' 


AUXILARY  PROCESS  DISPATCH  TABLE 


SAUXTB: 


SMDCIN: 


DUMMY: 
CC8RET: 


.UORD 

.+1 

.WORD 

SBFRTN 

.WORD 

.  +  1 

.IF  DF 

X$$MDC 

.WORD 

MDMCTL 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

MDMSCN 

.ENDC 

.IFF 

.WORD 

.  +  1 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.ENDC 

.WORD 

.♦1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

CC8RET 

.IF  DF 

P$$RFL 

.WORD 

PWRFL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.WORD 

NMCMP 

TRANSMIT  ENABLE  (NOP) 
RECEIVE  ENABLE 
KILLIO  (NOP) 

MODEM  CONTROL  CONTROL  ROUTINE 

PERFORM  POWERFAIL  RECOVERY 

TIMEOUT  ENTERS  SCAN  ROUTINE 

CONTROL  ENABLE  (NOP) 
PERFORM  POWERFAIL  RECOVERY 
TIMEOUT  (NOP) 

TRANSMIT  COMPLETE  (NOP) 

RECEIVE  COMPLETE  (NOP) 

KILL  COMPLETE  (NOP) 

CONTROL  COMPLETE  -  RELEASE  CCB 

POWERFAIL  DISPATCH  TO  DDM  MODULES 

POWERFAIL  DISPATCH  TO  DDM  MODULES  (NOP) 

NETWORK  MANAGEMENT  COUNTER  COMPLETION 


.IF  NDF  XSSMDC  S  RSSIID  i   I$$AS 

'.ENDC 

RETURN 

CALLR   aCCBRT 


~1 
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H  1 


H2 

U3 

H', 

1A5 

U6 

U7 

K8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

'90 

191 

192 

193 

194 

195 

196 

197 

198 


.SSTTL  $CNV18  -  CONVERT  TO  18-BJT  UNIBUS  ADDRESS 


**-$CNVl8-C0NVERT  TO  18-BIT  UNIBUS  ADDRESS 
»*-$CNV22-C0NVERT  TO  22-BIT  QBUS-22  ADDRESS 

THIS  SUBROUTINE  IS  CALLED  TO  CONVERT  AN  ADDRESS  DOUBLEUORD 
TO  AN  18-BIT  UNIBUS  VIRTUAL  ADDRESS.  NOTE  THAT  THE  SUBROUTINE 
TO  CONVERT  TO  A  QBUS-22  ADDRESS  IS  THE  SAME  (AT  THE  MOMENT). 


INPUTS: 


R2 
R3 


VIRTUAL  ADDRESS 

RELOCATION  BIAS  (PHYSICAL  ADDRESS/100> 


OUTPUTS: 


R2  -  LOU  ORDER  16  BITS  OF  UNIBUS  ADDRESS 

R3  -  BITS  16  £  17  OF  UNIBUS  ADDRESS  IN  BITS  0  8  1 


000114 


$CNV22:: 


.ENABL  LS8 


000114 

000114  005/03 

000116  001414 


000120  066703  OOOOOOG 

000124  010246 

000126 

000126  042716     160000 

0001^2  005002 

000134  073227     000006 


$CNV18: 


5$: 


.IF 

DF,K$$DAS 

MOV 

R2,-(SP) 

TST 

R3 

BNE 

5$ 

MOV 

R2,R3 

CLR 

R2 

ASHC 

#3,R2 

ASL 

R2 

ADD 

*KDSAR0,R2 

MOV 

(R2),R3 

BR 

5$ 

.ENDC 

;  DF,K$$DAS 

TST 

R3 

BEQ 

10$ 

ADD 

$PUMR,R3 

MOV 

R2,-(SP) 

BIC 

#160000, (SP) 

CLR 

R2 

.IF  DF 

R$$E1S 

ASHC 

#6,R2 

.IFF 

;  DF  R$$EIS 

;  Reference  label 

Save  virtual  address 

Buffer  from  exec,  or  common  pool? 

If  NE,  from  common  pool  -  use  bias  supplied 

Get  virtual  in  required  register 

Set  up  for  Left  shift 

Shift  active  page  field  from  virtual 

Make  it  a  word  index 

Calculate  D-space  APR  address 

Get  contents  of  APR 

Join  common  code 

Reference  label 

Buffer  from  exec,  or  comm  pool? 

If  EQ,  it's  from  exec 

(in  the  low  16  or  20  K) 

Exec  phys  addr  =  virtual  addr  =  unibus  addr) 

Add  starting  UMR  bias  to  block  address 

Save  virtual 

Clear  APR  selector  from  virtual  address 
Initialize  18  bit  value 

ALIGN  AS  AN  18  BIT  QUANTITY 


000140  060316 


.REPT 
ASL 
ROL 
.ENDR 

^3 
R2 

;  SHIFT  LOW  ORDER  BITS 

INTO  HIGH  ORDER  2  BITS  FOR  18-BIT  VALUE 

.ENDC 

;  DF  R$$EIS 

ADD 

R3,(SP) 

;  ADD  LOW  16  BITS  TO  SAVED  OFFSET  IN  BLOCK 

1   1 


CESUB1 

CREATED  BY 

MACRO  ON  28 

-JUN-85  AT 

18:21 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CS.LST 

- 

040000 

6-92 

6-95 

7-130 

C.STS 

000012 

*6-92 

*6-95 

7-130 

IS$AS 

r 

****** 

5-64 

KISAR5 

- 

**t***   GX 

9-245 

.9-246 

10-294 

K1SAR6 

= 

******  GX 

•12-390 

.12-411 

K$$DAS 

= 

****** 

8-164 

11-323 

11-324 

M$$PRO 

- 

****** 

16-515 

OFS 

r 

000006 

#11-323 

11-350 

.11-351 

R$$E1S 

- 

000001 

#4-2 

5-1 

5-2 

RtSIlD 

= 

****** 

5-64 

R$$11M 

r 

000000 

5-64 

R$$11S 

- 

****** 

5-64 

X$$MCB 

- 

****** 

5-64 

5-64 

ZF.COU 

~ 

001000 

#5-64 

ZF.DDM 

~ 

000001 

#5-64 

ZF.DIA 

r 

004000 

#5-64 

ZF.DLC 

= 

000002 

#5-64 

ZF.DVP 

= 

100000 

#5-64 

ZF.INI 

- 

040000 

#5-64 

ZF.KMX 

~ 

000020 

#5-64 

ZF.LLC 

- 

000004 

#5-64 

ZF.LMC 

= 

000100 

#5-64 

ZF.MAN 

= 

020000 

#5-64 

ZF.MFL 

= 

000010 

#5-64 

ZF.MTM 

- 

000400 

#5-64 

ZF.MUX 

= 

000040 

#5-64 

ZF.PSE 

- 

002000 

#5-64 

ZF.SLI 

= 

010000 

#5-64 

ZF.TIM 

- 

000200 

#5-64 

ZF.X3P 

- 

000000 

#5-64 

ZS.ASN 

= 

100000 

#5-64 

ZS.BSY 

- 

140000 

#5-64 

Z.AVL 

000014 

#5-64 

Z.DAT 

000016 

#5-64 

Z.DSP 

000000 

#5-64 

5-64 

Z.FLG 

000010 

#5-64 

Z.LEN 

:: 

000016 

#5-64 

Z.LLN 

000006 

#5-64 

Z.MAP 

000020 

#5-64 

Z.NAM 

000004 

#5-64 

11-338 

13-435 

Z.PCB 

000012 

#5-64 

H  2 

PAGE  1 

CREF   04.00 


.10-295 
11-329 

8-186 


.10-303 
11-343 

12-398 


11-327 
11-357 

14-470 


.11-341 


15-501 


.11-361 


Z.SCH 

SCALLX 

SCEACC 

SCECAC 

SCEDIV 

SCEMUL 

SCMPDi' 

ICMQIN 

$CMQRM 

$CNV18 

$CNV22 


000007 

000272  RG 

000400  RG 

000406  RG 

000542  RG 

000536  RG 

».♦*♦*  GX 

000000  RG 
000044  RG 
000114  RG 
000114  RG 


#5-64 
#11-326 
#12-390 
#12-391 
#15-501 
#14-470 
11-326 
#6-90 
#7-125 
#8-176 
#8-165 


.11-349 


.11-362 


I  2 


H  3 
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MACRO  CROSS  REFERENCE  CREF   04.00 


6-122 


MACRO  NAME 

REFERENCES 

CALL 

5-92 

6-120 

CCBDFS 

#4-55 

4-56 

ENABLS 

#A-54 

INHIBS 

#4-54 

MTPS 

5-87 

5-93 

PDVDFS 

#4-55 

4-58 

RESRG 

#4-54 

RETURN 

5-101 

6-123 

SAVRG 

#4-54 

SLTDFS 

#4-55 

4-57 

I  3 


CEXCM     CREATED  BY  MACRO  ON  28-JUN-85  AT  18:21 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


H  4 

PAGE  3 

CREF   04.00 


CCBDFS 

#4-54 

4-56 

N<RDF$ 

#4-54 

4-57 

OPTDFS 

#4-54 

4-58 

S¥NDF$ 

#4-64 

4-66 

I  4 


STCRC   MACRO  V05.03b  Friday  28-Jun-85  18:21 
STCR2  -  CALCULATE  CRC 


353 

334 

335 

336 

337 

338 

339 

3A0 

3A1 

342 

343 

344 

345 

346 

347 

348 

349 

350  000172 

351 

352 

353 

354 

355 

356 

357 

358 

359 
360 
361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376  000172  112205 

377 

378 

379 

380 

381 

382 

383 

384 

385  000206     0165.5     000256' 

386 

387 

388 

389 
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H     5 


000174  074105 

000176  010504 

000200  042705     177760 

000204  006305 


80$: 

MOV 

MOV 

-2(R5),R1 
#KGLD8C,(R4) 

90$: 

TSTB 
BPL 

(R4) 
90$ 

MOV 
MOV 

(SP)+,(R5) 
(SP)+,(R4) 

.IFF 

;  K$$G11 

.IF  NDF 

R$$EIS 

SAVR6 

<R3> 

.ENDC 

5$: 

.IF  DF 

F$$AST 

10$: 

MOVB 

(R2)+,R5 

XOR 
BIC 
ASL 

R1,R5 

#''C<377>,R5 

R5 

.IF  DF 

M$$MGE 

MOV 

CTABL(R5),R5 

.IFF 

ADD 
MOV 

PC,R5 
CTA8L-.(R5),R5  ; 

.ENDC 

CLR8 
SUAB 
XOR 

R1 
Rl 
R5,R1         ; 

.IFF 

;  DF  Ft$AST 

10$: 

MOVB 

(R2)+,R5 

XOR 
MOV 
BIC 
ASL 

R1,R5 
R5,R4 

*»C<17>,R5 
R5 

.IF  DF 

M$$MGE 

MOV 

CrABL(R5),R5 

.IFF 

ADD 

PC,R5         ; 

GET  NEW  CRC  FROM  KG-11 
SET  UP  TO  RELOAD  OLD  BCC 

WAIT  FOR  COMPLETION 


RESTORE  OLD  BCC 
AND  OLD  CSR  STATUS 


SAVE  AN  EXTRA  REGISTER 


GET  NEXl  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
ISOLATE  USEFUL  BYTE 
FORM  WORD  ADDRESS 


GET  MODIFIER  WORD  FROM  TABLE 


FORM  PIC  ADDRESS 

bET  MODIFIER  WORD  FROM  TABLE 


CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


GET  NEXT  BYTE  FROM  DATA  BLOCK 

EXCLUSIVE  'OR'  BYTE  WITH  OLD  CRC 
SAVE  A  COPY  OF  THE  RESULT 
EXTRACT  LOW  4  BITS 
FORM  WORD  ADDRESS 


GET  FIRST  MODIFIER  WORD 


FORM  PIC  ADDRESS 


I  5 


**F1LE**ID**STCRCF 


H     6 


ssssssss 

TTT 

ITTTTTT 

cccccccc 

RRRRRRRR 

CCCCCCCC   F 

FFFFFFFFF 

ssssssss 

TTTTTTT 

TTT 

cccccccc 

RRRRRRRR 

cccccccc   F 

FFFFFFFFF 

ss 

RR      RR 

ss 

RR      RR 

ss 

RR      RR 

ss 

RR      RR 

SSSS5S 

RRRRRRRR 

FFFFFFF 

SSSSSS 

RRRRRRRR 

FFFFFFF 

SS 

RR  RR 

ss 

RR  RR 

ss 

RR    RR 

ss 

RR    RR 

ssssssss 

cccccccc 

RR      RR 

CCCCCCCC   F 

ssssssss 

cccccccc 

RR      RR 

cccccccc   F 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

SSSSSS 

SSSSSS 

SS 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

I.LLLLLLLLL 

ssssssss 

STCRCF 

MACRO  V05.03b  Friday  28-Jun-85 

18:22 

Page  11-2 

STCR2  - 

CALCULATE  CRC 

390 

MOV 

391 

392 

.ENDC 

393 

39A 

BIC 

395 

ASR 

396 

ASR 

397 

ASR 

398 

399 

.IF  DF 

AOO 

401 

MOV 

A02 

'03 

.IFF 

404 

405 

ADD 

406 

MOV 

407 

408 

.ENDC 

409 

410 

XOR 

411 

CLR8 

412 

SWAB 

413 

XOR 

414 

415 

.ENDC 

416 

417 

000216 

005300 

DEC 

418 

000220 

003364 

BGT 

419 

000222 

20$: 

420 

.IF  NDF 

421 

422 

RESRG 

423 

424 

.ENDC 

425 

426 

.ENDC 

427 

428 

000222 

RESRG 

429 

000232 

RETURN 

H  7 


CTABL-.(R5),R5  ;  GET  FIRST  MODIFIER  WORD 


#»C<360>,R4 

R4 

R4 

R4 


NOW  EXTRACT  HIGH  4  BITS 
FORM  WORD  OFFSET 


CTA6L+32.(R4),R4;  GET  SECOND  MODIFIER  WORD 


PC,R4         ;  FORM  PIC  ADDRESS 
CTABL+32.-.(R4),R4  ;  GET  SECOND  MODIFIER  WORD 


R4,R5 
Rl 
R1 
R5,fi1 


RO 
10$ 


<R3> 


EXCLUSIVE  'OR'  MODIFIER  WORDS 
CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


ANY  MORE  TO  GO? 
IF  GT,  YES 


<R5,R4,R2,R0> 


I  7 


_J 


H  8 

STCRCK  MACRO  V05.03b  Friday  28-Jun-85  18:22 
Table  ot  contents 

MACRO  DEFIMITIONS 

DEFINE  KG-n  REGISTERS  ANP  BITS 

EXECUTIVE  VECTOR  TABLE 

SCLCRC  -  CALCULATE  CRC-16  ON  A  TRANSMIT  CHAIN 

SSTCRC  -  CALCULATE  CRC  ON  BLOCK  OF  DATA 

STCR2  -  CALCULATE  CRC 


fi- 

6^ 

/- 

90 

H- 

101 

9- 

109 

10- 

21S 

11- 

2/6 

H  9 

STCRC<  MACRO  V05.05b  Friday  28-Jun-85  18:22  Page  12 
STCR2  -  CALCULATE  CRC 

431  .IF  NDF  K$$G11 

1,11  .SBTTL  MODIFIER  TABLE  FOR  SOFTWARE  CRC 

435 

436  CTA8L:   .WORD   0  .-FIRST  HALF  OF  TABLE 

437  ""  """ 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
',79 
480 
481 
482 
483 
484 
485 
486 
487 


CTA8L:   .WORD 

0 

.WORD 

140301 

.WORD 

140601 

.WORD 

500 

.WORD 

141401 

.WORD 

1700 

.WORD 

1200 

.WORD 

unci 

.WORD 

143001 

.WORD 

3300 

.WORD 

3600 

.WORD 

143501 

.WORD 

2400 

.WORD 

142701 

.WORD 

142201 

.WORD 

2100 

.IF  DF 

F$$AST 

.WORD 

146001 

.WORD 

6300 

.WORD 

6600 

.WORD 

146501 

.WORD 

7400 

.WORD 

14770- 

.WORD 

14720 

.WORD 

7100 

.WORD 

5000 

.WORD 

145301 

.WORD 

145601 

.WORD 

5500 

.WORD 

144401 

.WORD 

4700 

.WORD 

4200 

.WORD 

144101 

.WORD 

154001 

.WORD 

'4300 

.WORD 

4600 

.WORD 

154501 

.WORD 

15400 

.WORD 

155701 

.WORD 

155201 

.WORD 

15100 

.WORD 

17000 

.WORD 

157501 

.WORD 

157601 

.WORD 

17500 

.WORD 

156401 

.WORD 

•6700 

.WORD 

•6200 

.WORD 

156101 

.WORD 

12000 

n 
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H  10 


5-       56 


Macro  definitions 
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1 
2 
5 

5 
6 
7 
8 
9 

10 
11 
\2 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
AO 


.TITLE   AXDAT  -  AUXILLIARY  PROCESS  DATA 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION, 


MAYNARD,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
IT";  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BV  DEC. 

MODULE  DESCRIPTION 

AUX  GLOBAL  DATA  AREA 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  15-0CT-84 

MODULE  CREATION 

5.00  22-JUL-85 

DECnet-IIM/S  ^1.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF 
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AUXILARY  PROCESS  DISPATCH  TABLE 


80 

81 

82 

83 

8^  000000 

85  000000 

000001 ' 

86  000002 

OOOOOOG 

87  000004 

000005' 

88 

89 

90 

91 

92 

93 

9A 

95 

96  000006 

000007' 

97 

98 

99 

100  000010 

000026' 

101 

102 

103  000012 

000013' 

104  000014 

000015' 

105  000016 

000017' 

106  000020 

000030' 

107 

108 

109 

110  000022 

0OC026' 

111 

112  000024 

000040' 

113 

114 

115 

116  000026 

117 

118 

119  000026 

120  000030 

SAUXTS: 


DUMMY : 
CCBRET: 


.WORD 

.  +  1 

.WORD 

SBFRTN 

.WORD 

.+1 

.IF  DF 

X$$MDC 

.WORD 

MDMCTL 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

MDMSCN 

.ENDC 

.IFF 

.WORD 

.+1 

.IF  DF 

P$$fiFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.ENDC 

.WORD 

.+1 

.WORD 

.t1 

.WORD 

.+1 

.WORD 

CCBRET 

.IF  DF 

PSSfiFL 

.WORD 

PWRFL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.WORD 

NMCMP 

TRANSMIT  ENABLE  (NOP) 
RECEIVE  ENABLE 
KILLIO  (NOP) 

MODEM  CONTROL  CONTROL  ROUTINE 

PERFORM  POWERFAIL  RECOVERY 

TIMEOUT  ENTERS  SCAN  ROUTINE 

CONTROL  ENABLE  (NOP) 
PERFORM  POWERFAIL  RECOVERY 
TIMEOUT  (NOP) 

TRANSMIT  COMPLETE  (NOP) 

RECEIVE  COMPLETE  (NOP) 

KILL  COMPLETE  (NOP) 

CONTROL  COMPLETE  -  RELEASE  CCB 

POWERFAIL  DISPATCH  TO  DDM  MODULES 

POWERFAIL  DISPATCH  TO  DDM  MODULES  (NOP) 

NETWORK  MANAGEMENT  COUNTER  COMPLETION 


SMDCIN:: 


.IF  NDF  X$$MDC  &   R$$11D  &   I$$AS 


.ENDC 


RETURN 
CALLR 


aCCBRT 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ASCMP 

r  *»»**«   GX 

8-168 

CB.CCB 

=  000002 

10-306 

CCBRET 

000030  R 

7-106 

#7-120 

CCBRT 

=  «»**»»  GX 

7-120 

10-308 

CE.DIS 

=  100366 

8-167 

CS.LST 

=  OAOOOO 

10-303 

C.AOD 

000034 

10-270 

c.e:o 

000003 

10-306 

C.L:;^2 

000030 

10-274 

10-286 

C.ST. 

000012 

*10-303 

DDFNC 

=  ♦*♦»»»  GX 

9-228 

DUMMY 

000026  R 

#7-119 

EXRQN 

=  «♦♦♦»*  GX 

10-304 

IISAS 

=  ****** 

5-1 

7-115 

KMCL 

000302  R 

9-237 

#9-249 

LF.ACT 

=  100000 

#6-77 

8-154 

LF.BRO 

=  000400 

#6-77 

10-277 

LF.BWT 

=  000007 

#6-77 

LF.ENA 

=  002000 

#6-77 

LF.LPB 

=  001000 

#6-77 

LF.MDC 

=  000100 

#6-77 

LF.MFL 

=  004000 

#6-77 

LF.MTP 

=  000020 

#6-77 

10-279 

LF.PAC 

=  000200 

#6-77 

LF.RDY 

=  040000 

#6-77 

LF.REA 

=  010000 

#6-77 

LF.SER 

=  000040 

#6-77 

10-281 

LF.TIM 

=  000010 

#6-77 

LF.UNL 

=  020000 

#6-77 

LF.X2P 

=  000000 

#6-77 

LN.CLO 

=  000000 

#6-77 

LN.DUM 

=  000005 

#6-77 

LN.LOA 

=  000004 

#6-77 

LN.LOO 

=  000003 

#6-77 

LN.OAU 

=  000003 

#6-77 

LN.OFF 

=  000001 

#6-77 

LN.ON 

=  000000 

#6-77 

LN.OOP 

=  000004 

#6-77 

LN.OPE 

=  0000C1 

#6-77 

LN.REF 

=  000002 

#6-77 

LN.SER 

=  000002 

#6-77 

LN.STA 

=  000017 

#6-77 

LN.SUB 

=  000360 

#6-77 

LN.TRI 

=  000006 

#6-77 

L.COST 

000015 

#6-77 

L.CTL 

000012 

#6-77 

L.CVA 

177776 

#6-77 

L.DDM 

000002 

#6-77 

9-227 

L.DDS 

000004 

#6-77 

9-226 

L.DLC 

000003 

#6-77 

L.DLM 

000006 

#6-77 

L.DlS 

000010 

#6-77 

9-235 


9-248 


J 
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25A 

255 

256 

257 

258 

25Q 

260 

261 

262 

263 

264 

265 

266 

267  00005A 

268 

269  OOOO'iO 

270  000042 

271  000046 

272  000050 
273 

274  000052 

275  000056 

276  000060 

277  000064 

278  000072 

279  000074 

280  000102 

281  000104 

282  000112 

283  000114 

284  000116 

285  000120 

286  000124 

287  000130 

288  000132 

289  000136 

290  000142 

291  000146 
292 

293  000150 

294  000154 

295  000160 
296 

297  000162 

298  000166 

299  000170 

300  000174 
30-;  000176 

302  000200 

303  000202 

304  000210 
305 

306  C00214 

307  000222 

308  000224 

309  000230 

310  000232 


.SBTTL  NETWORK  MANAGEMENT  COUNTER  COMPLETION 

h 

♦♦-NMCMP-NETWORK  MANAGEMENT  COUNTER  COMPLETION 

THIS  ROUTINE  IS  ENTERED  WHEN  A  NETWORK  MANAGEMENT  REQUEST  FOR  COUNTERS 

HAS  BEEN  COMPLETED  BY  A  LOWER  LEVEL  PROCESS. 

THE  ROUTINE  ALSO  REQUESTS/UNSTOPS  NETACP  TO  PROCESS 

REQUESTS  FOR  LINE  WATCHER 


054134 

010403 
062703 
005713 
001041 

116403 
006303 
067703 
032773 
001026 
032773 
001005 
032773 
001416 
000437 
011303 
062703 
116401 
001404 
062703 

032713 
001022 


012703  000034' 
103415 


003310 
000034 

000030 

OOOOOOG 
000400  000000 

000020  000000 

000040  000000 

000022 
000031 

000004 

000001 


INPUTS^ 

NETACP: 
NMCMP: 


R4  =  ADDRESS  OF  COUNTER  CC8 


017703 
010413 
010477 
010403 
011404 
001373 
052763 


122764 

001002 


OOOOOOG 
OOOOOOG 

040000  000012 
000002  000003 


5$: 

10$: 
20$: 


30$: 
40$: 


50$: 

60$: 
70$: 


.RAD50  /NETACP/ 


MOV 
ADD 
TST 
BNE 

MOVB 

ASL 

ADD 

BIT 

BNE 

BIT 

BNE 

BIT 

BEQ 

BR 

MOV 

ADD 

MOVB 

BEQ 

ADD 

SOB 

BIT 

BNE 

MOV 

CALL 

BCS 

MOV 
MOV 
MOV 
MOV 
MOV 
BNE 
BIS 
CALLR 

CMPB 

BNE 

CALLR 

SAVRG 

CALL 


R4,R3 
*C.ADD,R3 
(R3) 
40$ 

C.CNT2(R4),R3 

R3 

aSLTMA,R3 

#LF.8R0,a(R3) 

30$ 

#LF.MTP,a(R3) 

5$ 

#LF.SER,a(R3) 

30$ 

60$ 

(R3),R3 

*L.LEN,R3 

C.CNT2t1(R4),Rl 

20$ 

#S.LEN,R3 

R1,10$ 

#SF.SER,(R3) 

60$ 

#NETACP,R3 

aSRSTD 

60$ 


Copy  the  ccb  address 
Point  to  the  task  name 
Is  It  for  NETACP  ? 
If  NE,  no 

Copy  SLN 

Form  word  index 

Point  to  Line  table  address 

Is  it  a  broadcast  channel? 

If  NE,  yes  -  EPM  already  filtered  it. 

Is  it  multipoint? 

If  NE,  yes  -  check  station  table 

Is  seruice  disabled  ? 

If  EQ,  no  -  allow  request 

Else,  toss  the  request 

Get  to  the  end  of  the  line  table 

Get  the  station  number 

Move  to  the  correct  station  table 

Is  service  disabled  ? 

If  NE,  yes  -  toss  the  request 

Else  start  up  NETACP 
Scan  STD  for  task's  TCB 
If  CS,  not  there  I  1 


aNMCL2,R3  ;  Get  address  of  net  man  listhead 

R4,(R3)  ;  Add  CCB  to  end  of  head  pointer 

R4,aNMCL2  ;  Update  the  tail  pointer 

R4,R3  ;  Copy  possible  'last'  buffer  address 

(R4),R4  ;  Else,  aet  to  the  end  of  this  chain 

50$  ;  If  NE,  get  next  buffer 

*CS.LST,C.STS(R3)  ;  Else,  set  end  of  chain  flag 

aEXRQN  ;  Request  the  task  (unstop  or  request) 


#C8.CCB,C.BID(R4) 

70$ 

aCCBRT 

<(R4)> 

aRDBRT 


;  Is  it  a  CCB  ? 

If  NE,  no 

Return  the  CCB 

Save  the  next  in  the  chain 

Return  this  one 


"~l 


J 
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122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 

136  000034 

137  OOOOAO 

138  0000A2 

139  0000A4 
UO 

HI 
U2 
143 
144 
145 
146 
147 

148  000046 

149  000050 

150  000054 
151 

152 
153 

154  000056 

155  000062 

156  000064 

157  000066 

158  000072 

159  000074 

160  000100 

161  000102 

162  000104 

163  000106 

164  000114 

165  000116 

166  000122 

167  000124 

168  000130 

169  000134 

170  000136 

171  000142 

172  000150 

173  000152 

174  000156 

175  000162 

176  000164 
177 

178 


017701 
003451 
005301 
010103 


.If  OF 
.S8TTL 


P$$RFL 

POWERFAIL  RECOVERV  ROUTINE 


••-PWFAIL-POWERFAIL  RECOVERY  ROUTINE 

THIS  ROUTINE  IS  INVOKED  ONCE  PER  SECOND  BY  THE  TIMER  SERVICE 
CODE.  IF  THE  POWERFAIL  RECOVERY  FLAG  IS  SET,  WE  WILL  SCAN  THE 
SYSTEM  LINE  TABLE  FOR  'ACTIVE'  LINES  (I.E.  LINES  iJHICH  HAVE 
BOTH  DLC  AND  ODM  PROCESSES  LOADED)  AND  ASYNCHRONOUSLY  QUEUE 
A  CONTROL  COMPLETION  TO  THE  LLC  LEVEL  INDICATING  T"AT  THE 
LINK  HAS  BEEN  DISCONNECTED. 


OOOOOOG 


PWFAIL: 


006301 
067701 
011101 


032711 
001435 
005002 
105761 
001413 
116702 
006302 
006302 
060102 
132762 
001410 
016702 
150302 
012703 

103413 
105267 
12676^ 
103731 
005067 
005377 
001324 


OOOOOOG 

100000 

000014 
000067 

000200  000022 

000044 

100366 


000025 

000021  000014 

000010 
OOOOOOG 


10$: 

15$: 

20$: 
100$: 


MOV 
BLE 
DEC 
MOV 


aPWRF1,R1 
100$ 
R1 
R1,R3 


ilOV 
MOV 

.IFF 

ASL 
ADD 
MOV 

.ENDC 

BIT 

BEQ 

CLR 

TST8 

BEQ 

M0V8 

ASL 

ASL 

ADD 

BITS 

BEQ 

MOV 

BISB 

MOV 

CALL 

BCS 

INCB 

CMPB 

BLO 

CLR 

DEC 

ONE 


.IF  DF  N$$1LN 


aSLTMA.RI 
(R1),R1 


R1 

aSLTMA.RI 

(R1),R1 


#LF.ACT,(R1) 

20$ 

R2 

L.NSTA(Rl) 

10$ 

TRI8+1,R2 

R2 

R2 

R1,R2         , 

#SF.ACT,L.MPF(R2) 

15$ 

TRI8,R2 

R3,rJ 

#CE.DIS,R3 

aASCMP 


GET  #  OF  LINES  REMAINING  TO  BE  POUERFAILED 
IF  NONE  ...  NO  RECOVERY  UNDERWAY 
CONVERT  TO  SYSTEM  LINE  # 
SAVE  FOR  LATER  CALL  TO  $ASCMP 


GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  MAPPING  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


IS  THIS  LINE  'ACTIVE'? 

NO  ...  NO  RECOVERY  REQUIRED 

ASSUME  LINE  IS  NOT  MULTIPOINT 

IS  THIS  LINE  MULTIPOINT? 

IF  EQ,  NO 

GET  TRIBUTARY  NUMBER  TO  CHECK 

FORM  DOUBLE  WORJ  OFFSET 


100$ 

TRIBtl 

TRI8+1, 

PWFAIL 

TRIB 

aPWRFI 

PWFAIL 


POINT  INTO  SYSTEM  LINE  TABLE 
;  IS  THE  TRIBUTARY  ACTIVE? 
NO  ...  NO  RECOVERY  REQUIRED 
YES  ...  GET  TRIBUTARY  ADDRESS 
SET  SYSTEM  LINE  NUMBER 
YES  ...  SET  UP  ERROR  CODE 
PERFORM  ASYNCHRONOUS  COMPLETION 
TRY  LATER  ON  RESOURCE  ALLOCATION  FAILURE 
,  UPDATE  TRIBUTARY  ADDRESS 
NSTA(RI)  ;  HAVE  WE  CHECKED  ALL  TRIBUTARIES  ON  THIS  LINE? 
IF  LO,  NO 

RESET  TRIBUTARY  ADDRESS 
ONE  LESS  LINE  TO  RECOVER 
LOOP  TILL  ALL  DONE 


.IF  DF  X$$MDC 
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I     1 


199  000U2 

200  OOOKA 

201  000U6 

202  000150 
203 


C05502 
010203 
012602 


10$: 


ADC 

R2 

MOV 

R2,R3 

MOV 

(SP)  + 

RETURN 

.DSABL 

LS8 

,R2 


ADD  OVERFLOW  TO  BITS  16  8  17 
GET  HIGH  ORDER  BITS  INTO  R3 
AND  LOW  ORDER  BITS  INTO  R2 
RETURN 


J  1 


n 
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SYMBOL 

VALUE 

REFERENCES 

SMVFBF 

000216 

RG 

#10-293 

$MVTBF 

000152 

RG 

*9-244 

SPDVID 

000460 

RG 

#13-430 

SPDVNM 

~      ****** 

GX 

13-432 

$PDVTA 

=      ****** 

GX 

11-335 

tPUMR 

r     ****** 

GX 

8-181 

SXBIAS 

-     ****** 

GX 

12-390 

J    ? 


•*F1LE»*ID«*CEXCM 
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cccccccc 

EEEEEEEEEE 

XX      XX 

cccccccc 

MM     MM 

cccccccc 

EEEEEEEEEE 

XX      XX 

cccccccc 

MM      MM 

EE 

XX      XX 

cc 

MMMM  MMMM 

EE 

XX      XX 

cc 

MMMM  MMMM 

EE 

XX  XX 

cc 

MM  MM  MM 

EE 

XX  XX 

cc 

MM  MM  MM 

EEEEEEEE 

XX 

cc 

MM      MM 

EEEEEEEE 

XX 

cc 

MM      MM 

EE 

XX  XX 

cc 

MM      MM 

EE 

XX  XX 

cc 

MM      MM 

EE 

XX      XX 

cc 

MM      MM 

EE 

XX      XX 

cc 

MM      MM 

cccccccc 

EEEEEEEEEE 

XX      XX 

cccccccc 

MM      MM 

cccccccc 

EEEEEEEEEE 

XX      XX 

cccccccc 

MM      MM 

LL 

SSSSSSSS 

TTTTl 

TTTTT 

LL 

SSSSSSSS 

TTTT 

TTTTT 

_L 

SS 

T 

LL 

SS 

! 

-L 

SS 

n 

_L 

SS 

tj 

LL 

SSSSSS 

T 

LL 

SSSSSS 

I 

LL 

SS 

r 

LL 

SS 

■■• 

LL 

SS 

" 

LL 

SS 

rr 

LLLLLLLLLL 

SSSSSSSS 

T 

LLLLLLLLLL 

SSSSSSSS 

rr 
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**FILE**iD»»STCRC 


I      I* 


ssssssss 

TTTTTTTTTT 

CCCCCCCC 

RRRRRRRR 

CCCCCCCC 

ssssssss 

TTTTTTT 

TTT 

CCCCCCCC 

RRRRRRRR 

CCCCCCCC 

ss 

TT 

CC 

RR      RR 

ss 

T 

CC 

RR      RR 

ss 

f 

cc 

RR      RR 

ss 

TT 

RR      RR 

5SSSSS 

TT 

RRRRRRRR 

ssssss 

TT 

RRRRRRRR 

ss 

TT 

RR  RR 

ss 

TT 

RR  RR 

ss 

TT 

RR    RR 

ss 

TT 

RR    RR 

ssssssss 

TT 

CCCCCCCC 

RR      RR 

CCCCCCCC 

ssssssss 

TT 

CCCCCCCC 

RR      RR 

CCCCCCCC 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

SS 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

II      r 


J 


04270A  177417 
006204 
006204 
006204 
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390 
391 

392 
393 

394  000212 

395  000216 

396  000220 

397  000222 
398 
399 
400 

401  000224  016404  000316' 
402 
403 
404 
405 
406 
407 

408  .ENDC 

409 

410  000230 

411  000232 

412  000234 

413  000236 
414 
415 
416 

417  000240 

418  000242  - 

419  000244  20$: 
420 
421 
422 
423 
4?4 
",25 
426 
427 

428  000244 

429  000254 


074405 
105001 
000301 
074501 


005300 
003353 
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MOV     CTA8L-.(R5),R5  ,  GET  FIRST  MODIFIER  WORD 
.ENDC 


NOW  EXTRACT  HIGH  4  BITS 
FORM  WORD  OFFSET 


BIC  #*C<360>,R4 

ASR  R4 

ASR  R4 

ASR  R4 

.IF  DF  M$$MGE 

MOV  CTA8Lt32.(R4),R4;  GET  SECOND  MODIFIER  WORD 

.IFF 

ADD  PC,R4  ;  FORM  PIC  ADDRESS 

MOV  CTABLt32.-.(R4),R4  ;  GET  SECOND  MODIFIER  WORD 


EXCLUSIVE  "OR'  MODIFIER  WORDS 
CLEAR  LOW  BYTE  OF  OLD  CRC 
NOW  WORK  ON  UPPER  BYTE 
PRODUCE  UPDATED  CRC 


XOR 
CLRB 
SWAB 
XOR 

R4,R5 
R1 
R1 
R5,R1 

.ENDC 

DEC 
BGT 

RO 
10$ 

.IF  NDF 

R$$EIS 

RESRG 

<R3> 

.ENDC 

.ENDC 

RESRG 
RETURN 

<R5,R4,R2,R0> 

ANY  MORE  TO  GO? 
IF  GT,  YES 
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DEFINE  <G-11  REGISTERS  AND  BITS 

EXECUTIVE  VECTOR  TABLE 

SCLCRC  -  CALCULATE  CRC-16  ON  A  TRANSMIT  CHAIN 

SSTCRC  -  CALCULATE  CRC  ON  BLOCK  OF  DATA 

STCR2  -  CALCULATE  CRC 

MODIFIER  TABLE  FOR  SOFTWARE  CRC 


6- 

63 

;- 

40 

H- 

101 

9- 

109 

10- 

21S 

11- 

?/<^ 

12- 

l.ii 

J  A 


CTABL: 
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A31 
432 

34 
435 

436  000234  000000 

437  000236  140301 

438  000240  140601 

439  000242  000500 

440  000244  141401 

441  000246  001700 

442  000250  001200 

443  000252  141101 

444  000254  143001 

445  000256  003300 

446  000260  003600 

447  000262  143501 

448  000264  002400 

449  000266  142701 

450  000270  142201 

451  000272  002100 
452 
453 
454 

455  000274  146001 

456  000276  006300 

457  000300  006600 

458  000302  146501 

459  000304  007400 

460  000306  147701 

461  000310  147201 

462  000312  007100 

463  000314  005000 

464  000316  145301 

465  000320  145601 

466  000322  005500 

467  000324  144401 

468  000326  004700 

469  000330  004200 

470  000332  144101 

471  000334  154001 

472  000336  014300 

473  000340  014600 

474  000342  154501 

475  000344  015400 

476  000346  155701 

477  000350  155201 

478  000352  015100 

479  000354  017000 

480  000356  157301 

481  000360  157601 

482  000362  017500 

483  000364  156401 

484  000366  016700 

485  000370  016200 

486  000372  156101 

487  000374  012000 
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.IF  NDF  K$$G11 

.S8TTL  MODIFIER  TABLE  FOR  SOFTWARE  CRC 

;F1RST  HALF  OF  TABLE 


.WORD 

0 

.WORD 

140301 

.WORD 

140601 

.WORD 

500 

.WORD 

14- 401 

.WORD 

•700 

.WORD 

•200 

.WORT. 

14' 101 

.WORD 

143001 

.WO^^D 

3300 

.WORD 

3600 

.WORD 

143501 

.WORD 

2400 

.WORD 

142701 

.WORD 

142201 

.WORD 

2100 

.IF  DF 

F$$AST 

.WORD 

146001 

.WORD 

6300 

.WORD 

6600 

.WORD 

146501 

.WORD 

7400 

.WORD 

147701 

.WORD 

147201 

.WORD 

7100 

.WORD 

5000 

.WORD 

145301 

.WORD 

145601 

.WORD 

5500 

.WORD 

144401 

.WORD 

4700 

.WORD 

4200 

.WORD 

144101 

.WORD 

154001 

.WORD 

14300 

.WORD 

14600 

.WORD 

154501 

.WORD 

15400 

.WORD 

155701 

.WORD 

155201 

.WORD 

15100 

.WORD 

17000 

.WORD 

157301 

.WORD 

157601 

.WORD 

17500 

.WORD 

156401 

.WORD 

16700 

.WORD 

16200 

.WORD 

156101 

.WORD 

12000 

.WORD 

157301 

.WORD 

157601 

.WORD 

17500 

.WORD 

156401 

.WORD 

16700 

.WORD 

16200 

.WORD 

156101 

.WORD 

12000 
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1 
2 
3 

5 
6 
7 
8 
9 
10 

n 

12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.IF  DF   K$$G11 

.TITLE  STCRCK 

.IFF 

.IF  DF   F$$AST 

.TITLE   STCRCF 

.IFF 

.TITLE   STCRC 

.ENDC 

.ENDC 

.IDENT  /V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CRC-16  CALCULATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  lO-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-UM  V4.0 
DECNET-IIM-Pt'iS   V2.0 

5.00     22-JUL-85 

DECnet-UM/S  V4.2 
DECn-.-t-11M-Plus   V5.0 


OF 


STCRCK     MACRO  V05.05b  Friday   28-Jun-85   1? 
STr.R2   -   CALCULATE    CRC 

A88 

i,89 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 


22  Page  12-1 

.WORD 

152301 

.WORD 

152601 

.WORD 

12500 

.WORD 

153401 

.WORD 

13700 

.WORD 

13200 

.WORD 

153101 

.WORD 

151001 

.WORD 

11300 

.WORD 

11600 

.WORD 

151501 

.WORD 

10400 

.WORD 

150701 

.WORD 

150201 

.WORD 

10100 

.WORD 

170001 

.WORD 

30300 

.WORD 

30600 

.WORD 

170501 

.WORD 

31400 

.WORD 

171701 

.WORD 

171201 

.WORD 

31100 

.WORD 

33000 

.WORD 

173301 

.WORD 

173601 

.WORD 

33500 

.WORD 

172401 

.WORD 

32700 

.WORD 

32200 

.WORD 

172101 

.WORD 

36000 

.WORD 

176301 

.WORD 

176601 

.WORD 

36500 

.WORD 

177401 

.WORD 

37700 

.WORD 

37200 

.WORD 

177101 

.WORD 

175001 

.WORD 

35300 

.WORD 

35600 

.WORD 

175501 

.WORD 

34400 

.WORD 

174701 

.WORD 

174201 

.WORD 

34100 

.WORD 

24000 

.WORD 

164301 

.WORD 

164601 

.WORD 

24500 

.WORD 

165401 

.WORD 

25700 

.WORD 

25200 

.WORD 

165101 

.WORD 

167001 

.WORD 

27300 

I     9 
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I  10 


1 
2 

4 

5 

6 

7 

8 

9 

10 
11 

1  c 

13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  AX8FR 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION 

AUX  BUFFER  WAIT  COMPLETION  PROCESSOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLJS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


I  11 
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;  Vector  table  to  support  uectored  executive 

JAUXVTri.UORD   0 

;  RSX  executive  symbols 


42 

'^3 

4A 

45  000000 

000000 

46 

47 

48 

49  000002 

OOOOOOG 

50  000004 

OOOOOOG 

51 

52  000006 

OOOOOOG 

53 

54 

55 

56 

57 

58 

59 

60  000010 

OOOOOOG 

61  000012 

OOOOOOG 

62  000014 

OOOOOOG 

65  000016 

64 

65 

66 

67 

68 

69 

70  000016 

000002G 

71 

72  000020 

OOOOOOG 

73  000022 

OOOOOOG 

74  000024 

OOOOOOG 

75  000026 

OOOOOOG 

76  000030 

OOOOOOG 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86  000032 

OOOOOOG 

87  000034 

OOOOOOG 

88  000036 

OOOOOOG 

89  000040 

OOOOOOG 

90  000042 

OOOOOOG 

91  000044 

OOOOOOG 

92  000046 

OOOOOOG 

93  000050 

OOOOOOG 

94  000052 

OOOOOOG 

95  000054 

OOOOOOG 

96  000056 

OOOOOOG 

97  000060 

OOOOOOG 

Start  of  table 


KSAR6: 

:  .WORD 

KISAR6 

ALOCB: 

:  .WORD 

SALOCB 

CLINS: 

:  .WORD 

SCLINS 

.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

CPURM: 

:  .WORD 
.ENDC 
.ENDC 

SCPURM 

DEAC8: 

:  .WORD 

SDEACB 

EXRQF: 

:  .WORD 

SEXRQF 

EXRQN: 

:  .WORD 

SEXRQN 

FMSK2: 

:  .IF  DF 

R$$MPL 

.IF  NDF  R$$PRO 

.WORD 

$FMSK2 

.IFF    ;  NDF  R$$PRO 

.WORD 

$FMASK+2 

.ENDC   ;  NDF  R$$PRO 

.IFF 

;  DF  R$$MPL 

.WORD 

$FMASI<:+2 

.ENDC 

;  DF  R$$HPL 

INTCT 

:  .WORD 

SINTCT 

SRSTD 

:  .WORD 

SSRSTD 

TKPS: 

.WORD 

STKPS 

TSKR7 

:  .WORD 

STSKRT 

UMRPl 

:  .WORD 

SUMRPT 

.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

.1SCTE 

i::.WORD 
.ENDC 
.ENDC 

$1SCT8 

;  C  omn 

nunication 

executive  symbols 

ASCMP 

:  .WORD 

SASCMP 

CCBGT 

:  .WORD 

$CC8GT 

CCBRT 

:  .WORD 

SCCBRT 

CEACC 

:  .WORD 

SCEACC 

CEDIV 

:  .WORD 

SCEDIV 

CMFRK 

:  .WORD 

SCMFRK 

CXOPT 

:  .WORD 

SCXOPT 

DDAST 

:  .WORD 

SDDAST 

DDCCP 

:  .WORD 

SDDCCP 

DDFNC 

:  .WORD 

SDDFNC 

ODMSN 

:  .WORD 

SDDMSN 

DSPTM 

:  .WORD 

SDSPTM 

93 
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122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13^ 

135 

136 

137 

138 

139 

HO 

Ul 

K2 

K3 

U4 

K5 

K6 

1A7 

-48 

K9 

150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

175 

17A 

175 

176 

177 

■  173 


.IF  DF  P$$fiFL 

.SBTTL  POWERFAIL  RECOVERV  ROUTINE 

-PUFAIL-POWERFAIL  RECOVERY  ROUTINE 

THIS  ROUTINE  IS  INVOKED  ONCE  PER  SECOND  BY  THE  TIMER  SERVICE 
CODE.  IF  THE  POWERFAIL  RECOVERY  FLAG  iS  SET,  WE  WILL  SCAN  THE 
SYSTEM  LINE  TABLE  FOR  'ACTIVE'  LINES  (I.E.  LINES  WHICH  HAVE 
BOTH  DLC  AND  DDM  PROCESSES  LOADED)  AND  ASYNCHRONOUSLY  QUEUE 
A  CONTROL  COMPLETION  TO  THE  LLC  LEVEL  INDICATING  THAT  THE 
LINK  HAS  BEEN  DISCONNECTED. 


GET  #  OF  LINES  REMAINING  TO  BE  POWERFAILED 
IF  NONE  ...  NO  RECOVERY  UNDERWAY 
CONVERT  TO  SYSTEM  LINE  # 
SAVE  FOR  LATER  CALL  TO  SASCMP 


100$: 


PWFAIL: 

MOV 

aPWRF1,Rl 

BLE 

100$ 

DEC 

R1 

MOV 

R1,R3 

.IF  DF 

N$$1LN 

MOV 

aSLTMA.RI 

MOV 

{R1),R1 

.IFF 

ASL 

R1 

ADD 

aSLTMA.RI 

MOV 

(R1),R1 

.ENDC 

BIT 

#LF.ACT,(R1) 

BEQ 

20$           ; 

CLR 

R2 

TSTB 

L.NSTA(RI) 

BEQ 

10$ 

M0V8 

TRI6+1,R2 

ASL 

R2 

ASL 

R2 

ADD 

R1,R2 

BITB 

#SF.ACT,L.MPF(R2) 

BEQ 

15$           ; 

MOV 

TRIB,R2 

10$: 

BIS8 

R3,rJ 

MOV 

#CE.DIS,R3 

CALL 

aASCMP 

BCS 

100$ 

15$: 

INC8 

TRIBtl         , 

CMP8 

TR!8+l,L.NSTA(Rl5 

BLO 

PWFAIL 

CLR 

TRI8 

20$: 

DEC 

aPWRFl 

BNE 

PWFAIL 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  MAPPING  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


IS  THIS  LINE  'ACTIVE'? 

NO  ...  NO  RECOVERY  REQUIRED 

ASSUME  LINE  IS  NOT  MULTIPOINT 

IS  THIS  LINE  MULTIPOINT? 

IF  EQ,  NO 

GET  TRIBUTARY  NUMBER  TO  CHECK 

FORM  DOUBLE  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  TABLE 

;  IS  THE  TRIBUTARY  ACTIVE? 

NO  ...  NO  RECOVERY  REQUIRED 

YES  ...  GET  TRIBUTARY  ADDRESS 

SET  SYSTEM  LINE  NUMBER 

YES  ...  SET  UP  ERROR  CODE 

PERFORM  ASYNCHRONOUS  COMPLETION 

TRY  LATER  ON  RESOURCE  ALLOCATION  FAILURE 

UPDATE  TRIBUTARY  ADDRESS 

;  HAVE  WE  CHECKED  ALL  TRIBUTARIES  ON  THIS  LINE? 

IF  LO,  NO 

RESET  TRIBU.ARY  ADDRESS 

ONE  LESS  LINE  TO  RECOVER 

LOOP  TILL  ALL  DONE 


.IF  DF   X$$MDC 


AXOSPB 


i  13 
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1 
2 
3 
k 
5 
6 
7 
8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.IF  DF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.ENDC 

.ENDC 

.IDENT 


R$$11D1I$$AS 

X$$MDC 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 


X$$MDC 

p$$Rr' 

AXDSPB  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 


AXDSPM  -  AUXILlIARV  PROCf.SS  DISPATCH 


AXDSPP  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 
AXDSP  -  AUXILLIARY  PROCESS  DISPATCH 


/V05.01/ 


COPYRIGHT  (C)  1978,1979,1980,  1983,  1985  B" 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MAjS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TFLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  I'J  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION 

AUXILARY  PROCESS  DISPATCH  TABLE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


ITS 


1.00  10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 


AXDSPB     CREATED  BY  MACRO  ON  3-SEP-85  AT  10:58 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


L.FLG 

000000 

#6-77 

..KRBA 

000016 

#6-77 

L.LEN 

=  000022 

#6-77 

L.MPF 

000022 

#6-77 

L.NMST 

000020 

#6-77 

_.NSTA 

000014 

#6-77 

L.OWNR 

000021 

#6-77 

L.UNT 

000013 

#6-77 

"IDMCTL 

-   *♦♦♦** 

(,X 

7-89 

IDMSCN 

=   ****** 

GX 

8-179 

NETACP 

0G0306 

R 

#•0-267 

^MCL2 

r  ****** 

GX 

0-297 

NMCMP 

000312 

R 

7-112 

M$$1LN 

r  ****** 

8-141 

ODSPL 

=  ****** 

GX 

9-229 

PWFAIL 

000034 

R 

7-91 

PWRFL 

000172 

R 

7-108 

PWRF1 

r:  ****** 

GX 

8-136 

P$$RFL 

=  000001 

#4-2 

RDBRT 

=  **♦♦«* 

GX 

10-310 

RSSMPL 

r  ****** 

9-213 

RSSIID 

=  ****** 

5-1 

SF.ACT 

=  000200 

#6-77 

SF.ENA 

=  000100 

#6-77 

SF.LPB 

=  000004 

#6-77 

SF.MFL 

=  000040 

#6-77 

SF.PAC 

=  000020 

#6-77 

SF.REA 

=  000010 

#6-77 

SF.SER 

=  000001 

#6-77 

SF.SVC 

=  000002 

#6-77 

SF.UNL 

=  000040 

#6-77 

SLTMA 

=  ****** 

GX 

8-149 

SLTNf-, 

=  ****** 

GX 

9-203 

SRSTD 

=  ****** 

GX 

9-238 

S.COST 

000001 

#6-77 

S.FLG 

000000 

#6-77 

S.LEN 

000004 

#6-77 

S.NMST 

000002 

#6-77 

S.OWNR 

000003 

#6-77 

TR!B 

000170 

R 

8-159 

TStCRT 

::  ****** 

GX 

9-241 

X$$MDC 

=  000001 

#4-3 

SAUXTB 

000000 

HG 

#7-84 

SBFRTN 

:r   ****** 

GX 

7-86 

10-285 
8-163 

8-157 


10-293 

10-299 

#10-269 


#8-136 
#9-202 

8-174 

5-9 


7-115 
8-163 


10-290 


9-208 
9-245 
10-294 


10-288 

8-165 
5-8 


I  U 
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CREF       04.00 


8-171 


8-172 

9-202 
7-90 


8-175 

9-24  5 
7-107 


8-122 


10-276 


-170 


8-171 
7-115 


-173 
-177 


#8-191 


n 
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NETWORK  MANAGEMENT  COUNTER  COMPLETION 


I  15 

0:59 


311  000236 

312  0002A0  001373 

313  0002A2 
31A 

315       000001 


RESRG 

BNE 

RETURN 

.END 


<RA> 
70$ 


Page  10-1 


Recouer  the  next  buffer 
If  NE,  get  next  buffer 
Else,  return 


^XDSPP  -  AUXILLIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  11 
PQWERFAIL  RECOVERY  ROUTINE 


179 

180 

181 

182 

183  000164 

18A 

185 

186 

187 

188 

189 

190 

191  000166 


Page  8-1 
;  MODEM  CONTROL  SCAN  ROUTINE 


CALLR   MDMSCN 

.IFF 

RETURN 

.ENDC 

LOCAL  STORAGE  FOR  TRIBUTARY  ADDRESS  DURIMG  POWERFAIL 


TRI8: 


.BLKW 


__J 


CESjBI 


MACRO  V05.03b  Friday  28-Jun-85  18:20  Page  9 
-  MOVE  rROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 


J  1 


205 
206 
207 
208 
209 
210 
211 
212 
215 
21A 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 

244  000152 

245  000152 
24o  000156 

247  000164 

248  000170 

249  0001  4 

250  000200 

251  000202 

252  000206 

253  000210 
25'  000214 


.SBTTL  SMVTBF  -  HOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

**-  SMVTBF  -  MOVE  FROM  MAPPED  BUFFER  TO  UNMAPPED  BUFFER 

THIS  ROUTINE  IS  CALLED  TO  MOVE  A  BLOCK  OF  MEMORY  (LESS  THAN 
4K  WORDS)  FROM  A  BUFFER  THAT  IS  CURRENTLY  MAPPED(  (EITHER 
IN  SYSTEM  DYNAMIC  SPACE  OR  IN  THE  COMMM  BUFFER  POOL)  TO  AN 
UNMAPPED  BUFFER.  NOTE  THE  MAPPED  BUFFER  CAN  NOT  BE  IN  THE  PROCESS'S 
SPACE  MAPPED  VIA  APR5  SINCE  IT  USES  APRS  TO  MAP  TO  THE  UNMAPPED 
BUFFER. 

CALLING  FORMAT: 

JSR     R1, SMVTBF 


INPUTS 


R2  =    VIRTUAL  ADDRESS  OF  MAPPED 
R3  =    NUMBER  OF  BYTES  TO  MOVE 
ON  THE  STACK: 


'FROM"  BUFFER 


R1 

VA 

BIAS 


ORIGINAL  CONTENTS  OF  R1  BEFORE  CALL 

16-BIT  VIRTUAL  ADDRESS  OF  UNMAPPED  "TO"  BFFER 

RELOCATION  BIAS  OF  UNMAPPED  "TO"  BUFFER 
(MAPPED  SYSTEMS  ONLY) 


OUTPUTS: 
R2 


Rj  = 

STILL  MAPPED  TO 

REGISTERS  MODIFIED: 
R2  &   R3 


UPDATED  ADDRESS  OF  "FROM"  BUFFER 
POINTS  TO  LAST  BYTE  MOVED  +1 
ZERO 


"FROM"  BUFFER  VIA  KISAK6 


016746 
016667 
010166 
016601 
022701 
101002 
162701 
: 12221 

C00421 


OOOOOOG 

000006 

000006 

000004 

140000 

020000 


SMVTBF: 


.ENA8L  LSB 


OOOOOOG 


10S: 


MOV 
MOV 
MOV 
MOV 
CMP 
BHI 
SUB 

Move 

SOB 
BR 


KISAR5,-(SP) 

6(sP),KISAR5 

R1,6(SP) 

4(SP),R1 

#140000, R1 

10S 

#20000, R1 

(R2)+,(R1)t 

R3,10t 

20i 


SAVE  CURRENT  PROCESS  MAPPING 

MAP  TO  "TO"  BUFFER 

SAVE  RETURN  ADDRESS 

GET  "TO"  BUFFER  VIRTUAL  ADDRESS 

IS  THE  "TO"  BUFFER  IN  THE  EXEC  POOL? 

IF  HI,  YES  THEN  DON'T  ALTER  THE  VIRTUAL  ADDDRESS 

SET  VA  FOR  BIAS  VIA  KISAR5 

MOVE  BUFFER  A  BYTE  AT  A  TIME 

LOOP  TILL  DONE 

JOIN  COMMON  EXIT  CODE 
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CREF   04.00 


MACRO   NAME 

REFERENCES 

CALL 

11-355 

CALLR 

#5-62 

CCBDFS 

#5-61 

5-63 

CLKDFS 

#5-61 

5-65 

ENABLt 

#5-60 

INHIBS 

#5-60 

='DVDF$ 

#5-61 

5-64 

RESRG 

#5-60 

6-98 

7-139 

11-353 

12-412 

13-446 

RETURN 

6-99 

7-140 

8-202 

10-306 

■  1-363 

12-413 

SAVRG 

#5-^''' 

6-90 

7-128 

11-334 

12-393 

13-430 

SOB 

9-2 

10-302 

13-447 


14-473 


15-507 


r  ? 


CEXCtI  -   CEX   COMMOM  DATABASE 


3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 

56  000000 

57  000000 
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.JIF  DF  R$$MPL  .TITLE 
.IIF  NDF  R$$MPL  .TITLE 
.IDENT  /V05.00/ 


NETCM  -  CEX  COMMON  DATABASE 
CEXCM  -  CEX  COMMON  DATABASE 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

COMMUNICATIONS  EXECUTIVE  COMMON  DATABASE 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


.IF  DF  M$$NF' 

.IF  NPF  R$$MPL 

.MCALL   CCBDF$,NKRDF$,OPTOF$ 


OF   ITS 


CC8DF$ 

NKRDFS  <:>,<=> 


DEFINE  CCB  OFFSETS 

DEFINE  NETWORK  KRB  OFFSETS 


n 


STCRC   MACRO  V05.03b  Friday  28-Jun-85  18:21 
Table  ot  contents 


J  « 


s- 

63 

ft- 

90 

l- 

101 

«- 

109 

9- 

21  S 

in- 

2^6 

11- 

455 

MACRO  DEFINITIONS 

DEFINE  KG-11  REGISTERS  AND  BITS 

EXECUTIVE  VECTOR  TABLE 

SCLCRC  -  CALCULATE  CRC-16  ON  A  TRANSMIT  CHAIN 

SSTCRC  -  CALCULATE  CRC  ON  BLOCK  OF  DATA 

STCR2  -  CALCULATE  CRC 

MODIFIER  TABLE  FOR  SOFTWARE  CRC 


r" 


K  k 


STCRC   MACRO  V05.03b  Friday  28-Jun-85  18:21 
STCR2  -  CALCULATE  CRC 


^31 
432 
A53 
434 
435 

436  000256  000000 

437  000260  140301 

438  000262  140601 

439  000264  000500 

440  000266  141401 

441  000270  001700 

442  000272  001200 

443  000274  141101 

444  000276  145001 

445  000300  003300 

446  000302  003600 

447  000304  143501 

448  000306  002400 

449  000310  142701 

450  000312  142201 

451  000314  002100 
452 

453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 


Page  11 
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.IF  NDF  K$$G11 

.SBTTL  MODIFIER  TABLE  FOR  SOFTWARE  CRC 

.•FIRST  HALF  OF  TABLE 


CTABL:   .WORD 

0 

.WORD 

140301 

.WORD 

140601 

.WORD 

500 

.WORD 

141401 

.WORD 

1700 

.WORD 

1200 

.WORD 

UIIOI 

.WORD 

143001 

.WORD 

3300 

.WORD 

3600 

.WORD 

143501 

.WORD 

2400 

.WORD 

142701 

.WORD 

142201 

.WORD 

2100 

.IF  DF 

F$$AST 

.WORD 

146001 

.WORD 

6300 

.WORD 

6600 

.WORD 

146501 

.WORD 

7400 

.WORD 

147701 

.WORD 

147201 

.WORD 

7100 

.WORD 

5000 

.WORD 

145301 

.WORD 

145601 

.WORD 

5500 

.WORD 

144401 

.WORD 

4700 

.WORD 

4200 

.WORD 

144101 

.WORD 

154001 

.WORD 

14300 

.WORD 

14600 

.WORD 

154501 

.WORD 

15400 

.WORD 

155701 

.WORD 

155201 

.WORD 

15100 

.WOPP 

17000 

.WORD 

157301 

.WORD 

157601 

.WORD 

17500 

.WORD 

156401 

.WORD 

16700 

.WORD 

16200 

.WORD 

156101 

.WORD 

12000 

STCRCF  MACRO  V05.03b  Friday  28-Jun-85  18:22  Page  5 


1 
2 
5 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
Zi, 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


J  6 


.IF  DF 

K$$G11 

.TITLE 

STCRCK 

.IFF 

.IF  DF 

F$$AST 

.TITLE 

STCRCF 

.IFF 

.TITLE 

STCRC 

.ENDC 

.ENDC 

.IDENT 

/V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TC  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CRC-16  CALCULATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   10-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11'M-PLJS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-lIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 


STCRCF  MACRO  V05.05b  Friday  28-Jun-85  If 
MODIFIER  TABLE  FOR  SOFTWARE  CRC 


488  000576 

152501 

489  000400 

152601 

490  000402 

012500 

491  000404 

153401 

492  000406 

015700 

493  000410 

015200 

494  000412 

153101 

495  000414 

151001 

496  000416 

011500 

497  000420 

011600 

498  000422 

151501 

499  000424 

010400 

500  000426 

150701 

501  000430 

150201 

502  000432 

010100 

503  000434 

170001 

504  000436 

050300 

505  000440 

030600 

506  000442 

170501 

507  000444 

031400 

508  000446 

171701 

509  000450 

171201 

510  000452 

031100 

511  000454 

033000 

512  000456 

175501 

513  000460 

175601 

514  000462 

033500 

515  000464 

172401 

516  000466 

032700 

517  000470 

032200 

518  000472 

172101 

519  000474 

036000 

520  000476 

176501 

521  000500 

176601 

522  000502 

036500 

523  000504 

177401 

524  000506 

037700 

525  000510 

037200 

526  000512 

177101 

527  000514 

175001 

528  000516 

035300 

529  000520 

035600 

530  000522 

175501 

531  000524 

034400 

532  000526 

174701 

533  000530 

174201 

534  000532 

034100 

535  000534 

024000 

536  000536 

164301 

537  000540 

164601 

538  000542 

024500 

539  000544 

165401 

540  000546 

025700 

541  000550 

025200 

542  000552 

165101 

543  000554 

167001 

544  000556 

027500 

22  Page  12-1 

.WORD 

152301 

.WORD 

152601 

.WORD 

12500 

.WORD 

155401 

.WORD 

13700 

.WORD 

15200 

.WORD 

155101 

.WORD 

151001 

.WORD 

11500 

.WORD 

11600 

.WORD 

151501 

.WORD 

10400 

.WORD 

150701 

.WORD 

150201 

.WORD 

10100 

.WORD 

170001 

.WORD 

50500 

.WORD 

30600 

.WORD 

170501 

.WORD 

31400 

.WORD 

171701 

.WORD 

171201 

.WORD 

31100 

.WORD 

35000 

.WORD 

173301 

.WORD 

175601 

.WORD 

35500 

.WORD 

172401 

.WORD 

32700 

.WORD 

52200 

.WORD 

172101 

.WORD 

36000 

.WORD 

176501 

.WORD 

176601 

.WORD 

36500 

.WORD 

177401 

.WORD 

57700 

.WORD 

37200 

.WORD 

177101 

.WORD 

175001 

.WORD 

35500 

.WORD 

55600 

.WORD 

175501 

.WORD 

34400 

.WORD 

174701 

.WORD 

174201 

.WORD 

34100 

.WORD 

24000 

.WORD 

164501 

.WORD 

164601 

.WORD 

24500 

.WORD 

165401 

.WORD 

25700 

.WORD 

25200 

.WORD 

165101 

.WORD 

167001 

.WORD 

27500 
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58 
59 
60 
61 


OECnet-Micro/RSX   VI. 0 
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STCR2  -  CALCULATE  CRC 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 


22  Page  12-2 

.WORD 

27600 

.WORD 

167501 

.WORD 

26400 

.WORD 

166701 

.WORD 

166201 

.WORD 

26100 

.WORD 

162001 

.WORD 

22300 

.WORD 

22600 

.WORD 

162501 

.WORD 

23400 

.WORD 

163701 

.WORD 

163201 

.WORD 

23100 

.WORD 

21000 

.WORD 

161301 

.WORD 

161601 

.WORD 

21500 

.WORD 

160401 

.WORD 

20700 

.WORD 

20200 

.WORD 

160101 

.WORD 

120001 

.WORD 

60300 

.WORD 

60600 

.WORD 

120501 

.WORD 

61400 

.WORD 

121701 

.WORD 

121201 

.WORD 

61100 

.WORD 

63000 

.WORD 

123301 

.WORD 

123601 

.WORD 

63500 

.WORD 

122401 

.WORD 

62700 

.WORD 

62200 

.WORD 

122101 

.WORD 

66000 

.WORD 

126301 

.WORD 

1i6601 

.WORD 

66500 

.WORD 

127401 

.WORD 

67700 

.WORD 

67200 

.WORD 

127101 

.WORD 

125001 

.WORD 

65300 

.WORD 

65600 

.WORD 

125501 

.WORD 

64400 

.WORD 

124701 

.JORD 

124201 

.WORD 

64100 

.WORD 

74000 

.WORD 

134301 

.WORD 

134601 
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Macro  definitions 

56  .SBTTL  Macro  definitions 

58  .MCALL  CC8DF$,SLTDF$,NHWDF$,ENABL$,INHie$ 

59  000000  CC8DF$ 

60  000000  SLTDFS 

61  000000  NHWDFS 
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99 
100 
101 
102 
103 
104 

105  000062 

106  000064 
107 

108 

109  00006A 

no 

111  000066 

112  000070 

113  000072 
lU   00007A 

115  000076 

116  000100 

117  000102 

118  000104 

119  000106 

120  000110 

121  000112 

122  OOOIU 

123  000116 

124  000120 

125  000122 

126  000124 

127  000126 

128  000130 

129  000132 

130  000134 

131  000136 

132  000140 
133 

134 
135 
136 
137 

138  000142 

139  000144 

140  000146 

141  000150 

142  000152 

143  000154 

144  000156 

145  000160 
146 

147 

148  000160 

149 

150 

151 

152 

153 

154 

•55 


OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

M100Q: 

:  .UORD 
.ENDC 
.ENDC 

SMIOOQ 

NMCLH: 

:  .WORD 

SNMCLH 

NMCL2: 

:  .IF  DF 

R$$PRO 

.WORD 

$NMCLHt2 

.IFF 

;  DF  R$$PRO 

.WORD 

iNMCL2 

.ENDC 

:  DF  R$$PRO 

PDDSP: 

:  .WORD 

SPDDSP 

PDQUE: 

:  .WORD 

SPDQUE 

PDSPL: 

:  .WORD 

SPDSPL 

PDVNM: 

:  .WORD 

SPDVNM 

PDVTA: 

:  .WORD 

SPDVTA 

PUMR : : 

.WORD 

$PUMR 

PURFl: 

:  .WORD 

SPWRFl 

QSTRT: 

:  .WORD 

SQSTRT 

RDBGT: 

:  .WORD 

$RD8GT 

RDBNH: 

:  .WORD 

SRDBNM 

RDBRT: 

:  .WORD 

SRDBRT 

RD8SZ: 

:  .WORD 

$RD8SZ 

RD8TH: 

:  .WORD 

$RD8TH 

RDQCT: 

:  .WORD 

SRDQCT 

RDQSL: 

:  .WORD 

SRDQSL 

SLTMA: 

:  .WORD 

SSLTMA 

SLTNM: 

:  .WORD 

SSLTNM 

SQRCM: 

:  .WORD 

SSORCM 

STDD1: 

:  .WORD 

SSTDDI 

STDLC: 

;  .WORD 

SSTDLC 

STDL1: 

:  .WORD 

SSTDLI 

STMFC- 

:  .WORD 

SSTMFC 

.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

STMTS: 

:  .WORD 
.ENDC 
.ENDC 

SSTMTB 

TK100: 

:  .WORD 

$TK100 

TSTIM: 

:  .WORD 

STSTIM 

T1SCL: 

:  .WORD 

STISCL 

T100C: 

;  .WORD 

$7100C 

TIOOQ: 

:  .WORD 

$T100Q 

XAVL:: 

.WORD 

$XAVL 

ZTIME: 

:  .WORD 

SZTIME 

ZTIM2: 

:  .IF 

DF  R$$PR0 

.WORD 

$ZTIMEt2 

.IFF 

;  DF  R$$PRO 

.WORD 

$ZTIM2 

.ENDC 

;  DF  R$$PRO 

.IF  DF 

R$$MPL 

CKURM 

:  .WORD 

SCKURM 

CP81T 

:  .WORD 

SCPBIT 

.IF  NDF 

R$$PRO 

_J 
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i   12 

0:58 


179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
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MODEM  CONTROL  SCAN  ROUTINE 


CALLR   MDMSCN 

.IFF 

RETURN 

.ENDC 

■  + 

;  LOCAL  STORAGE  FOR  TRIBUTARY  ADDRESS  DURING  POWERFAIL 

TRIB:    .8LKW 
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58 
59 
60 
61 
62 
63 
M 
65 
66 
67 
68 
69 
70 
71 
72 
73 


DECNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

A. 00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 
DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 

5.01  09-Aug-85 

Add  logic  to  bypass  service  disabled  check  on  broadcast  channels. 
This  change  requires  EPMMAI  ident  V5.01. 
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MACRO   CROSS   REFERENCE  CREF        OA.OO 

MACRO  NAME  REFERENCES 

CALL  8-168  9-229  9-238  9-2M  10-29A  10-310 

CALLR  7-120  8-l?9  10-30^  10-308 

CCBDfS  #6-75  6-78 

RESRG  #6-75  10-311 

RETURN  7-119  9-246  10-313 

SAVRG  #6-75  10-309 

SLTDFS  #6-75  6-77 

SOB  10-289 


AXDSPM  -  AUXILLIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  1( 
Symbol  table 

A$$CHK= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBRET 

CCBRT  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.D1S= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

Cf .HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CE5= 

CS.CNM= 

CS.CMP= 

CS.DCR= 

CS.DEF= 


15 
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000000 

CS.DEV= 

000002 

D$$YNM= 

000000 

000000 

CS.DIS= 

000040 

EXRQN  = 

******   GX 

000000 

CS.ENA= 

000001 

E$$XPR^ 

000000 

000000 

CS.ENB= 

000020 

FC.CCP= 

000020 

000002 

CS.ERR= 

100000 

FC.CTL= 

000006 

000040 

CS.FTL= 

001000 

FC.KCP= 

000016 

000020 

CS.HCR= 

000001 

FC.KIL= 

000004 

000004 

CS.HFE= 

002000 

FC.MAN= 

000024 

000010 

CS.LST= 

040000 

FC.MLD= 

000026 

000100 

CS.MTL= 

004000 

FC.PCT= 

000030 

000001 

C5.RNG= 

000010 

FC.PWR^ 

000022 

000030R 

CS.ROV= 

000004 

FC.RCE= 

000002 

»t*4**  GX 

CS.RSN= 

010000 

FC.RCP= 

000014 

000200 

CS.SHU= 

000001 

FC.TIM= 

000010 

100562 

CS.SID= 

000002 

FC.XCP= 

000012 

100346 

CS.STR= 

000004 

FC.XI*IE= 

000000 

100366 

CS.SUC= 

000001 

FS.AST= 

000000 

100370 

CS.TMO= 

020000 

FS.CIS= 

002000 

100350 

CS.XUR= 

000004 

FS.CRA= 

001000 

100356 

C$$CKP= 

000000 

FS.DIS= 

013000 

100372 

C$$ORE= 

000400 

FS.DVC= 

001000 

100361 

C$$RSH= 

177564 

FS.ENB= 

012000 

100376 

C.ADD 

000034 

FS.EXI= 

001000 

100364 

C.BID 

000003 

FS.GET= 

006000 

100352 

C.BUF 

000014 

FS.HLT= 

000000 

100354 

C.BUF1 

000014 

FS.JNI= 

000000 

100374 

C.8UF2 

000024 

FS.KIL= 

000000 

100344 

C.CNT 

000020 

FS.LCL= 

100000 

000001 

C.CNT1 

000020 

FS.LTM^ 

001000 

000004 

C.CNT2 

000030 

FS.MNT= 

004000 

000020 

C.FLG 

000022 

FS.MSN= 

014000 

100000 

C.FLG1 

000022 

FS.REA= 

001000 

000002 

C.FLG2 

000032 

FS.RET= 

000000 

000010 

C.FNC 

000010 

FS.REZ= 

003000 

000040 

C.LIN 

000006 

FS.RLB= 

002000 

000100 

C.LNK 

000000 

FS.RNG= 

onooo 

000002 

C.MOD 

000011 

FS.RST= 

000000 

100000 

C.NSP 

000004 

FS.RTN= 

001000 

000002 

C.PRO 

000042 

FS.SET= 

005000 

000000 

C.RSV 

000002 

FS.SFC= 

005000 

000001 

C.STA 

000007 

FS.SFR= 

006000 

000004 

C.STS 

000012 

FS.SFS= 

004000 

000040 

C.URM 

177776 

FS.SPW= 

040000 

000007 

C.XACP 

000004 

FS.S7M= 

000000 

177400 

C.XID 

000035 

FS.STP= 

002000 

000200 

C.XLEN 

000044 

FS.STR= 

001000 

000100 

C.XPLI 

000040 

FS.TRM= 

003000 

000030 

C.XPT 

000034 

FS.WL8= 

001000 

000100 

C.XSVC 

000042 

FS.XKL= 

002000 

000002 

C.XTC 

000037 

FS.X0F= 

010000 

000200 

C.X25 

000036 

FS.XON= 

007000 

000002 

OUMMV 

000026R 

FS.ZER= 

002000 

000010 

D$$8UG= 

177514 

F$$LVL= 

000001 

000200 

D$$ISK= 

000000 

G$$rpp= 

000000 

000400 

D$$L11= 

000001 

G$$TSS= 

000000 

000004 

D$$rNC= 

000000 

G$$TTK= 

000000 

6$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LF.ACT= 
LF.BR0= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.«rP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA- 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN. STA- 
IN. SUB= 
LN.TRI= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 


000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 


L.OWNR 

L.UNT 

MDMCTL= 

MDMSCN= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

H$$OVR= 

NETACP 

NHCL2  = 

NHCMP 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$1LL= 

N$$MO\/= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RDBRT  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SRSTD  = 

S$$URG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

T$$M1N= 

V$$CTR= 

X$$DBT= 

X$$MDC= 

SAUXTB 

$BFRTN= 

.$$$$.= 


000021 

000013 

»*♦*»*  GX 

**«»*»  GX 

000124 

000000 

000000 

000000 

000000 

000000 

000034R 

*«♦*♦*  GX 

000040R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

«»«♦*»  GX 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

******  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001  coo 

000000 
000001 
OOOOOORG 
******  GX 
000034 
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195 
194 
195 
196 
197 
198 
199 
200 
201 

202  0001 70 

203  000176 
20A 

205  000202 

206  000204 

207  000206 

208  000210 

209  0002U 

210  000216 

211  000220 
212 

213 
2K 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 

226  000222 

227  000226 

228  000232 

229  000236 
230 

231  000242 

232  000244 

233  000246 
234 

235 
236 

237  000250 

238  000254 

239  000260 

240  000262 

241  000264 
242 

243 
244 

245  000270 

246  000276 
247 

248 

249  C00300 


.SBTTL  POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

-PWRFL-POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

THIS  ROUTINE  IS  INVOKED  FROM  THE  DRIVER  POWERFAIL  ENTRY  POINTS  TO 
DISPATCH  TO  DDM  MODULES  TO  PERFORM  POWERFAIL  RECOVERY.  IF  THE  KMC 
MICROCODE  LOADER  TASK  IS  INSTALLED,  IT  WILL  BE  REQUESTED  TO  RUN. 


012777  177777  OOOOOOG  PWRFL: 
017746  OOOOOOG 


011603 

005303 

006303 

067703  OOOOOOG 

011303 

005713 

100010 


10$: 


15$: 


016305  000004 
116302  000002 
016703  OOOOOOG 


005316 
001356 
005726 


012703  000300' 


20$: 


103403 
005001 


017777  OOOOOOG  OOOOOOG  30$: 


043313  047574 


KMCL: 


MOV 
MOV 

#-1,aPWRFl 
aSLTNM,-(SP) 

MOV 
DEC 
ASL 
ADD 
MOV 
TST 
BPL 

(SP),R3        ; 

R3            ; 

R3 

aSLTMA,R3 

(R3),R3 

(R3)          ; 

20$ 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PR0 

BIT 
BEQ 
MOV 
MOV 
BIT 
BEO 

#F2.MP,aFMSK2 

15$ 

L.KRSA(R3),R5   ; 

aCPUfiM,-(SP) 

K.URM(R5),a(SP)+; 

20$ 

.ENDC 
.ENDC 

MOV 
HOVB 
MOV 
CALL 

L.DDS(R3),R5 
L.DDM(R3),R2 
DDFNC,R3 
aPDSPL 

DEC 
BNE 
TST 

(SP) 

10$ 

(SP)+         ; 

.IF  NDF 

I$$AS 

MOV 

CALL 

BCS 

CLR 

CALL 

*KMCL,R3 

aSRSTD 

30$ 

R1            ; 

aTSKRT          ; 

.ENDC 

MOV 
RETURN 

aSLTNM.SPWRFI 

.IF  NDF 
.RAD50 

I$$AS 
/KMCL../ 

STOP  TIMERS  RUNNING  TO  DDM  PROCESSES 
SET  UP  COUNT  OF  LINES  TO  SCAN 

GET  NEXT  SYSTEM  LINE  # 

FORM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

^m   GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
IS  THE  LINE  ACTIVE? 
IF  PL,  NO 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

GET  ADDRESS  OF  KRB 

GET  ADDRESS  OF  CPU  URM  TABLE 

ARE  WE  RUNNING  ON  THE  CORRECT  PROCESSOR? 

IF  EQ,  NO 


GET  LINE  TABLE  ADDRESS 

AND  DDM  PDV  INDEX 
POINT  TO  POWERFAIL  FUNCTION  CODE 
DISPATCH  TO  DDM 

REDUCE  COUNT  OF  LINES  TO  SCAN 
LOOP  IF  MORE  TO  GO 
CLEAN  UP  THE  STACK 


POINT  TO  KMC  LOADER  TASK  NAME 
SCAN  TO  FIND  TASK'S  TCB 
IF  CS,  TASK  NOT  INSTALLED 
CLEAR  DEFAULT  UK 
REQUEST  TASK  TO  RUN 


START  DISCONNECT  NOTIFICATION  ON  ALL  LINES 


TASK  NAME  OF  KMC  MICROCODE  LOADER 
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256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293  0C0216 

294  000216 

295  000222 

296  000230 

297  000254 

298  000240 

299  00024'. 

300  000246 

301  000252 

302  000254 

303  000260 

304  000264 

305  000266 

306  000270 
307 

3C8 


.SBTTL  SMVFBF  -  MOVE  FROM  UNMAPPED  BUFFER  TO  A  MAPPED  BUFFER 

**-  SMVFBF  -  MOVE  FROM  UNMAPPED  BUFFER  TO  A  MAPPED  BUFFER 

THIS  ROUTINE  IS  CALLED  TO  MOVE  A  BLOCK  OF  MEMORY  (LESS  THAN 
4K  WORDS)  FROM  AN  UNMAPPED  BUFFER  TO  A  BUFFER  THAT  IS  CURRENTLY 
MAPPED  (EITHER  IN  SYSTEM  DYNAMIC  SPACE  OR  IN  THE  COMM  BUFFER  POOL). 
THE  ROUTINE  UNMAPPS  THE  REQUESTING  PROCESS  AND  USES  ARP5  TO  MAP 
TO  THE  UNMAPPED  "FROM"  BUFFER. 

CALLING  FORMAT: 

JSR     R1, SMVFBF 


INPUTS: 


R2  =    VIRTUAL  ADDRESS  OF  MAPPED 
R3  =    NUMBER  OF  BYTES  TO  MOVE 
ON  STACK: 


'TO"  BUFFER 


R1 

VA 

BIAS 


ORIGINAL  CONTENTS  OF  R1  BEFORE  CALL 

16-BIT  VIRTUAL  ADDRESS  OF  UNMAPPED  "FROM"  BUFFER 


RELOCATION  BIAS  OF  UNMAPPED  "FROM' 
(HAPPED  SYSTEMS  ONLY) 


BUFFER 


OUTPUTS: 
R2= 


R3  = 

STILL  MAPPED  TO 

REGISTERS  MODIFIEU: 
R2  8  R3 


UPDATED  ADDRESS  OF  "TO"  BUFFER 
POINTS  TO  LAST  BYTE  MOVED  +1 
ZERO 


'TO"  BUFFER  VIA  KISAR6 


016746 
016667 
010166 
016601 
022701 
101002 
162701 
112122 

012667 
012601 
005  726 


OOOOOOG 

000006 

000006 

000004 

140000 

020000 


OOOOOOG 


SMVFBF : 


OOOOOOG 


15$: 
20$: 


MOV 

MOV 

MOV 

MOV 

CMP 

BHI 

SUB 

M0V8 

SUB 

MOV 

MOV 

TST 

RETURN 


.DSABL  LS8 


KISAR5,-(SP) 

6(SP),K!SAR5 

R1,6(SP) 

4(SP),R1 

*140000,R1 

15$ 

*20000,R1 

(R1)*.(R2)t 

R3,15i 

(sp)  +  ,kisar;^ 

(SP)t,R1 
(SP)t 


SAVE  CURRENT  PROCESS  MAPPING 

MAP  TO  "FROM"  BUFFER 

SAVE  RETURN  ADDRESS 

GET  "FROM"  BUFFER  VIRTUAL  ADDRESS 

IS  THE  "FROM"  BUFFER  IN  THE  EXEC  POOL? 

IF  HI,  YES  THEN  DON'T  ALTER  THE  VIRTUAL  ADDRESS 

SET  VA  FOR  BIAS  VIA  KISAR5 

MOVE  BUFFER  A  BYTE  AT  A  TIME 

LOOP  TILL  DONE 

RESTORE  PROCESS  MAPPING 

RESTORE  REGISTER 

CLEAN  UP  STACK 

RETURN 


L   1 


K    2 


•  •FILE  MD-'CETIM 


CCCCCCCC   EEEEEEEEEF   TTTT 
TTTT 


CCCCCCCC 

EEEEEEEEEE 

cc 

EE 

cc 

EE 

cc 

EE 

cc 

EE 

cc 

EEEEEEEE 

cc 

EEEEEEEE 

cc 

EE 

cc 

EE 

cc 

EE 

cc 

EE 

CCCCCCCC 

EEEEEEEEEE 

cccccci: 

EEEEEEEEEE 

TTTTTT 

iiini 

MM     MM 

TTTTTT 

Illill 

MM     MM 

MMMM  MMMM 

MMMM  MMMM 

MM  MM  MM 

MM  MM  MM 

MM      MM 

MM      MM 

MM      MM 

MM      MM 

MM      MM 

I 

MM      MM 

IIIHI 

MM      MM 

mill 

MM      MM 

LL 

ssssssss 

ITTTT 

TrTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ss 

LL 

ss 

-L 

ss 

.L 

ss 

LL 

ssssss 

LL 

ssssss 

_L 

5S 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

s:  ssssss 

LLLLLLLLLL 

ssssssss 

n 
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58  000000 

59 

60  000000 

61 

62 

63 

6A 

65 

66  000000 


OPTDFS  ;  DEFINE  CEX  OPTIONS  FLAGS 

.PSECT  CEXCOM 

.ENDC  ;  NDF  R$$MPL 

.,^CALL  SVNDF$         ;  DEFINE  SrNCH  AND  PAD  SYMBOLS 

SYNDFS  <:>,<=> 


I   ^ 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 

54 

55 

56 
^7 
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.IF  DF 

K$$G11 

.TITLE 

STCRCK 

.IFF 

.IF  DF 

F$$AST 

.TITLE 

STCRCF 

.IFF 

.TITLE 

STCRC 

.ENDC 

.ENDC 

.IDENT 

/V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  UITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE.  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CRC-16  CALCULATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


OF 


2.00 


3.00 


4.00 


5.00 


10-FE8-78 

VERSION  2.0  RELEASE 

14-DEC-79 
OECNET-llM/S  V3.0 
DECNET-11M-PLUS  Vl.O 

16-APR-82 
DECNET-11M  V5.1 
DECNET-11M-PLUS  VI. 1 

07-N0V-83 
DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

22-JUL-85 
DECnet-llM/S  V4.2 
DECnet-llM-Plus  V5.0 


i:l  \ 
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MODIFIER    TABLE   FOR   SOFTWARE    CRC 

488 

A89 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 
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.WORD 

152301 

.WORD 

152601 

.WORD 

12500 

.WORD 

153401 

.WORD 

13700 

.WORD 

13200 

.WORD 

153101 

.WORD 

151001 

.WORD 

11300 

.WORD 

11600 

.WORD 

151501 

.WORD 

10400 

.WORD 

150701 

.WORD 

150201 

.WORD 

10100 

.WORD 

170001 

.WORD 

30300 

.WORD 

30600 

.WORD 

170501 

.WORD 

31400 

.WORD 

171701 

.WORD 

171201 

.WORD 

31100 

.WORD 

33000 

.WORD 

173301 

.WORD 

173601 

.WORD 

33500 

.WORD 

172401 

.WORD 

32700 

.WORD 

32200 

.WORD 

172101 

.WORD 

36000 

.WORD 

176301 

.WORD 

176601 

.WORD 

36500 

.WORD 

177401 

.WORD 

37700 

.WORD 

37200 

.WORD 

177101 

.WORD 

175001 

.WORD 

35300 

.WORD 

35600 

.WORD 

175501 

.WORD 

34400 

.WORD 

174701 

.WORD 

174201 

.WORD 

34100 

.WORD 

24000 

.WORD 

16430' 

.WORD 

16460' 

.WORD 

24500 

.WORD 

165401 

.WORD 

25700 

.WORD 

25200 

.WORD 

165101 

.WORD 

167001 

•  WORD 

27300 
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58 
59 
60 
61 


DECnet-Micro/RSX  VI. 0 


J 


STCRCF  MACRO  V05.03b  Friday  28-Jun-85  If 
MODIFIER  TABLE  FOR  SOFTWARE  CRC 


545  000560 

027600 

5A6  000562 

167501 

5A7  000564 

026400 

548  000566 

166701 

549  000570 

166201 

550  000572 

026100 

551  000574 

162001 

552  000576 

022300 

553  000600 

022600 

554  000602 

162501 

555  000604 

023400 

556  000606 

163701 

557  000610 

163201 

558  000612 

023100 

559  000614 

021000 

560  000616 

161301 

561  000620 

161601 

562  000622 

021500 

563  000624 

160401 

564  000626 

020700 

565  000630 

020200 

566  000632 

160101 

567  000634 

120001 

568  000636 

060300 

569  000640 

060600 

570  000642 

120501 

571  000644 

061400 

572  000646 

121701 

573  000650 

121201 

574  000652 

061100 

575  000654 

063000 

576  000656 

123301 

577  000660 

123601 

578  000662 

063500 

579  000664 

122401 

580  000666 

062700 

581  000670 

062200 

582  000672 

122101 

583  000674 

066000 

584  000676 

126301 

585  000700 

126601 

586  000702 

066500 

587  000704 

127401 

588  000706 

067700 

589  000710 

067200 

590  000712 

127101 

591  000714 

125001 

592  000716 

065300 

593  000720 

065600 

594  000722 

125501 

595  000724 

064400 

596  000726 

124701 

597  000730 

124201 

598  000732 

064100 

599  000734 

074000 

600  000736 

134301 

601  000740 

134601 
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.WORD 

27600 

.WORD 

167501 

.WORD 

26400 

.WORD 

166701 

.WORD 

166201 

.WORD 

26100 

.WORD 

162001 

.WORD 

22300 

.WORD 

22600 

.WORD 

162501 

.WORD 

23400 

.WORD 

163701 

.WORD 

163201 

.WORD 

23100 

.WORD 

21000 

.WORD 

161301 

.WORD 

161601 

.WORD 

21500 

.WORD 

160401 

.WORD 

20700 

.WORD 

20200 

.WORD 

160101 

.WORD 

120001 

.WORD 

60300 

.WORD 

60600 

.WORD 

120501 

.WORD 

61400 

.WORD 

121701 

.WORD 

121201 

.WORD 

61100 

.WORD 

63000 

.WORD 

123301 

.WORD 

123601 

.WORD 

63500 

.WORD 

122401 

.WORD 

62700 

.WORD 

62200 

.WORD 

122101 

.WORD 

66000 

.WORD 

126301 

.WORD 

126601 

.WORD 

66500 

.WORD 

127401 

.WORD 

67700 

.WORD 

67200 

.WORD 

27101 

.WORD 

25001 

.WORD 

65300 

.WORD 

65600 

.WORD 

125501 

.WORD 

64400 

.WORD 

124701 

.WORD 

124201 

.WORD 

64100 

.WORD 

74000 

.WORD 

134301 

.WORD 

134601 

K  7 


STCRCK 
MACRO  DE 

63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
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FINITIONS 

.SBTTL 

.MCALL 


K  8 

MACRO  DEFINITIONS 
CC8DF$,NHWDF$,SAVRG,RESRG 


000000 
000000 


CCBDFS 
NHWDFS 


DEFINE  CCa  OFFSETS 
DEFINE  HARDWARE  REGISTERS 


DEFINE  LOCAL  MACROS 

.IF  DF  P$$40IP$$34IP$$45!P$$70,'L$$SI1!M$$MGE 


000000 


R$$EIS=0 

.ENDC 

.IF  NDF  R$$EIS 


.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENDM 

.ENDC 


XOR.A.B 

A,R3 

B,R3 

A,8 

R3,B 

XOR 


PROCESSOR  HAS  XOR  INSTRUCTION 


COPY  A 

A  <-  A  AND  NOT  B 
B  <-  B  AND  NOT  A 
B  <-  A  OR  B 


:n 


SKRC<     MACRO  V05.05b  Friday   28-Jun-85   If 
STCR2   -   CALCULATE    CRC 

602 

603 

60^ 

605 

606 

607 

608 

609 

610 

611 

612 

6^3 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 


22 

Page  12-3 

.WORD 

74500 

.WORD 

135401 

.WORD 

75700 

.WORD 

75200 

.WORD 

135101 

.WORD 

137001 

.WORD 

77300 

.WORD 

77600 

.WORD 

137501 

.WORD 

76400 

.WORD 

136701 

.WORD 

136201 

.WORD 

76100 

.WORD 

132001 

.WORD 

72300 

.WORD 

72600 

.WORD 

132501 

.WORD 

73400 

.WORD 

133701 

.WORD 

133201 

.WORD 

73100 

.WORD 

71000 

.WORD 

131301 

.WORD 

131601 

.WORD 

71500 

.WORD 

130401 

.WORD 

70700 

.WORD 

70200 

.WORD 

130101 

.WORD 

50000 

.WORD 

110301 

.WORD 

110601 

.WORD 

50500 

.WORD 

111401 

.WORD 

51700 

.WORD 

51200 

.WORD 

111101 

.WORD 

113001 

.WORD 

53300 

.WORD 

53600 

.WORD 

113501 

.WORD 

52400 

.WORD 

112701 

.WORD 

112201 

.WORD 

52100 

.WORD 

116001 

.WORD 

56300 

.WORD 

56600 

.WORD 

116501 

.WORD 

57400 

.WORD 

117701 

.WORD 

117201 

.WORD 

57100 

.WORD 

55000 

.WORD 

115301 

.WORD 

115601 

.WORD 

55500 

K     9 
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K  10 


63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77  000000 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91  000000 

92  000006 

93  OOOOU 

94  000022 
95 

96  000030 

97  000036 

98  000044 
99 

100 

101 

102 

103 

104 

105 

106  000046 

107 

108 

105 

110  000054 

111  000060 

112  000062 

113  000070 

114  000074 
115 

116 
117 
118 
119 


**-$BFRTN-SySTEM  LEVEL  ROUTINE  TO  SATISFY  A  BUFFER  WAIT  REQUEST 

INPUTS: 

R3  =  SUB-FUNCTION  CODE 

R4  =  ADDRESS  OF  BUFFER  TO  SATISFV  A  WAIT  REQUEST 

SCAN  FOR  NEXT  SYSTEM  LINE  WHICH  HAS  AN  OUTSTANDING  BUFFER  WAIT  REQUEST 

AND  GIVE  THE  BUFFER  TO  THE  DEVICE  DRIVER  MODULE  WITH  A  RECEIVE  ENABLE 

FUNCTION  CODE. 


SBFRTN: 


5$! 


012764 
017764 
017764 
112764 


042777 
001453 


100000  000022 
OOOOOOG  000020 
OOOOOOG  000030 
000004  000003 


100000  OOOOOOG 


10$: 


017702 
001003 
017777 
005377 
010203 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG       20$: 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 


BIT 
BEQ 
TST8 
BEQ 

CALL 

.ENDC 
.ENDC 

MOV 
MOV 
MOV 
M0V8 


#F2.MP,SFMSK2 

5$ 

R3 

MPBRTN 

SMPSAV 


REF  LABEL 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

IS  THIS  BUFFER  TO  GO  TO  THE  DEVICE? 

IF  EQ,  VES 

BYPASS  THE  CACHE 


#CF.LB,C.FLG(R4);  RESET  CCB  ATTRIBUTES  FOR  BUFFER 

SRD8SZ,C.CNT(R4);   ... 

aRDBSZ,C.CNT2(R4) 

#CB.RDB,C.BID(R4) 


MTPS 

BIC 

BEQ 

#PR7 

#100000, aRDQCT 

30$ 

.IF  DF 

R$$11DII$$AS 

MTPS 

#PR3 

.IFF 

MTPS 

#PRO 

.ENDC 

MOV 
BNE 
MOV 
DEC 
MOV 

aRDQSL, R2 

20$ 

aSLTNM, aRDQSL 

aRDQSL 

R2,fi3 

.IF  DF 

N$$1LN 

MOV 
MOV 

SSLTMA.R2 
(R2),R2 

INHIBIT  INTERRUPTS 

CLEAR  BUFFER  QUEUED  FLAG  AND  TEST  FOR  WAITERS 

IF  EQ  NO,  RETURN  BUFFER  TO  THE  POOL 


ENABLE  INTERRUPTS 


GET  NEXT  SYSTEM  LINE  NUMBER 

IF  NE  NUMBER  IS  STILL  VALID 

RESET  HIGHEST  SYSTEM  LINE  NUMBER  PLUS  ONE 

COMPUTE  NEXT  SYSTEM  LINE  NUMBER 

COPY  SYSTEM  LINE  NUMBER 


GET   ADDRESS   OF    SLT  ENTRY 


K  11 
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MPLCK::  .WORD   SHPLCK 
MPSAV::  .WORD   SMPSAV 

.ENDC   ;  NDF  R$$PRO 

PR0C2::  .WORD   $PR0C2 

QFORK::  .WORD   SQFORK 

.ENDC 

$AUXVL==.-l-$AUXVT/2 
.END 


156 

157 

158 

159 

160 

161 

162 

163 

16A 

000070 

165 

000001 

K  12 
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193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20'!. 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

2A0 

241 

242 

243 

244 

24  5 

246 

247 

248 

249 


.SBTTL  POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

♦♦-PWRFL-POWERFAIL  RECOVERY  DISPATCH  TO  DDM  MODULES 

THIS  ROUTINE  IS  INVOKED  FROM  THE  DRIVER  POWERFAIL  ENTRY  POINTS  TO 
DISPATCH  TO  DDM  MODULES  TO  PERFORM  POWERFAIL  RECOVERY.  IF  THE  KMC 
MICROCODE  LOADER  TASK  IS  INSTALLED,  IT  WILL  BE  REQUESTED  TO  RUN. 


STOP  TIMERS  RUNNING  TO  DDM  PROCESSES 
SET  UP  COUNT  OF  LINES  TO  SCAN 

GET  NEXT  SYSTEM  LINE  # 

FORM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
AND  GET  ADDRESS  OF  SYSTEM  LINE  TABLE 
IS  THE  LINE  ACTIVE? 
IF  PL,  NO 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

GET  ADDRESS  OF  KRB 

GET  ADDRESS  OF  CPU  URM  TABLE 

ARE  WE  RUNNING  ON  THE  CORRECT  PROCESSOR? 

IF  EQ,  NO 


GET  LINE  TABLE  ADDRESS 

AND  DDM  PDV  INDEX 

POINT  TO  POWERFAIL  FUNCTION  CODE 

DISPATCH  TO  DDM 

REDUCE  COUNT  OF  LINES  TO  SCAN 
LOOP  IF  MORE  TO  GO 
CLEAN  UP  THE  STACK 


POINT  TO  KMC  LOADER  TASK  NAME 
SCAN  TO  FIND  TASK'S  TCB 
IF  CS,  TASK  NOT  INSTALLED 
CLEAR  DEFAULT  UIC 
REQUEST  TASK  TO  RUN 


PWRFL: 

MOV 
MOV 

#-1,aPWRF1 
aSLTNM,-(SP) 

10$: 

MOV 
DEC 
ASL 
ADD 
MOV 
TST 
BPL 

(SPl,R3 

R3 

R3 

aSLTMA,R3 

(R3),R3 

(R3) 

20$ 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

15$: 

BIT 
BEQ 
MOV 
MOV 
BIT 
BEQ 

.ENDC 
.ENDC 

*F2.MP,aFMS<2 

15$ 

L.KfiBA(R3),R5 

aCPURM,-(SP) 

K.URM(R5),a(SP)+; 

20$           ; 

MOV 
MOVB 
MOV 
CALL 

L.DDS(R3),R5    ; 
L.DDM(R3),R2 
0DFNC,R3 
aPDSPL 

20$: 

DEC 
BNE 
TST 

(SP) 

10$ 

(SPJ+         ; 

.IF  NDF 

I$$AS 

MOV 

CALL 

BCS 

CLR 

CALL 

#KMCL,R3 

aSfiSTD 

30$ 

R1 

aTSKRT 

.ENDC 

30$: 

MOV 
RETURN 

aSLTNM.aPWRFl 

KMCL: 

.IF  NDF 
.RAD50 

I$$AS 
/KMCL../ 

START  DISCONNECT  NOTIFICATION  ON  ALL  LINES 


TASK  NAME  OF  KMC  MICROCODE  LOADER 


K  13 
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75  .MCALL  SLTDF$,CCBDF$,SAVR6,RESRG 

77  000000  SLTDFS  ;  DEFINE  SYSTEM  LINE  TABLE  OFFSETS 

78  000000  CCBDFS  ;  DEFINE  CCS  OFFSETS 


K  U 


•«FILE«MD««AXDSPM 


AAAAAA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pppppppp 

MM      MM 

AAAAAA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pppppppp 

MM      MM 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp    pp 

MMMM  MMMM 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp    pp 

MMMM  MMMM 

AA      AA 

XX   XX 

DD 

DD 

SS 

pp    pp 

MM  MM  MM 

AA      AA 

XX   XX 

DO 

DD 

SS 

pp    pp 

MM  MM  MM 

AA      AA 

XX 

DD 

DD 

SSSSSS 

pppppppp 

MM      MM 

AA      AA 

XX 

DD 

DD 

ssssss 

pppppppp 

MM      MM 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

MM      MM 

AAAAAAAAAA 

XX   XX 

DD 

DD 

SS 

pp 

MM      MM 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

MM      MM 

AA      AA 

XX      XX 

DD 

DD 

SS 

pp 

MM      MM 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

MM      MM 

AA      AA 

XX      XX 

DDDDDDDD 

SSSSSSSS 

pp 

MM      MM 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

iiiir 

LL 

SS 

.L 

SS 

LL 

SS 

T 

LL 

SS 

T 

LL 

SSSSSS 

r 

LL 

SSSSSS 

T 

LL 

SS 

T 

LL 

SS 

T 

lL 

SS 

T 

LL 

SS 

T 

LLLLLLLLLL 

SSSSSSSS 

T 

LLLLLLILLL 

SSSSSSSS 

T 
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Symbol  table 


.  ABS.   177776 

000 

(RW, 

.GBL,ABS,OVR) 

0002AA 

001 

(RW, 

,LCL,REL,CONJ 

Errors  detected: 

0 

•«•  Assembler  statistics 


Work   file  reads:  0 

Work   f i le  writes :  0 

Size  of  work  file:  16127  Words  (  63  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-IIM/pLUS 


DB2:AXDSPM!'f47°n3°!l34]AXDSPM/CR/-SP=DB2:C1J]RSXMCM.SML/MLj130J10JNETL18/ML,[130J0JR3XM 


*  K  16 
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250 
251 
252 


C*0  V05 
JIODULE 


.ENDC 
.ENDC 


CESUB' 
iCALLK 
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-  MAPPED   SUBROUTINE    CALL 


L     1 


310 
?11 

V2 

3U 

315 

316 

317 

3!8 

319 

320 

321 

322 

323 

32A 

325 

326  000272 

527  000276 

328 

329 

330 

331 

332 

333  000302 

35A  000304 

335  000310 

336  0003H 

337  OCO3I6 

338  000320 
359  000324 
340  003526 
54'   000350 

'42 

345 
544 
545 
346 

547  000334 

548  000556 

549  000342 


35: 
351 


"00346 
D0352 
552  000356 
353  000360 
554 

355  C00364 
356 
357 
358 
359 
350 

361  000366 

362  000372 

363  000376 


.S8TTL  SCALLX  -  MAPPED  SUBROUTINE  CALL 

**-$CALLX-MAPPED  SUBROUTINE  CALL  TO  ANOTHER  PROCESS 

CALLING  SEQUENCE: 

JSR     R5, SCALLX 
.WORD  <ADDRESS  OF  SUBROUTINE  TO  CALL> 
.RAD50  <PROCESS  NAME> 

NOTE  THAT  THIS  SUBROUTINE  ASSUMES  THAT  THE  NAMED  PROCESS  EXISTS  IN  THE 
SYSTEM  AND  DOES  NOT  CHECK  IF  THE  PROCESS  IS  LOADED. 


000006 


016746 
016746 


01254S 

016701 
012102 
001776 
026215 
001373 
005725 
011267 


005741 
166701 
010167 
016602 
010566 
010205 


OOOOOOG 
OOOOOOG 


OOOOOOG 

000004 

OOOOOOG 


OOOOOOG 
OOOOOOG 
000012 
000012 


.IIF  NDF  KSSDAS  0FS=6 

.IIF  DF  K$$DAS  0FS=10 

SCALLX: :MOV     SCMPDV,-(SP) 
MOV     KISAR5,-(SP) 


10$: 


012667 
G12667 


OOOOOOG 
OOOOOOG 


.IF  DF 

KSSDAS 

MOV 

KINAR5,-(SP) 

.ENDC 

;  DF  KiSDAS 

MOV 

(R5)+,-(SP) 

SAVRG 

<R1,rJ>        ; 

MOV 

SPDVTA.RI 

MOV 

(R1)+,R2 

BEQ 

10$ 

CMP 

Z.NAM(R2),(R5)   ; 

BNE 

10$ 

MOV 

(R5)  + 

(R2),KISAR5 

.IF  DF 

K$$DAS 

MOV 

(R2),I<;INAR5     ; 

.ENDC 

;  DF  K$$DAS 

TST 

-(R1) 

nov 

$PDVTA,R1 

RI.SCMPDV 

MOV 

0FS*4(SP),R2 

MOV 

R5,0FSt4(SP) 

MOV 

R2,R5 

RESRG 

<R2,R1> 

CALL 

S(SP)t 

.IF  DF 

<$$DAS 

MOV 

(SP)»,K;INAR5    ; 

.ENDC 

;  DF  K.StDAS 

MOV 

(SP)',<ISAR5 

MOV 

{SP)»,$CMPDV 

RETURN 

STACK  OFFSET  FOR  R5 

STACK  OFFSET  FOR  R5 

SAVE  CURRENT  PDV  INDEX 

AND  CURRENT  PROCESS  MAPPING 


SAVE  INSTRUCTION  MAPPING 


SAVE  DESTINATION  SUBROUTINE  ADDRESS 

GET  2  FREE  REGISTERS 

POINT  TO  PDV  INDEX  TABLE 

GET  POINTER  TO  NEXT  PDV 

IGNORE  ZERO  ENTRIES 

DO  WE  HAVE  A  MATCH? 

IF  NE,  NO 

SKIP  OVER  PROCESS  NAME 

MAP  TO  DESTINATION  PROCESS 


ALSO  MAP  INSTRUCTION  SPACE 


BACK  UP  PDV  INDEX  TABLE  POINTER 
COMPUTE  PDV  INDEX 
AND  SAVE  IT 
SWAP  OLD  R5  AND  RETURN  ADDRESS 


RESTORE  REGISTERS 
CALL  THE  SUBROUTINE 

RESTORE  INSTRUCTION  MAPPING 


RESTORE  PROCESS  MAPPING 
RESTORE  CURRENT  PDV  INDEX 


M  1 
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L  2 


61    TIMEOUI  PROCESSOR 
10A    DISPATCH  A  PROCESS  TIMEOUT 


CEXCM  -  CEX  COMMON  DATABASE 
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68 
69 

+ 

COMMUNICATION  SYSTEM  COMM 

70 
71 
72 
73 
74  000000 

(  ORDERING  IMPACT 

- 

5PDVTA 

:.BLKW 

75  000002 

;SLTMA 

:.BLKW 

76  000004 

;llcta 

:.BLKU 

77  000006 

5PDVNM 

:.BLKU 

78  000010 

;SLTNM 

:.BLKU 

79  000012 

;CCBNM 

:.BLKU 

80  000014 

;ccBsz 

:.BLKW 

81  000016 

SRD8NM 

:.BLKU 

82  000020 

;rdbsz 

:.BLKW 

83  000022 

;SDBNH 

.-.BLKU 

84  000024 

SSDBSZ 

:.BLKW 

85  000026 

;CCBCT 

r.BLKW 

86  000030 

iCCBAF 

;.8LKU 

87  000032 

tLDBAF 

:.BLKW 

88  000034 

5CCBAL 

:.BLKU 

89  000036 

tRDBTH 

:.8LKU 

90  000040 

5CMPDV 

:.BLKU 

91  000042 

SZTIME 

:.8LKW 

92  000044 

93 

94 

$ZTIM2 

:.BLKW 

.IF  DF 

M$$PRO 

95 

.WORD 

0 

96 

.ENDC 

97 

98  000046 

000000 

ICMFRK 

r.WORD 

0 

99  000050 

000000 

.WORD 

0 

100  000052 

000000 

.WORD 

0            ; 

101  000054 

000052' 

.WORD 

.-2 

102 

103  000056 

000000 

.WORD 

0            ; 

104 
105 
106  000060 

'■ 

$T50Q: 

107  000060 

000000 

STIOOC 

•:.WORD 

0               :• 

108  000062 

000060' 

.WORD 

.-2 

109 

110  OOOOt 

$STMFC 

111 

".IF  NDF 

R$$MPL 

112  000064 

.00010 

.WORD 

FC.TIM*FS.STM   ; 

113 

.IFF 

;  NDF  R$$MPL 

114 

.WORD 

6 

115 
116 
117  000066 

.ENDC 

;  R$$MPL 

$T50CL 

118  000066 

000000  000000  000000 

STIOOC 

■•.WORD 

0,0,0,0,0    ; 

000074 

000000  000000 

119  COOIOO 

120 

121  000102 

122 

123 

000000 

.WORD 

0 

000000 

.WORD 

0               : 

.IF  DF 

M$$PRO 

ADDRESS  OF  PDV  ADDRESS  TABLE 
ADDRESS  OF  SLT  ADDRESS  TABLE 
ADDRESSS  OF  LLC  REVERSE  MAPPING  TABLE 
NUMBER  OF  PDV  ENTRIES 
NUMBER  OF  SYSTEM  LINES 

#  OF  CCB'S  ALLOCATED 

#  BYTES  /  CCB 

#  OF  RDB'S  ALLOCATED 

#  BYTES  /  RDB 

#  OF    SDB'S   ALLOCATED 

#  BYTES   /   SOB 

COUNTER  OF  CURRENT  #  OF  CCBS  IN  POOL 
COUNTER  OF  #  OF  CCB  ALLOCATION  FAILURES 
COUNTER  OF  #  OF  LDB  ALLOCATION  FAILURES 
COUNTER  OF  #  OF  DYNAMIC  CCB  ALLOCATIONS 
POOL  THRESHOLD  FOR  LDB  ALLOCATON  FAILURE 
PDV  INDEX  OF  CURRENT  DISPATCHED  PROCESS 
TIME  SINCE  COUNTERS  LAST  ZEROED 
TIME  SINCE  SYSTEM  LAST  ZEROED 


UNIBUS  RUN  MASK 


INITIAL  LINK  MARKS  FORK  BLOCK  FREE 
ADDRESS  OF  FORK  PROCESS 
FORK  PROCESS  QUEUE 


APR5  BIAS  FOR  FORK  LEVEL  DISPATCH 
FREE  WORD  ON  UNMAPPED  SYSTEMS 


PHASE  III  COMPATIBILITY 
100  MSEC  TIMER  QUEUE 


FUNCTION  CODE  TO  DISPATCH  50  MSEC  TIMEOUTS 


PHASE  i:i  COMPATIBILITY 
100  MSEC  CLOCK  QUEUE  ENTRY 

ADDRESS  OF  PROCESSING  ROUTINE 

(FILLED  IN  BY  NTL) 

APR5  BIAS  FOR  LOADABLE  DRIVERS 
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58 
59 
60 
61 


DECnet-Micro/RSX   Vl.O 


L    f 
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5A5 

5^.6 

547 

5A8 

5A9 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

56A 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 
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.WORD 

27600 

.WORD 

167501 

.WOf)D 

26400 

.WORD 

166701 

.WORD 

166201 

.WORD 

26100 

.WORD 

162001 

.WORD 

22300 

.WORD 

22600 

.WORD 

162501 

.WORD 

23400 

.WORD 

163701 

.WORD 

163201 

.WORD 

23100 

.WORD 

21000 

.WORD 

161301 

.WORD 

161601 

.WORD 

21500 

.WORD 

160401 

.WORD 

20700 

.WORD 

20200 

.WORD 

160101 

.WORD 

120001 

.WORD 

60300 

.WORD 

60600 

.WORD 

120501 

.WORD 

61400 

.WORD 

121701 

.WORD 

121201 

.WORD 

61100 

.WORD 

63000 

.WORD 

123301 

.WORD 

123601 

.WORD 

63500 

.WORD 

122401 

.WORD 

62700 

.WORD 

62200 

.WORD 

122101 

.WORD 

66000 

.WORD 

126301 

.WORD 

126601 

.WORD 

66500 

.WORD 

127401 

.WORD 

67700 

.WORD 

67200 

.WORD 

127101 

.WORD 

125001 

.WORD 

65300 

.WORD 

65600 

.WORD 

125501 

.WORD 

64400 

.WORD 

124701 

.WORD 

124201 

.WORD 

64100 

.WORD 

74000 

.WORD 

134301 

.WORD 

134601 

STCRCF 
MACRO  DE 

63 

M 
65 
66 
67 
68 
69 
70 
71 
72 
71 
"4 
75 
76 
77 
78 
79 
80 
81 
?2 
83 
84 
85 
86 
87 


MACRO  V05.03b  Friday   28-Jun-85   18:22     Page  6 
F1N1T10^JS 

.SBTTL 

.MCALL 


L  6 

MACRO  DEFINITIONS 
CCBDF$,NHWDF$,SAVRG,RESRG 


000000 
000000 


CCBDFS 
NHWDFS 


DEFINE  CCB  OFFSETS 
DEFINE  HARDWARE  REGISTERS 


DEFINE  LOCAL  MACROS 

.IF  DF  P$$';0!P$$3AIP$$45!P$$70IL$$SI1!M$$MGE 


000000 


R$$EIS=0 

.ENDC 

.IF  NDF  R$$EIS 


.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENDM 

.ENDC 


XOR.A.B 

A,R3 

B,R3 

A.B 

R3,8 

XOR 


PROCESSOR  HAS  XOR  INSTRUCTION 


COPY  A 

A  <-  A  AND  NOT  B 
B  <-  B  AND  NOT  A 
B  <-  A  OR  B 


J 


STCRCF     MACRO  V05.03b  Friday  28-Jun-85   If 
MODIFIER    TABLE    FOR   SOFTWARE    CRC 


602  000742 

603  0007A4 

604  000746 

605  000750 

606  000752 

607  000754 

608  000756 

609  000760 

610  000762 

611  000764 

612  000766 

613  000770 

614  000772 

615  000774 

616  000776 

617  001000 

618  001002 

619  001004 
^,20  001006 
',,  !  001010 

622  001012 

623  001014 

624  001016 

625  001020 

626  001022 

627  001024 

628  001026 

629  001030 

630  001032 

631  001034 

632  001036 

633  001040 

634  001042 

635  001044 

636  001046 

637  001050 


074500 
135401 
075700 
075200 
135101 
137001 
077300 
077600 
157501 
076400 
136701 
136201 
076100 
132001 
072300 
072600 
132501 
073400 
133701 
133201 
073100 
071000 
131301 
131601 
071500 
130401 
070700 
070200 
130101 
050000 
110301 
110601 
050500 
111401 
051700 
051200 


638 

001052 

111101 

639 

001054 

113001 

640 

001056 

053300 

641 

001060 

053600 

642 

001062 

113501 

643 

001064 

052400 

644 

001066 

112701 

645 

001070 

112201 

646 

001072 

052100 

647 

001074 

116001 

648 

001076 

056300 

649 

001100 

056600 

650 

001102 

116501 

651 

001104 

057400 

652 

001106 

117701 

653 

001110 

117201 

654 

001112 

057100 

655 

001114 

055000 

656 

001116 

115301 

657 

001120 

115601 

658 

001'22 

055500 
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.WORD 

74500 

.WORD 

135401 

.WORD 

75700 

.WORD 

75200 

.WORD 

135101 

.WORD 

137001 

.WORD 

77300 

.WORD 

77600 

.WORD 

137501 

.WORD 

76400 

.WORD 

136701 

.WORD 

136201 

.WORD 

76100 

.WORD 

132001 

.WORD 

72300 

.WORD 

72600 

.WORD 

132501 

.WORD 

73400 

.WORD 

133701 

.WORD 

133201 

.WORD 

73100 

.WORD 

71000 

.WORD 

131301 

.WORD 

131601 

.WORD 

71500 

.WORD 

130401 

.WORD 

70700 

.WORD 

70200 

.WORD 

130101 

.WORD 

50000 

.WORD 

110301 

.WORD 

110601 

.WORD 

50500 

.WORD 

111401 

.WORD 

51700 

.WORD 

51200 

.WORD 

111101 

.WORD 

113001 

.WORD 

53300 

.WORD 

53600 

.WORD 

113501 

.WORD 

52400 

.WORD 

112701 

.WORD 

112201 

.WORD 

52100 

.WORD 

116001 

.WORD 

56300 

.WORD 

56600 

.  WORD 

116501 

.WORD 

57400 

.WORD 

r  7701 

.WORD 

1  7201 

.WORD 

57100 

.WORD 

55000 

.WORD 

115301 

.WORD 

115601 

.WORD 

55500 

L  7 
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STCRCK     MACRO  V05.03b  Frida 
DEFINE    KG-11    REGISTERS   AND 


'  28-Jun-85  18:22 
UTS 


Page  7 


L  8 


90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 


.SBTTL  DEFINE  KG-11  REGISTERS  AND  BITS 


170700 
000001 
000003 
000010 
000020 
000100 
000133 

oooni 


KGCSR=170700 

CRC16=1 

LRC16=3 

DDB=10 

CLRKG=20 

SEN=100 

K6LDBC=DDB 

KGINIT=DDB 


lrci6;clrkg: 

CRC16ISEN 


SEN 


KG-11  CSR 

USE  CRC-16  POLrNOMIAL 

USE  LRC-16  POLYNOMIAL 

SET  TO  WORD  MODE 

INITIALISE  KG-11 

ENTER  CrCLE  MODE 

LOAD  NEW  BCC  ACCUMULATION 

INIT  TO  DO  CRC-16  CALCULATION 


STCRCK  MACRO  V05.03b  friday  28-Jun-85  18:22  Page  12-4 
STCR2  -  CALCULATE  CRC 


L  9 


659 

660 

661 

662 

663 

66A 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

67u 

679 

680 

681 

682 

683 

68A 

685 

686 

687 

688 

689 

590 

691 

692 

693 

694 

695 

696 

697 

698  .WORD   0  .-SECOND  HALF  OF  TABLE 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715  .ENDC 


WORD 

114401 

WORD 

54700 

WORD 

54200 

WORD 

114101 

WORD 

104001 

WORD 

44300 

WORD 

44600 

WORD 

104501 

WORD 

45400 

WORD 

105701 

WORD 

105201 

WORD 

45100 

WORD 

'.7000 

WORD 

107301 

WORD 

107601 

WORD 

47500 

WORD 

106401 

WORD 

46700 

WORD 

46200 

WORD 

106101 

WORD 

42000 

WORD 

102301 

WORD 

102601 

WORD 

42500 

WORD 

103401 

WORD 

43700 

WORD 

43200 

WORD 

103101 

WORD 

101001 

WORD 

41300 

WORD 

41600 

WORD 

101501 

WORD 

40400 

WORD 

100701 

WORD 

100201 

WORD 

40100 

IFF 

WORD 

0 

.WORD 

146001 

.WORD 

154001 

.WORD 

12000 

.WORD 

170001 

.WORD 

36000 

.WORD 

24000 

.WORD 

162001 

.WORD 

120001 

.WORD 

66000 

.WORD 

74000 

.WORD 

132001 

.WORD 

50000 

.WORD 

116001 

.WORD 

104001 

.WORD 

42000 

n 
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Macro  definitions 


120 

121 

122 

123  000076 

12^  000100 

125  000104 

126 

127 

128 

129  000106 

130  000112 

131  0001U 
152  000116 
133 

13A 
135 
136 
137 
138 
139 
HO 
U1 
K2 
H3 
U4 
US 
U6 

H8 
U9 
150 

151  000122 

152  000126 

153  000132 
15A  000136 

155  OOOUO 

156  000U4 
157 

158 

159 

160 

161 

162 

163 

16A 

165 

166  000150 

167 

168 

169 

170  000156 

171  000162 

172  00016A 

173  00017? 
174 

175  000174 

176  000176 


006302 

067702     OOOOOOG 

011202 


032712  000007 

001746 

105312 

005377  OOOOOOG 


01C364  000006 

016205  000004 

116202  000002 
010403 

062703  000010 


22$: 


25$: 


103413 

012764  001002  000010 

000716 

005704 

001402 


30$: 


Page  6-1 


.IFF 

ASL 
ADD 
MOV 

.ENDC 

BIT 
BEQ 
DECS 
DEC 


L  10 


R2 

aSLTMA,R2 

(R2),R2 


#LF.8WT,(R2) 

10$ 

(R2) 

aRDQCT 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

GET  START  ADDRESS  OF  SLT  ENTRY 


ANY  WAIT  REQUESTS  HERE  ? 
IF  EQ,  NO  -  TRY  NEXT  LINE 
REDUCE  NUMBER  OF  WAIT  REQUESTS 
REDUCE  NUMBER  OF  WAIT  REQUESTS 


.IF  DF  R$$MPL 


NDF 


.IF 

BIT 

BEQ 

MOV 

MOV 

CLRB 

MOV 

MOV 

CALL 

BR 


.ENDC 

.IFTF 

MOV 

MOV 

M0V8 

MOV 

ADD 

CALL 

.ENDC 

.IF  DF 

MIPS 

.IFF 

MIPS 

.ENDC 

CALL 
BCS 
MOV 
BR 


TST 
BED 


R$$PRO 

*F2.MP,aFMSK2 
22$ 
L.KRBA(R2),R5 


IS  THIS  A  MULTI 

BR  IF  NO 

GET  KRB  ADDRESS 


PROCESSOR? 


K.URM(R5),C.URM(ft4)  ;  AND  SET  UP  UNIBUS  RUN  MASK 

C.M0D{R4)        ' 

R3,C.NSP(R4) 
#100000, R3 
aPDQUE 
25$ 


CHANGE  SUB-FUNCTION  CODE 
SAVE  SYSTEM  LINE  NUMBER 
SET  UP  DESTINATION  PROCESS  (AUX) 
AND  RE-QUEUE  ON  CORRECT  PROCESSOR 


R3,C.LIN<R4) 

L.DDS(R2),R5 

L.DDM(R2),R2 

R4,R3 

#C.FNC,R3 

aPDSPL 


R$$110!I$!AS 
*PR3 


*PRO 


SET  SYSTEM  LINE  NUMBER  IN  CCB 
SET  PROCESS  LINE  TABLE  ADDRESS 
SET  PROCESS  PDV  INDEX 
COMPUTE  ADDRESS  OF  FUNCTION  CODE 

:.■ 'dispatch  to  PROCESS 


DROP  BACK  TO  PRIORITY  THREE 


;  DROP  BACK  TO  PRIORITY  ZERO 


aRDBGT         ;  TRY  FOR  ANOTHER  BUFFER 

50$  ;  IF  CS,  NO  BUFFER  -  EXIT 

*FC.RCEtFS.RTN,C.FNC(R4) 

10$  ;  TRY  TO  SATISFY  ANY  OTHER  WAIT  REQUESTS 


R4 

40$ 


BUFFER  TO  RETURN 
IF  EQ,  NO  -  EXIT 


~1 
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Symbol  table 


ALOCB 

ASCMP 

A$$CH<= 

A$$CPS= 

A$SPRI= 

A$$TRP= 

CCBGT 

CCBRT 

CEACC 

CEDIV 

CLINS 

CMFRK 

CXOPT 

C$$CKP= 

C$$ORE= 

C$$RSH=: 

DDAST 

DDCCP 

DDFNC 

DDMSN 

DEACB 

OSPTM 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$SYNC= 

D$$yNM= 

EXRQF 

EXRQN 

E$$XPR= 

FMSK2 

F$$LVL= 

G$$TPP= 

G$$TSS= 


OOOOOARG 

000032RG 

000000 

000000 

000000 

000000 

000034RG 

000036RG 

OOOOAORG 

000042RG 

000006RG 

000044RG 

0OO0A6RG 

000000 

000400 

177564 

000050RG 

0OO052RG 

000054RG 

000056RG 

00001  ORG 

000060RG 

1775U 

000000 

000001 

000000 

000000 

00001 2RG 

OOOOKRG 

000000 

00001 6RG 

000001 

000000 

000000 


G$$TTK= 

G$$WRD= 

INTCT 

I$$RAR= 

I$$RON= 

KISAR6= 

KSAR6 

K$$CNT= 

<$$CSR= 

K$$LDC= 

K$$TPS= 

LDSLP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

N$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

l*l$$NET  = 

M$$OVR= 

NMCLH 

NMCL2 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PDDSP 

PDQUE 


000000 

000000 

000020RG 

000000 

000000 

******  GX 

000002RG 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000062RG 

000064RG 

000001 

000.01 

000001 

000001 

000001 

000010 

000001 

000001 

000066RG 

000070RG 


.  ABS.  000000    JOG 
0C:i62    001 
Errors  detected:   0 

♦•♦  Assembler  statistics 


tRW,!,G8L,ABS,0VR) 
(RW,I,LCL,REL,CON) 


PDSPL 

PDVNM 

PDVTA 

PUMR 

PURFl 

P$$P45= 

P$$WRD= 

QSTRT 

Q$$0PT= 

RDBGT 

RDBNM 

RDBRT 

RD8SZ 

RD8TH 

RDQCT 

RDQSL 

R$$DER= 

Rt$K11= 

R$$SND= 

R$$11M= 

SLTMA 

SLTNM 

SQRCM 

SRSTD 

STDD1 

STDLC 

STDL1 

STMFC 

S$$WRG= 

S$$YSZ= 

TKPS 

TK100 

TSKRT 

TSTIM 


000072RG 

000074RG 

000076RG 

000100RG 

000102RG 

000000 

000000 

000104RG 

000010 

000106RG 

000110RG 

000112RG 

0001 14RG 

0001 16RG 

000120RG 

000122RG 

000000 

000001 

000000 

000000 

0001 24RG 

000126RG 

000130RG 

000022RG 

000132RG 

000134RG 

000136RG 

000140RG 

000000 

007600 

000024RG 

000142RG 

000026RG 

000144RG 


T$$KMG= 

T$$MIN= 

T1SCL 

T100C 

T1000 

UMRPT 

V$$CTR= 

XAVL 

X$$DBT= 

ZTIME 

ZTIM2 

$AL0C8= 

$ASCHP= 

$AUXVL= 

$AUXVT 

$CCBGT= 

$CC6RT= 

$CEACC= 

$CEDIV= 

$CLINS= 

$CMFRK= 

$CX0PT= 

$DDAST= 

$DDCCP= 

$DDFNC= 

$DDMSN= 

$DEACe= 

$DSPTM= 

$EXRQF= 

$EXRQN= 

$FMASK= 

$INTCr= 

$NMCLH= 

$NMCL2= 


000000 
000000 
000146RG 
0001 50RG 
0001 52RG 
000030RG 
001000 
000154RG 
000000 
0001 56RG 
000160R6 
******  GX 
******  GX 
000070  G 
00O0O0R6 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


$PDDSP= 

****** 

GX 

$PDQUE= 

****** 

GX 

$PDSPL= 

****** 

GX 

$PDVNM= 

****** 

GX 

$PDVTA= 

****** 

GX 

$PUHR  = 

****** 

GX 

$PWRF1= 

****** 

GX 

$QSTRT= 

****** 

GX 

$RD8GT= 

****** 

GX 

$RDBNM= 

****** 

GX 

$RDBRT= 

****** 

GX 

$RDBSZ= 

****** 

GX 

$RDBTH= 

****** 

GX 

$RDQCT= 

****** 

GX 

$RDQSL= 

****** 

GX 

$SLrMA= 

****** 

GX 

$SLTNM= 

****** 

GX 

$SQRCM= 

****** 

GX 

$SRSTD= 

****** 

GX 

$STDD1= 

****** 

GX 

$STDLC= 

****** 

GX 

$STDL1= 

****** 

GX 

$ST|V|FC  = 

****** 

GX 

$TKPS  = 

****** 

GX 

$TK100= 

****** 

GX 

$TSKRT= 

****** 

GX 

$TSnM= 

****** 

GX 

$T1SCL= 

*  V**** 

GX 

$nooc= 

GX 

$nooQ= 

****** 

GX 

$UMRPT= 

****** 

GX 

SXAVL  = 

GX 

$ZTIME= 

****** 

GX 

$ZTIM2= 

****** 

GX 

Work  file  reads:  0 
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80 

81 

82 

83 

84  000000 

85  000000 

000001 • 

86  000002 

OOOOOOG 

87  000004 

000005' 

88 

89  000006 

OOOOOOG 

90 

91  000010 

000034" 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103  000012 

000013' 

104  000014 

000015' 

105  000016 

000017' 

106  000020 

000030' 

107 

108  000022 

000172' 

109 

110 

111 

112  000024 

000312' 

113 

114 

115 

116 

117 

118 

119  000026 

120  000030 

AUXILARY  PROCESS  DISPATCH  TABLE 


SAUXTB:: 


.WORD 

.+1 

.WORD 

$8FRTN 

.WORD 

.  +  1 

.IF  DF 

XSSHDC 

.WORD 

MDMCTL 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

MDMSCN 

.ENDC 

.IFF 

.WORD 

.+1 

.IF  DF 

P$$RFL 

.WORD 

PWFAIL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.ENDC 

.WORD 

.  +  1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

CCBRET 

.IF  DF 

P$$RFL 

.WORD 

PWRFL 

.IFF 

.WORD 

DUMMY 

.ENDC 

.WORD 

NMCMP 

.IF  NDF 

X$$MDC 

imClH:: 

.ENDC 

DUMMY:   RETURN 

CC8RET:  CALLR 

aCCBRT 

TRANSMIT  ENABLE  (NOP) 
RECEIVE  ENABLE 
KILLIO  (NOP) 

MODEM  CONTROL  CONTROL  ROUTINE 

PERFORM  POWERFAiL  RECOVERY 

TIMEOUT  ENTERS  SCAN  ROUTINE 

CONTROL  ENABLE  (NOP) 
PERFORM  POWERFAIL  RECOVERY 
TIMEOUT  (NOP) 

TRANSMIT  COMPLETE  (NOP) 

RECEIVE  COMPLETE  (NOP) 

KILL  COMPLETE  (NOP) 

CONTROL  COMPLETE  -  RELEASE  CCB 

POWERFAIL  DISPATCH  TO  DDM  MODULES 

POWERFAIL  DISPATCH  TO  DDM  MODULES  (NOP) 

NETWORK  MANAGEMENT  COUNTER  COMPLETION 


HXDSP'O  -  40XILL1AR'  BROCESS  DIS  MACRO  «05.05b  Ijesday  0?-Sep-85  1 
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#7-120 
10-308 


10-286 
#7-119 
7-115 
10-277 


SYMBOL 

VALUE 

REFERENCES 

CB.CCB 

^  000002 

10-306 

CCBRET 

000030  R 

7-106 

CCBRT 

=  ..»«»•  Gx 

7-120 

CS.LST 

=  OAOOOO 

10-303 

C.ADD 

00003A 

10-270 

C.BID 

000003 

10-306 

C.CNT2 

000030 

10-274 

C.STS 

000012 

•10-303 

DUMM* 

000026  R 

7-110 

EXRQN 

=  .•»»««  Gx 

10-304 

I$SAS 

-  ****** 

5-1 

LF.ACT 

=  100000 

#6-77 

LF.BRO 

=  000400 

#6-77 

LF.8WT 

=  000007 

#6-77 

LF.ENA 

=  002000 

#6-77 

LF.LPB 

=  001000 

#6-77 

LF.MDC 

=  000100 

#6-77 

LF.MFL 

=  004000 

#6-77 

LF.MTP 

=  000020 

#6-77 

LF.PAC 

=  000200 

#6-77 

LF.RDV 

=  040000 

#6-77 

LF.REA 

=  010000 

#6-77 

LF.SER 

=  000040 

#6-77 

LF.TIM 

=  000010 

#6-77 

LF.UNL 

=  020000 

#6-77 

LF.X2P 

=  000000 

#6-77 

LN.CLO 

=  000000 

#6-77 

LN.DUM 

=  000005 

#6-77 

LN.LOA 

=  000004 

#6-77 

LN.LOO 

=  000003 

#6-77 

LN.OAU 

=  000003 

#6-77 

LN.OFF 

=  000001 

#6-77 

LN.ON 

=  000000 

#6-77 

LN.OOP 

=  000004 

#6-77 

LN.OPE 

=  000001 

#6-77 

LN.REF 

=  000002 

#6-77 

LN.5ER 

=   000002 

#6-77 

LN.STA 

:^  000017 

#6-77 

LN.SUB 

=  000360 

#6-77 

ln.tr: 

=  000006 

#6-77 

L.COST 

000015 

#6-^7 

L.CTL 

000012 

#6-77 

L  .  C  V'A 

177776 

#6-77 

L.DDM 

000002 

#6-77 

L.DDS 

000004 

#6-77 

L.DLC 

000003 

#6-77 

L.DL*I 

000006 

#6-77 

L.DLS 

000010 

#6-77 

1  .FlG 

000000 

#6-77 

L.KRBA 

000016 

#6-'7 

L.LEN 

=  000022 

#6-77 

'  .Mpf 

000022 

#6-77 

10-279 
10-281 


10-285 


L  16 
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254 

255 

256 

257 

258 

259 

260 

261 

262 

26B 

264 

265 

266 

267  000304 

268 

269  000310 

270  000312 

271  000316 

272  000320 
273 

274  000322 

275  000326 

276  000330 

277  000334 

278  000342 

279  000344 

280  000352 

281  000354 

282  000362 

283  000364 

284  000366 

285  000370 

286  000374 

287  000400 

288  000402 

289  000406 

290  000412 

291  000416 
292 

293  000420 

294  000424 

295  000430 
296 

297  000432 

298  0004  36 

299  000440 
500  000444 

301  000446 

302  000450 

503  000452 

504  000460 
305 

j06  000464 

307  000472 

308  000474 
305  COO 500 
310  000502 


.S8TTL  NETWORK  MANAGEMENT  COUNTER  COMPLETION 

"-NMCMP-NETUORK  MANAGEMENT  COUNTER  COMPLETION 

THIS  ROUTINE  IS  ENTERED  WHEN  A  NETWORK  MANAGEMENT  REQUEST  FOR  COUNTERS 

HAS  BEEN  COMPLETED  BY  A  LOWER  LEVEL  PROCESS. 

THE  ROUTINE  ALSO  REQUESTS/UNSTOPS  NETACP  TO  PROCESS 

REQUESTS  FOR  LINE  WATCHER 


INPUTS: 


R4  =  ADDRESS  OF  COUNTER  CCB 


054134 

010403 
062703 
005713 
001041 

116403 
006303 
067703 
032773 
001026 
032773 
001005 
032773 
001416 
000437 
011303 
062703 
116401 
001404 
062703 

032713 
001022 


012703  000304' 


003310 
000034 

000030 

OOOOOOG 
000400  000000 

000020  000000 

000040  000000 

000022 
000051 

000004 

000001 


NMCMP: 


103415 

017703 
010413 
010477 
010403 
011404 
001375 
052765 


122764 
001002 


OOOOOOG 
OOOOOOG 

040000  000012 
000002  000005 


5$: 

10$: 
20$: 


30$: 
40$: 


50$: 

60$: 
70$: 


.RAD50 

/NETACP/ 

MOV 

R4,R3 

ADD 

#C.ADD,R3 

TST 

CR3) 

BNE 

40$ 

MOVE 

C.CNT2(R4),R3   ; 

ASL 

R3 

ADD 

aSLTMA,R3 

BIT 

#LF.BR0,a(R3) 

BNE 

30$ 

BIT 

#LF.MTP,a(R3) 

BNE 

5$ 

BIT 

#LF.SER,a(R3) 

BEQ 

30$ 

BR 

60$ 

MOV 

(R3),R3 

ADD 

#L.LEN,R5 

MOVB 

C.CNT2tl(R4),R1  . 

BEQ 

20$ 

ADD 

*S.LEN,R3 

SOB 

R1,10$ 

BIT 

*SF.SER,(R3) 

BNE 

60$ 

MOV 

#NETACP,R5 

CALL 

aSRSTD 

BCS 

60$ 

MOV  aNMCL2,R3 

MOV  R4,(R3) 

MOV  R4,aNMCL2 

MOV  R4,R3 

MOV  (R4),R4 

BNE  50$  , 

BIS  #CS.LST,C.STS(R3) 

CALLR  aEXRQN 

CMP8  #CB.CCB,C.BID(R4) 

BNE  70$ 

CALLR  aCCBRT 

SAVRG  <(R4)> 

CALL  aRDSRT 


Copy  the  ccb  address 
Point  to  the  task  name 
Is  It  for  NETACP  ? 
If  NF,  no 

C.'py  SLN 

Form  word  index 

Point  to  Line  table  address 

Is  it  a  broadcast  channel? 

If  NE,  yes  -  EPM  already  filtered  it. 

Is  it  mult''point? 

If  NE,  )fes  -  check  station  table 

Is  service  disabled  ? 

If  EQ,  no  -  allow  request 

Else,  toss  the  request 

Get  to  the  end  of  the  line  table 

Get  the  station  number 

Mo\/e  to  the  correct  station  table 

Is  service  disabled  ? 

If  NE,  yes  -  toss  the  request 

Else  start  up  NETACP 
Scan  STD  for  task's  TCB 
If  CS,  not  there  I  I 

Get  address  of  net  man  listhead 

Add  CCB  to  end  of  head  pointer 

Update  the  tail  pointer 

Copy  possible  'last'  buffer  address 

Else,  get  to  the  end  of  this  chain 

If  NE,  get  next  buffer 

;  Else,  set  end  of  chain  flag 

Request  the  task  (unstop  or  request) 

;  Is  it  a  CCB  ? 

If  NE,  no 

Return  the  CCB 

Save  the  next  in  the  chain 

Return  this  one 


CESuB' 


ACCESS  Block,  in  extended  pool 


5fc5 
366 
If 
568 

369 
I7r, 

37' 
372 
373 

375 
3-6 
377 
378 
379 
38C 
581 
382 
383 
38s 
38S 
586 
387 
388 
389 

390  000400 

391  000A06 

392  OOO-iU 

393  000416 

394  00042C 

395  000424 
596  000452 
397 

398 

399 

400  CC044C 

40' 

402 
403 

404 

405 
406 

40? 

408 

405 

,10  000444 

411  000450 

412  0004 '^4 

413  ooc4';6 


.SBTTL 
.S8TTL 


n  1 


SCEACC  -  ACCESS  BLOCK  IN  EXTENDED  POOL 

tCECAC  -  ACCESS  BLOCK  IN  ALTERNALE  EXTENDED  POOL 


••-SCEACC-ACCESS  bLUCK  IN  EXTENDED  POOL 
••-SCECAC-ACCESS  BLOCK  IN  ALTERNALE  EXTENDED  POOL 

THIS  SUBROUTINE  MAPS  TO  A  BLOCK  IN  EXTENDED  SINGLE  WORD  POOL, 
AND  RETURNS  A  VIRTUAL  ADDRESS  TO  ACCESS  THE  BLOCK.   IF  THE 
SCECAC  ENTRY  IS  CALLED,  THE  EXTENDED  POOL  MUST  ALREADY  BE  MAPPED 
VIA  APR6. 

INPUTS: 

2{SP)  =  ADDRESS  OF  BLOCK  TO  BE  ACCESSED 

K1SAR6  MAPPED  TO  ALTERNATE  EXTENDED  POOL  BASE  (SCECAC) 


OUTPUTS: 

2(SP) 


016767 
032766 
001420 

016600 
042766 
^^2766 


000004 
177701 
'40000 


000004 
000004 


072027     177772 


042700 
060067 


176000 

oooor.O'-, 


VIRTUAL  ADDRESS  OF  MAPPED  BLOCK 


NOTE: 


KISAR6  ALWAYS  MAPPED  INTO  EXTENDED  POOL  ON  EXIT  EVEN  IF  BLOCK 
IS  IN  OSR. 


OOOOOOG  OOOOOOG  ■5CEACC::M0V 
000001  000002  SCECAC ::8IT 


BEO 

SAVRG 

MOV 

SIC 

BIS 


$X8IAS,KISAR6 

#1,2(SP) 

106$ 

<R0> 

4(SP),R0 

#177701, 4(SP) 

#140000, 4(SP) 


.IF  DF  R$$EIS 
ASH  #-6,R0 
.IFF    ;  DF  RItEIS 


100$: 


.REPT 

ROR 

.ENDR 

.ENDC 

BIC 
ADD 
RESRG 
RETURN 


6 
RO 


;  DF  R$$E!S 

#176000, RO 

RC,KI5AR6 

<R0> 


MAP  TO  BASE  ADDRESS  OF  POOL 

IS  THE  BLOCK  IN  EXTENDED  POOL  ? 

IF  EO,  NO  -  ALREADY  MAPPED  TO  IT 

ELSE,  SAVE  RO 

COPY  BLOCK  ADDRESS 

RETURN  VIRTUAL  ADDRESS 

...  MAPPED  THROUGH  K1SAR6 


CONVERT  ADDRESS  TO  £LuCK  BIAS 


CLEAR  EXTRANEOUS  BITS 

...  UPDATE  TO  PROPER  BLOCK 

RESTORE  RO 

PETURN  TO  THE  CALLER 


M   1 


J 
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M  2 


2 
3 

5 
6 

7 
8 
9 

10 

n 

12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 
54 
55 

56  OOOOOl 

57  00000' 


.TITLE   CETIM 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  HAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  TIMER  SERVICE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


.MCALL  INHIB$,ENABL$,SAVRG,RE5RG 

.MCALL  CC6DF$,SLTDFS,PDVDFt 

CC8DF$  ;  DEFINE  THE  CC8  OFFSETS 

SLTDfS  ;  DEFINE  THE  5LT  OFFSETS 


OF 


M  3 
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124 
125 
126 

127  0001 OA 
128 

129  OOOIO', 
130 
131 
132 
133 

13A  000106 
000114 
135  000120 
136 

137  000122 
138 
139 
140 
141 
142 

143  000124 

144  000126 

145  000130 
146 

147  000132 

148 

149  000132 

150 

151 

152 

153 

154  000134 

155  000136 

156  000140 

157  000142 

158  000144 

159  000146 

160  000150 

161  000152 

162  000154 

163  000156 

164  000160 

165  000162 

166  000164 
167 

168  000166 

169  000170 

170  000172 
171 

172  000174 
173 

174  000176 

175  000200 

176  000202 

177  000202 

178  000204 

179  000206 


001010 


000000  000000 
000000  000000 
000000 

000000 


000000 
000000 
000000 


000022 


000000 
000000 


SLTMFC: 


.WORD 
.ENDC 


.IF   NDF  R$$MPL 


.WORD 
.IFF 
.WORD 
.ENDC 


FC.TIMtFS.LTM 

;  NDF  R$$HPL 

0 

;  NDF  R$J.MPL 


000000  $T1SCL::.W0RD   0,0,0,0,0 


.WORD 
.WORD 


SDECPT 
SPSIPT 
SSNAPT 

SDDFNC: 


$CC8LH 
SSDBCT 
SSDBLH 

SSDBAF 
SRDBCT 
SRDBLH 

SRDBAF 
SRDQSL 
$RDQC: 
SNTLPT 
SCXOPr 

SNBIAS; 
SQBIAS. 
SQSTRT: 

$PUMR .- : 

SPWRFI 

sxaiAs 

$PAVL: 
$XAVL: 
SNMLST 
$0SJHD 


.IF  DF  l*l$$PR0 

.WORD  0 
.ENDC 

.WORD  0 

.WORD  0 

.WORD  0 


.IF  NDF  R$$MPL 


.WORD 
.IFF 
.WORD 
.ENDC 

.8LKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 

.BLKW 

.BLKW 

.IF  NDF 

.BLKW 

.ENDC 

.BLKW 

.BLKW 


.WORD  0 
.WORD  0 
.BLKW   1 


FC.PWR 

;  NDF  R$$MPL 

0 

;  NDF  R$$MPL 


R$$MPL 


Unibus  run  mask 


;  FUNCTION  CODE  TO  DISPATCH  LONG  TIMEOUTS 


1  SECOND  CLOCK  QUEUE  ENTRY 

ADDRESS  OF  PROCESSING  ROUTINE 

(FILLED  IN  BY  NTL) 

APR5  BIAS  FOR  LOADABLE  DRIVERS 


Unibus  run  mask 


Pointer  to  DECnet  Home  Block 
POINTER  TO  PSI  HOME  BLOCK 
POINTER  FOR  SNA 


POWERFAIL  RECOVERY  FUNCTION  CODE 


POINTER  TO  FIRST  FREE  CCB 
COUNTER  OF  CURRENT  SDB'S  IN  POOL 
POINTER  TO  FIRST  FREE  SMALL  DATA  BUFFER 
SECOND  HALF  OF  ADDRESS  0OU8LEWORD 
COUNTER  OF  #  OF  SD8  ALLOCATION  FAILURES 
COUNTER  OF  CURRENT  RDB'S  IN  POOL 
POINTER  TO  FIRST  FREE  RECEIVE  BUFFER 
SECOND  HALF  OF  ADDRESS  DOUBLEWORD 
COUNTER  OF  #  OF  RD8  ALLOCATION  FAILURES 
SYSTEM  LINE  #  TO  CHECK  ON  NEXT  BUFFER  RETURN 
NUMBER  OF  BUFFER  WAIT  REQUESTS  AND  FLAG 
NTL  POINTER  TO  IMPURE  AREA  IN  NTPOOL 
COMM/EXEC  OPTIONS  INCLUDED 

POINTER  TO  NON-UMR  MAPPED  POOL 
POINTER  TO  UMR-MAPPED  PORTION  OF  POOL 
ORIGINAL  BIAS  OF  UMR-MAPPED  PORTION  OF  POOL 

STARTING  L  '■  BIAS 

POWE"  fa; I  ,  LAG 

BIAS  OF  t,:TFNDED  SINGLE  WORD  POOL 

PHASE  111  >..-1PATIBILITY 

POINTER  TO  FIRST  FREE  BLOCK  IN  EXTENDED  POOL 

Logical  Name  Listhead 

OBJECT  TABLE  LISTHEAD 


STCRC 
MACRO  DE 

65 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
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000000 
000000 
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.SSTTL 

.MCALL 

CCBDFS 
NHWDF$ 


M  4 

MACRO  DEFINITIONS 
CCBDFS, NHWDF$,SAVRG,RE5RG 


;  DEFINE  CC8  OFFSETS 

;  DEFINE  HARDWARE  REGISTERS 


DEFINE  LOCAL  MACROS 

.IF  DF  P$$A0IP$$34!P$$45IP$$70!L$$SI1IM$$MGE 


000000 


R$$EIS=0 

.ENDC 

.IF  NDF  R$$EIS 


.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENDM 

.ENDC 


X0R,A,B 

A,R3 

B,R3 

A,  8 

R3,B 

XOR 


PROCESSOR  HAS  XOR  INSTRUCTION 


COPY  A 

A  <-  A  AND  NOT  R 
B  <-  B  AND  NOT  A 
B  <-  A  OR  B 


STCRC       MACRO  V05.03b  Friday  28-Jun-85   1i 
MODIFIER    TABLE    FOR   SOFTWARE    CRC 

602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6H 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62A 
625 
626 
627 
628 
629 
630 
631 
632 
633 

63;; 

635 
636 
637 
658 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 


M  b 
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.WORD 

74500 

.WORD 

135401 

.WORD 

75700 

.WORD 

75200 

.WORD 

135101 

.WORD 

137001 

.WORD 

77300 

.WORD 

77600 

.WORD 

137501 

.WORD 

76400 

.WORD 

136701 

.WORD 

136201 

.WORD 

76100 

.WORD 

132001 

.WORD 

72300 

.WORD 

72600 

.WORD 

132501 

.WORD 

73400 

.WORD 

133701 

.WORD 

133201 

.WORD 

73100 

.WORD 

71000 

.WORD 

131301 

.WORD 

131601 

.WORD 

71500 

.WORD 

130401 

.WORD 

70700 

.WORD 

70200 

.WORD 

130101 

.WORD 

50000 

.WORD 

110301 

.WORD 

110601 

.WORD 

50500 

.WORD 

111401 

.WORD 

51700 

.WORD 

51200 

.WORD 

111101 

.WORD 

113001 

.WORD 

53300 

.WORD 

53600 

.WORD 

113501 

.WORD 

52400 

.WORD 

112701 

.WORD 

112201 

.WORD 

52100 

.WORD 

116001 

.WORD 

56300 

.WORD 

56600 

.WORD 

116501 

.WORD 

57400 

.WORD 

117701 

.WORD 

117201 

.WORD 

57100 

.WORD 

55000 

.WORD 

115301 

.WORD 

115601 

.WORD 

55500 
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n  6 


90 

91 

92 

170700 

95 

000001 

9A 

000003 

95 

000010 

96 

000020 

97 

000100 

98 

000133 

99 

oooni 

.SBTTL  DEFINE  KG-11  REGISTERS  AND  BITS 


KGCSR=170700 

CRC16=1 

LRC16=3 

DDB=10 

CLRKG=20 

SEN=100 

kgldbc=dd8:lrci6.'clrkg:sen 
kginit=ddbicrc161sen 


KG-11  CSR 

USE  CRC-16  POLYNOMIAL 

USE  LRC-16  POLYNOMIAL 

SET  TO  WORD  MODE 

INITIALISE  KG-11 

ENTER  CYCLE  MODE 

LOAD  NEW  BCC  ACCUMULATION 

INIT  TO  DO  CRC-16  CALCULATION 


STCRCF  MACRO  V05.03b  Friday  28-Jun-85  li 
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n  7 


659  001124 

660  001126 

661  001130 

662  001132 

663  001134 

664  001136 

665  0011 '.0 

666  001142 

667  001144 

668  001146 

669  001150 

670  001152 

671  001154 

672  001156 

673  001160 

674  001162 

675  001164 

676  001166 

677  001170 

678  001172 

679  001174 

680  001176 

681  001200 

682  001202 

683  001204 

684  001206 

685  001210 

686  001212 

687  001214 

688  001216 

689  001220 

690  001222 

691  001224 

692  001226 

693  001230 

694  001232 
695 

696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
T\i, 
715 


114401 

054700 

054200 

114101 

104001 

044300 

044600 

104501 

045400 

105701 

105201 

045100 

047000 

107301 

107601 

047500 

10o401 

046700 

046200 

106101 

042000 

102301 

102601 

042500 

103401 

043700 

043200 

103101 

101001 

041300 

041600 

101501 

040400 

100701 

100201 

040100 
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.WORD 

114401 

.WORD 

54700 

.WORD 

54200 

.WORD 

114101 

.WORD 

104001 

.WORD 

44300 

.WORD 

44600 

.WORD 

104501 

.WORD 

45400 

.WORD 

105701 

.WORD 

105201 

.WORD 

45100 

.WORD 

',7000 

.  WORD 

107301 

.WORD 

107601 

.WORD 

47500 

.WORD 

106401 

.WORD 

46700 

.WORD 

46200 

.WORD 

106101 

.WORD 

42000 

.WORD 

102301 

.WORD 

102601 

.WORD 

42500 

.WORD 

103401 

.WORD 

43700 

.WORD 

43200 

.WORD 

103101 

.WORD 

101001 

.WORD 

41300 

.WORD 

41600 

.WORD 

101501 

.WORD 

40400 

.WORD 

100701 

.WORD 

100201 

.WORD 

40100 

.IFF 

.WORD 

0 

.WORD 

146001 

.WORD 

154001 

.WORD 

12000 

.WORD 

170001 

.WORD 

36000 

.WORD 

24000 

.WORD 

162001 

.WORD 

120001 

.WORD 

66000 

.WORD 

74000 

.WORD 

132001 

.WORD 

50000 

.WORD 

116001 

.WORD 

104001 

.WORD 

42000 

; SECOND  HALF  OF  TABLE 


.ENDC 


J 
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EXECUTIVE    VECTOR   TABLE 


n   8 


101 

102 

103  000000 

lOA  000002 

105  O^^'OOA 

10^ 

10/ 


000000 

OOOOOOG 

172554 

000002 


.SBTTL      EXECUTIVE    VECTOR   TABLE 

;    FLAGS  WORI' 


SSTCVT: 

:.WORD 

0 

KSAR5: 

.WORD 

K1SAH5 

KSAR6: 

.WORD 

KISAR6 

SSTCVL  ==  «.-$5TCVT>/2>-l  ;  LENGTH  OF  VECTOR  TABLE 


M     9 
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STCR2   -   CALCULATE    CRC 

716 

717  .ENDC 

718 

719  000001  .END 
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Macro  definitions 


N  10 


177 

178  000200 

179 

180  000204 

181 

182 

183 

18A 

185 

186  000204 

187 

188 

189 

190  000212 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200  000212 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 


40$: 


50$: 


60$: 


CALL 

aRDBRT 

.IF  DF 

R$$11D. 

I$$AS 

MTPS 

#PR3 

.IFF 

MTPS 

#PRO 

.ENDC 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

BIT 
BEQ 
CAL. 

#F2.MP 

60$ 

a(SP)+ 

aFMSK2 

.ENDC 
.ENDC 

RETURN 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

RETURN  BUFFER  TO  POOL 


ENABLE  INTERRUPTS 


ENABLE  INTERRUPTS 


IS  THIS  A  MULTIPROCESSOR? 
RESTORE  STATE  OF  THE  CACHE 

RETURN 


«*-MPBRTN-BUFFER  RETURN  ROUTINE  FOR  MULTI-PROCESSORS 

THIS  ROUTINE  WILL  BE  EXECUTED  ON  THE  PROCESSOR  ON  WHICH  THE  DEVICE 
BEING  GIVEN  THE  BUFFER  IS  CONNECTED. 


INPUTS: 
R4 


ADDRESS  OF  CCB/RDB  TO  SATISFY  THE  REQUEST 


MPBRTN: 


000001 


MOV 

MOV 

ASL 

ADD 

MOV 

M0V8 

MOV 

MOV 

ADD 

MOV 

CALLR 

.ENDC 
.ENDC 

.END 


C.NSP(R4),R5 

R5,C.LIN(R4) 

R5 

aSLTMA,R5 

(R5),R5 

L.DDf^(R5),R2 

L.DDS(R5),R5 

R4,R3 

#C.FNC,R5 


GET  SYSTEM  LINE  # 
SET  LINE  #  IN  CCB 
COMPUTE  ADDRESS  OF 
SYSTEM  LINE  TABLE 


GEl  DDM  PROCESS  INDEX 
GET  PROCESS  LINE  TABLE  ADDRESS 
COPY  CCB  ADDRESS 
POINT  TO  FUNCTION  CODE 
#FC.RCEtFS.RTN,(R5)  ;  RESET  FUNCTION  CODE 
aPDSPL         ;  DISPATCH  TO  DDM  PROCESS 


AXDAT 


CREATED  BY  MACRO  ON  28-JUN-85  AT  18:28 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


M  11 

PAGE  1 

CREF   0^.00 


ALOCB 

ASCMP 

CCBGT 

CCBRT 

CEACC 

CEDIV 

CLINS 

CMFRIC 

CXOPT 

DDAST 

DDCCP 

DDFNC 

ODMSN 

DEACB 

DSPTM 

EXRQF 

EXRQN 

FMSK2 

INTCT 

KISAR6 

KSAR6 

NMCLH 

NMCL2 

PDDSP 

PDQUE 

PDSPL 

PDVNM 

PDVTA 

PUMR 

PWRF1 

QSTRT 

RDBGT 

RDBNM 

RDBRT 

RDBSZ 

RDBTH 

RDGCT 

RDQSL 

R$$MPL 

R$$PRO 

SLTMA 

SLTNM 

SQRCM 

SRSTD 

STDD1 

STDLC 

STDLl 

STMfC 

TUPS 

riclOO 

TSKRT 

rSTIM 


GX 


OOOOOA  RG 
000032  RG 
00003A  RG 
000036  RG 
OOOOAO  RG 
000042  RG 
000006  RG 
000044  RG 
000046  RG 
000050  RG 
000052  RG 
000054  RG 
000056  RG 
000010  RG 
000060  RG 
000012  RG 
000014  RG 
000016  RG 
000020  RG 
****** 

000002  RG 

000062  RG 

000064  RG 

000066  RG 

000070  RG 

000072  RG 

000074  RG 

000076  RG 

000100  RG 

000102  RG 

000104  RG 

000106  RG 

000110  RG 

000112  RG 

000114  RG 

000116  RG 

000120  RG 

000122  RG 


000124  RG 
000126  RG 
000130  RG 
000022  RG 
000132  RG 
000134  RG 
000136  RG 
000140  RG 
000024  RG 
000142  RG 
000026  RG 
000144  RG 


REFERENCES 

#5-50 
#5-86 
#5-87 
#5-88 
#5-89 
#5-90 
#5-52 
#5-91 
#5-92 
#5-93 
#5-94 
#5-95 
#5-96 
#5-60 
#5-97 
#5-61 
#5-62 
#5-63 
#5-72 

5-49 
#5-49 
#5-105 
#5-106 
#5-111 
#5-112 
#5-113 
#5-114 
#5-115 
#5-116 
#5-117 
#5-118 
#5-119 
#5-120 
#5-121 
#5-122 
#5-123 
#5-124 
#5-125 

5-:4 

5-106 
#5-126 
#5-127 
#5-128 
#5-73 
#5-129 
#5-130 
#5-131 
#5-132 
#5-74 
#5-138 
#5-75 
#5-139 


5-63 
5-145 


5-78 


5-99 


5-133 


-151 


J 
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25'. 

255 

256 

257 

258 

259 

260 

261 

262 

265 

26A 

265 

266 

267  000054 

268 

269  000040 

270  000042 

271  0000A6 

272  000050 
275 

274  000052 

275  000056 

276  000060 

277  000064 

278  000072 

279  000074 

280  000102 

281  000104 

282  000112 
285  000114 

284  000116 

285  000120 

286  000124 

287  000150 

288  000132 

289  000156 

290  000142 

291  000146 
:92 

295  000150 

294  u00154 

295  000160 
296 

297  000162 

298  000166 

299  000170 

500  000174 

501  000176 

502  000200 

503  000202 

504  000210 
505 

506  000214 

507  000222 

508  000224 

509  000250 
310  000252 


.SBTTL  NETWORK  MANAGEMENT  COUNTER  COMPLETION 

•»-NMCMP-NETWORK  MANAGEMENT  COUNTER  COMPLETION 

THIS  ROUTINE  IS  ENTERED  WHEN  A  NETWORK  MANAGEMENT  REQUEST  FOR  COUNTERS 

HAS  BEEN  COMPLETED  BY  A  LOWER  LEVEL  PROCESS. 

THE  ROUTINE  ALSO  REQUESTS/UNSTOPS  NETACP  TO  PROCESS 

REQUESTS  FOR  LINE  WATCHER 

INPUTS; 

R4  =  ADDRESS  Of  COUNTER  CC8 


054154  005310 

010403 

062705  000054 

005715 

001041 


116405 
006505 
067705 
032773 
001026 
032773 
001005 
032775 
001416 
000457 
011505 
062705 
116401 
001404 
062705 

052715 
001022 


012705  000054- 
105415 


000050 

OOOOOOG 
000400  000000 

000020  000000 

000040  "00000 


000022 
000031 

000004 

000001 


017705 
010415 
010477 
010403 
011404 
0u1375 
052763 


OOOOOOG 
OOOOOOG 

040000  000012 


122764  000002  000003 
001 002 


NETACP:  .RAD50  /NETACP/ 

NMCMP:   MOV  R4,R3 

ADD  #C.ADD,R5 

TST  (fi3) 

BNE  40$ 

M0V8  C.CNT2(R4),R3 

ASL  R5 

ADD  SSLTMA,R5 

BIT  #LF.8R0,a(R3) 

BNE  30$ 

BIT  #LF.MTP,a(R3) 

BNE  5$ 

BIT  #LF.SER,a(R5) 

BEQ  30$ 

BR  60$ 

5$:     MOV  (R3),R5 

ADD  #L.LEN,R3 

M0V8  C.CNT2+1(R4),R1 

BEQ  20$ 

10$:    ADD  #S.LEN,R5 

SOB  R1,10$ 

20$:    BIT  #SF.SER,(R3) 

BNE  60$ 

50$:    MOV  #NETACP,R5 

40$:     CALL  aSftSTD 

BCS  60$ 

MOV  aNMCL2,R5 

MOV  R4,(R5) 

50$:    MOV  R4,aNMCL2 

MOV  R4,R5 

MOV  (R4),R4 

BNE  50$  , 

BIS  #CS.LST,C.STS(R5) 

CALLR  aEXRQN 

60$:    CMPB  #C8.CCB,C.BID(R4) 

BNE  70$ 

CALLR  aCCBRT 

70$:    SAVRG  <(R4)> 

CALL  aRDBRT 


Copy  the  ccb  address 
Point  to  the  task  name 
Is  it  for  NETACP  ? 
If  NE,  no 

Copy  SLN 

Form  word  index 

Point  to  line  table  address 

Is  it  a  broadcast  channel? 

If  NE,  yes  -  EPM  already  filtered  it. 

Is  it  multipoint? 

If  NE,  yes  -  check  station  table 

Is  service  disabled  ? 

If  EQ,  no  -  allow  request 

Else,  toss  the  request 

Get  to  the  end  of  the  line  table 

Get  the  station  number 

Move  to  the  correct  station  table 

Is  service  disabled  ? 

If  NE,  yes  -  toss  the  request 

Else  start  up  NETACP 
Scan  STD  for  task's  TCB 
If  CS,  not  there  I ! 

Get  address  of  net  man  listhead 

Add  CCB  to  end  of  head  pointer 

Update  the  tail  pointer 

Copy  possible  'last'  buffer  address 

Else,  get  to  the  end  of  this  chain 

If  NE,  get  next  buffer 

;  Else,  set  end  of  chain  flag 

Request  the  task  (unstop  or  request) 

;  Is  it  a  CCB  ? 

If  NE,  no 

Return  the  CCB 

Save  the  next  ''n  the  chain 

Return  this  one 
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122 
123 
12^ 
125 
126 
127 
128 
129 
130 
131 
152 
133 
13A 
135 

136  00003A 

137  000040 

138  000042 

139  000044 
140 

141 
142 
143 
144 
145 
146 
14' 

148  000046 

149  000050 

150  000054 
151 

152 
153 

154  000056 

155  000062 

156  000064 

157  000066 

158  000072 

159  000074 

160  000100 

161  000102 

162  000104 

163  000106 

164  000114 

165  000116 

166  000122 

167  000124 

168  000130 

169  000134 

170  000136 

171  000142 

172  000150 

173  000152 

174  000156 

175  000162 

176  000164 
177 

'78 


017701 
003451 
005301 
010103 


.JF  DF 
.S8TTL 


P$$RFL 

POUERFAIL  RECOVERY  ROUTINE 


OOOOOOG 


»*-PWFAIL-POUERFA]L  RECOVERY  ROUTINE 

THIS  ROUTINE  IS  INVOKED  ONCE  PER  SECOND  BY  THE  TIMER  SERVICE 
CODE.  IF  THE  POWERFAIL  RECOVERY  FLAG  IS  SET,  WE  WILL  SCAN  THE 
SYSTEM  LINE  TABLE  FOR  'ACTIVE'  LINES  (I.E.  LINES  WHICH  HAVE 
BOTH  DLC  AND  DDM  PROCESSES  LOADED)  AND  ASYNCHRONOUSLY  QUEUE 
A  CONTROL  COMPLETION  TO  THE  LLC  LEVEL  INDICATING  THAT  THE 
LINK  HAS  BEEN  DISCONNECTED. 


GET  #  OF  LINES  REMAINING  TO  BE  POUERFAILED 
IF  NONE  ...  NO  RECOVERY  UNDERWAY 
CONVERT  TO  SYSTEM  LINE  # 
SAVE  FOR  LATER  CALL  TO  SASCMP 


006301 
067701 
011101 


032711 
001435 
005002 
105761 
001413 
116702 
006302 
006302 
060102 
132762 
001410 
016702 
150302 
012703 

103413 
105267 
126761 
103731 
005067 
005377 
001324 


OOOOOOG 

100000 

000014 
000071 

000200  000022 

000046 

100366 


000027 
000023  000014 

000012 
OOOOOOG 


100$; 


PWFAIL: 

MOV 

SPWRFI.RI 

BLE 

100$ 

DEC 

Rl 

MOV 

R1,R3 

.IF  DF 

N$$1LN 

MOV 

aSLTMA.RI 

MOV 

(RD.Rl 

•  IFF 

ASL 

Rl 

ADD 

SSLTMA.Rl 

MOV 

(RD.Rl 

.ENDC 

BIT 

#LF.ACT,(R1)    ; 

BEQ 

20$          ; 

CLR 

R2 

TSTB 

L.NSTA(RI) 

BEQ 

10$ 

M0V8 

TRIB+1,R2 

ASL 

R2 

ASL 

R2 

ADD 

R1,R2         ; 
#SF.ACT,L.MPF(R25 

BITS 

BEQ 

15$ 

MOV 

TRI8,R2 

10$: 

BIS6 

R5,R<^ 

MOV 

#CE.;.IS,R3 

CALL 

SASCMP 

BCS 

100$ 

15$: 

INC8 

TRIB^I         , 

CMPS 

TR!8+1,L.NSTA(R1) 

BLO 

PWFAIL 

CLR 

TRI8 

20$: 

DEC 

aPWRFI 

BNE 

PWFAIL 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  MAPPING  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 


IS  THIS  LINE  'ACTIVE'? 

NO  ...  NO  RECOVERY  REQUIRED 

ASSUME  LINE  IS  NOT  MULTIPOINT 

IS  THIS  LINE  MULTIPOINT? 

IF  EQ,  NO 

GET  TRIBUTARY  NUMBER  TO  CHECK 

FORM  DOUBLE  WORD  OFFSET 

POiNT  INTO  SYSTEM  LINE  TABLE 

;  IS  THE  TRIBUTARY  ACTIVE? 

NO  ...  NO  RECOVERY  REQUIRED 

YES  ...  GET  TRIBUTARY  ADDRESS 

SET  SYSTEM  LINE  NUMBER 

YES  ...  SET  UP  ERROR  CODE 

PERFORM  ASYNCHRONOUS  COMPLETION 

TRY  LATER  ON  RESOURCE  ALLOCATION  FAILURE 

UPDATE  TRIBUTARY  ADDRESS 

;  HAVE  WE  CHECKED  ALL  TRIBUTARIES  ON  THIS  LINE? 

IF  LO,  NO 

RESET  TRIBUTARY  ADDRESS 

ONE  LESS  LINE  TO  RECOVER 

LOOP  TILL  ALL  DONE 


, IF  DF  X$$MDC 


N  U 
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3 

5 

6 

7 

8 

9 

10 
11 
'2 
15 
u 

15 
16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

45 

44 

45 

46 

.,7 

48 

49 

50 

51 

52 

53 

54 

55 

■;»■, 

5? 


.IF  DF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IFF 

.IF  DF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.ENDC 

.ENDC 

.IDENT 


r$$iid:i$$as 

X$$MDC 

AXDSPM  -  AUXILLIARY  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 


X$$MDC 
P$$RF  L 
AXDSPB  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSPM  -  AUXlLLIARr  PROCESS  DISPATCH 


P$$RFL 

AXDSPP  -  AUXILLIARV  PROCESS  DISPATCH  AND  POWER  FAIL 

AXDSP  -  AUXILLIARV  PROCESS  DISPATCH 


/V05.01/ 


COPVRIGHT  (C)  1978,1979,1980,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLV  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BV  DIGITAL. 


MODULE  DESCRIPTION 

AUXILARV  PROCESS  DISPATCH  TABLE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENf  HISTORY: 

1.00   10-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 


ITS 


AxDSPM 

CREATED  B* 

MACRO     ON  3- 

■SEP-85   AT 

10:59 

PAGE   2 

SYMBOL 

CROSS   REFERENCE 

CREF        04 

SYMBOL 

VALUE 

REFERENCES 

L.NMST 

000020 

#6-77 

L.NST4 

OOOOU 

#6-77 

L.OWNR 

000021 

#6-77 

L.UNT 

OOOOT? 

#6-77 

MDMCTL 

-      ««♦■»*« 

GX 

7-89 

MDMSCN 

~      ****»• 

GX 

7-95 

NETACP 

0OC03A 

R 

#10-267 

10-293 

NMCL? 

~    **•**» 

GX 

10-297 

10-299 

NMCMP 

OOOOAO 

R 

7-112 

#10-269 

PSSRH 

z       »♦«»*« 

5-9 

7-90 

7-107 

8-122 

RDBRT 

r     **♦(** 

GX 

10-310 

R$$11D 

-    ♦*♦»*# 

5-1 

7-115 

SF.ACT 

=  000200 

#6-77 

SF.ENA 

=  000100 

#6-77 

SF.LPB 

=  0000  DA 

#6-77 

SF.MfL 

=  OOOCAO 

#6-77 

SF.PAC 

=  C00C20 

#6-77 

SF.REA 

=  000010 

#6-77 

SF.SER 

=  00C001 

#6-77 

10-290 

SF.SVC 

=  000002 

#6-77 

SF.UNL 

=  000040 

#6-77 

5LTMA 

r     ***♦♦♦ 

GX 

10-276 

SRSTD 

=    ****** 

GX 

10-294 

5. COST 

000001 

#6-77 

SJ^G 

000000 

#6-77 

5.LEN 

OOOOOA 

#6-77 

10-288 

S.NMST 

000002 

#6-77 

S.OJNR 

000003 

#6-77 

X$$MDf 

=  000001 

#4-2 

5-8 

7-88 

7-115 

SAJXTB 

000000 

RG 

#7-84 

SBFRTN 

3    ****** 

GX 

7-86 

H  15 
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network;  management  counter  completion 


311  000506 

312  000510  00'573 

313  000512 
3U 

315       000001 


RESRG 

BNE 

RETURN 

.END 


<R4> 
70$ 


Page  10-1 


Recover  the  next  buffer 
If  NE,  get  next  buffer 
Else,  return 


yjB'      "lACRO  V05.05C   frida/  28-Jun- 
IPr,  ;'.r   -   oi^ocEsS  NAME    TO  PDV    INDEX 


'.15 

418 

419 

42C 

4?i 

422 

423 

424 

425 

426 

427 

428 

429 

43C   000460 

43*    000464 

432  000470 

433  000474 

434  000476 

435  C00500 

436  000504 
■'.3.'  000506 

438  000510 

439  000512 

440  000514 
441 

442  00051O 

443  000520 
4'.4  000524 

445  000526 

446  000530 

447  000534 
448 


N  1 
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.S8TTL  SPDVID  -  PROCESS  NAME  TO  PDV  INDEX 

•*-  $PDVID  -  PROCESS  NAME  TO  PDV  INDEX 

THIS  SUBROUTINE  MAPS  A  PROCESS  NAME  (UP  TO  THREE  CHARACTERS  IN  RAD50) 
INTO  A  PDV  INDEX. 

INPUTS: 

R2  =  PROCESS  NAME  (RAD50) 

OUTPUTS: 

R2  =  PDV  INDEX 


016700  OOOOOOG 

016746  OOOOOOG 

012001 

001403 

026102  000004 

001404 

005316 

001371 

000261 

000404 

010002 

166702  OOOOOOG 

005742 

005226 


$PDVID::SAVRG   <R0,R1> 


10$: 
15$: 

20$: 
25$: 


MOV 
MOV 
MOV 
BEQ 
CMP 
BEQ 
DEC 
BNE 

l¥ 

MOV 

SUB 

TST 

INC 

RESRG 

RETURN 


$PDVTA,RO 

$PDV'.    'SP) 

(R0)+, 

15$ 

Z.NAM(hl),R2 

20$ 

(SP) 

10$ 

25$ 

R0,R2 
$PDVTA,R2 
-(fi2) 
(SP)  + 
<R1,R0> 


SAVE  REGISTERS 

GET  ADDRESS  OF  PDV  ADDRESS  TABLE 

GET  TOTAL  NUMBER  OF  PDVS  IN  SYSTEM 

GET  ADDRESS  OF  PDV 

PROCESS  NOT  LOADED  -  GO  TO  NEXT  ONE 

DOES  PROCESS  NAME  MATCH? 

YES  -  GO  CALCULATE  INDEX 

DECREMENT  COUNT  -  DONE  LOOPING? 

NO 

YES  -  NO  MATCH 

RETURN  WITH  C-BIT  SET 

GET  CURRENT  POSITION  IN  PDV  ADDRESS  TABLE 

SUBTRACT  STARTING  ADDRESS  OF  TABLE 

GET  PROCESS  PDV  INDEX 

CLEAN  UP  STACK  AND  DON'T  CHANGE  C-BIT 

RESTORE  REGISTERS 

RETURN 


N  2 
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58  000000  PDVDFS  ;  DEFINE  THE  PDV  OFFSETS 

59 


CEXCM  -  CEX  COMMON!  DATABASE 
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180 

181 

000210 

SfKlOO: 

182 

000210 

000006 

$Ti.k;50: 

.WORD 

6 

183 

000212 

000 

SSQRCM: 

.BYTE 

0 

184 

000213 

000 

.BYTE 

0 

1S5 

186 

000214 

$MAXOV : 

.BLKW 

1 

187 

188 

000216 

SLGPDV: 

.8LKW 

1 

189 

000220 

SLGDDB: 

.BLKW 

1 

190 

000222 

SFILHD: 

.BLKW 

1 

191 

000224 

SLGSTT: 

.BLKU 

1 

192 

193 

000226 

SEVDSC: 

.BLKW 

8. 

19A 

195 

000246 

SLGFNB: 

.BLKU 

3 

196 

000254 

021265 

055254  057330 

.RAD50 

/EVENTLOG/ 

197 

000262 

075273 

.RAD50 

/SYS/ 

198 

000264 

.BLKW 

199 

000266 

114 

102 

.ASCII 

/LB/          '; 

200 

000270 

.BLKW 

201 

000272 

006 

001 

SLGUIC: 

.BYTE 

6,1              :• 

202 

000274 

051646 

131574 

SLGMON: 

.RAD50 

/MON.../ 

203 

000300 

103 

117 

SLGCON: 

.ASCII 

/CO/ 

204 

000302 

000000 

.WORD 

0 

205 
206 
207 

000304 

OOOCOO 

SCELFN: 

.WORD 

0 

000306 

000000 

SNMCLH: 

.W,  -D 

0 

208 

000310 

000306' 

$NMCL2; 

.WORD 

.-2 

209 

210 

.IF  DF 

R$$MPL 

211 

SNETPF: 

.WORD 

0 

212 
213 
21A 

SNTLAL: 

.WORD 

0 

.IF  DF 

M$$PR0 

215 

216 

TIMERS: 

.WORD 

-1 

^17 

.WORD 

0,0,0,0,0 

218 

.WORD 

0 

219 

.WORD 

0 

220 

.WORD 

0 

221 

$$$STM= 

.-TIMERS 

222 

223 

.WORD 

0,0,0,0,0 

224 

.WORD 

0 

225 

.WORD 

0 

226 

.WORD 

0 

227 
228 
229 

$$$LEN= 

.-TIMERS 

.REPT 

M$$PR0-1 

230 

.WORD 

-1 

231 

.WORD 

0,0,0,0,0 

232 

.WORD 

0 

233 

'^ORD 

0 

234 

.WORD 

0 

235 

236 

.WORD 

0,0,0,0,0 

NUMBER  OF  CLOCK  TICKS  IN  100  MSEC 

NUMBER  OF  CLOCK  TICKS  IN  50  MSEC 

SQ  ROOT  LIMIT  FOR  COMPOW' NT  BUFFER  ALLOCATION 

NUMBER  OF  ACTIVE  COMPON£^JfS 

MAXIMUM  PROTOCOL  OVERHEAD 

PDV  INDEX  OF  EVENT  LOGGER 
ADDRESS  OF  EVENT  LOGGER  DATABASE 
EVENT  FILTER  LISTHEAD 
EVENT  LOGGER  STATUS 

EVENT  DESCRIPTOR  BLOCK 

EVENT  LOGGER  FILENAME  BLOCK  -  FILE  ID 

FILENAME 

FILE  TYPE 

VERSION  NUMBER 

DEVICE  NAME 

AND  UNIT 
UIC  FOR  LOGGING  FILE  (DEFAULT  =  [1,6]) 
MONITOR  TASK  NAME 
CONSOLE  DEVICE  NAME 

AND  UNIT 
CEX  LOGGING  FUNCTION  CODE  (MUST  BE  7ER0) 

NETWORK  MANAGEMENT  COMPLETION  LISTHEAD 


POWERFAIL  ENTRY  POINT 

NTL  POINTER  TO  CEX  POOL  LISTHEAD 


SHOW  TIMER  IS  NOT  ACTIVE 
PROCESSOR  #1  DEPENDANT  ONE  SECOND 
TIMER  QUEUE  BLOCK 


PROCESSOR  #1  DEPENDANT  100  MSEC 
TIMER  QUEUE  BLOCK 


SHOW  TIMER  IS  NOT  ACTIVE 
PROCESSOR  #2  -  N  DEPENDANT  ONE  SECOND 
TIMER  QUEUE  BLOCK 


Pt-  ES50R  #2  -  N  DEPENDANT  100  MSEC 
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N  4 


90 

91 

92 

170700 

93 

000001 

9A 

000003 

95 

000010 

96 

000020 

97 

000100 

98 

000153 

99 

oooni 

.SBTIL 

DEFINE 

KG-1 

REGISTERS  AND  BITS 

KGCSR=1 70700 

CRC16= 

LRC16=3 

DDB=10 

CLRKG=20 

SEN=100 

kgldbc=ddb:lrci6 
kginit=ddb1crc16 

CLRKG 
SEN 

SEN 

KG-11  CSR 

USE  CRC-16  POLYNOMIAL 

USE  LRC-16  POLYNOMIAL 

SET  TO  WORD  MODE 

INITIALISE  KG-11 

ENTER  CYCLE  MODE 

LOAD  NEW  BCC  ACCUMULATION 

INIT  TO  DO  CRC-16  CALCULATION 

STCRC   MACRO  V05.03b  Kriday  28-Jun-85  li 
MODIHER  TABLE  FOR  SOFTWARE  CRC 

659 

660 

661 

662 

663 

66A 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

68S 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698  000316  000000 

699  000320  146001 

700  000322  154001 

701  000324  012000 

702  000326  170001 

703  000330  036000 

704  000332  024000 

705  000334  162001 

706  000336  120001 

707  000340  066000 

708  000342  074000 

709  000344  132001 

710  000346  050000 

711  000350  116001 

712  000352  104001 

713  000354  042000 
714 
715 


N  5 


21 

Pije  11-4 

.WORD 

114401 

.WORD 

54700 

.WORD 

54200 

.WORD 

114101 

.WORD 

104001 

.WORD 

44300 

.WORD 

44600 

.WORD 

104501 

.WORD 

45400 

.WORD 

105701 

.WORD 

105201 

.WORD 

45100 

.WORD 

47000 

.WORD 

107301 

.WORD 

107601 

.WORD 

47500 

.WORD 

106401 

.WORD 

46700 

.WORD 

46200 

.WORD 

106101 

.WORD 

42000 

.WORD 

102301 

.WORD 

102601 

.WORD 

42500 

.WORD 

103401 

.WORD 

43700 

.WORD 

43200 

.WORD 

103101 

.WORD 

101001 

.WORD 

41300 

.WORD 

41600 

.WORD 

101501 

.WORD 

40400 

.WORD 

100701 

.WORD 

100201 

.WORD 

40100 

.IFF 

.WORD 

0 

.WORD 

146001 

.WORD 

154001 

.WORD 

12000 

.WORD 

170001 

.WORD 

36000 

.WORD 

24000 

.WORD 

16200- 

.WORD 

12000' 

.WORD 

66000 

.WORD 

74000 

.WORD 

132001 

.WORD 

50000 

.WORD 

116001 

.WORD 

104001 

.WORD 

42000 

.ENDC 


; SECOND  HALF  OF  TABLE 


J 
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101 

102 

103  000000 

10^  000002 

105  OOOOOA 

106 

107 


.SBTTL 


000000 

OOOOOOG 

172354 

000002 


SSTCVT: 

:.UORD 

0 

KSAR5: 

.WORD 

KISAR5 

KSAR6: 

.WORD 

k:sar6 

N  6 

EXECUTIVE  VECTOR  TABLE 

;  FLAGS  WORD 


SSTfVL  ==  «.-$STCVT>/2>-1  ;  LENGTH  OF  VECTOR  TABLE 


N     7 
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716 

717  .ENDC 

718 

719  000001  .END 


STCRCK 
SCLCRC 


MACRO  V05.03b  F 
-   CALCULATE    CRC- 
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16  ON  A  TRANSMIT   CHAIN 


N    8 


109 

110 

111 

112 

113 

11A 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128  000006 

129 

130 

131 

132   000006     0177A6 

133 

134 

135 

136 

137 

138 

139 

KO 

1A1 

142 

143 

144 

145  000012 

146  000020     005001 
147 

148  000022  010403 

l',9  000024  062703 

150 

151 

152 

153 

154   000030     012377 

155 

156 


177770 


000014 


177746 


.SBTTL      SCLCRC   -   CALCULATE    CRC-16  ON  A   TRANSMIT   CHAIN 

♦*-$CLCRC-CALCULATE    CRC    (CRC16)    ON  A   TRANSMIT   CHAIN 

INPUTS: 

R4  -  ADDRESS  OF  FIRST  CCB  IN  CHAIN 

C.LNK  -  ADDRESS  OF  NEXT  CCB  IN  CHAIN  (0  MARKS  END) 

C.8UF  -  DOUBLE  WORD  ADDRESS  OF  BUFFER 

C.CNT  -  LENGTH  OF  BUFFER 

C.FLG  -  BUFFER  FLAGS 

OUTPUTS: 

CRC  IS  STORED  AT  THE  END  OF  EACH  BUFFER  AND  THE  BYTE 
COUNT  IS  UPDATED. 

REGISTERS  MODIFIED: 
R2,  R3 


SCLCRC:: 


.IF  DF  MSSMGE 
.IF  NDF  ISSAS 


5$: 


I  OS: 


MOV 

.IFF 

MOV 
BIT 
BEQ 
MOV 
MOV 

.ENDC 
.ENDC 

SAVR^; 
CLR 

MOV 
ADD 


SKSAR5,-(SP) 

;  ISSAS 

#KP.AR3,-(SP) 
#140000, PS. EXP 
5S 

#UPAi,0*-6,(SP) 
a(SP),-(SP) 

;  ISSAS 
;  MSSMGE 

<R0,R1,R4> 
R1 

R4,R3 
#C.8UF,R3 


.IF  DF   MSSMGE 
.!F  NDF  ISSAS 


MOV 
.IFF 


1  ^r 
158 

MOV 

159 

160 

.ENDC 

161 

.IFF 

162 

163 

TST 

164 

•■65 

.IFTF 

(R3)+,aKSAR5 

;  ISSAS 

(R3)+,alO(SP) 

:  ISSAS 
;  MSSMGE 

(R3)» 

;  MSSMGE 


SAVE  CALLER'S  MAPPING 


ASSUME  KERNEL  MODE 

IS  IT  ? 

YES  -  BR 

NO  -  MUST  BE  USER  MODE 

SAVE  CURRENl  MAPPING 


SAVE  REGISTERS 

INITIALISE  CRC  ACCUMULATOR 

COPY  CCB  ADDRESS 
AND  POINT  TO  BUFFER  DESCRIPTOR 


MAP  TO  THE  DATA 


MAP  TO  THE  DATA 


SKIP  OVER  RELOCATION  BIAS 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BUFUMP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LiN= 

CF.SOM= 

Cf .SYN= 

CF.TRN=: 

CLRKG  = 

CMODE  = 

CM.CIR= 

CM.FMT= 

CM.HRD^ 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

rp.PSl  = 

CP.XCF= 
CP.2FR= 
CRC16  = 

.  ABS. 


000000 

000000 

000000 

000000 

172354 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100554 

100374 

100344 

000001 

000004 

000020 

100000 

O00OC2 

000010 

000040 

000100 

000020 

140000 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000001 


177776 
000336 
Errors  cetected: 


000 
001 
0 


CS.A80= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 

cs.rip= 

CS.ljCR= 

CS.DEF= 

CS.OEV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.5HU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

r.ADD 

C.8ID 

C.BUF 

C.8UF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.SFA 


000100 
000002 
000200 
000002 
000010 
000200 
000400 
000004 
000002 
000040 
000001 
000020 
100000 
001000 
000001 
002000 
040000 
004000 
000010 
000004 
010000 
000001 
000002 
000004 
000001 
020000 
000004 
000000 
000400 
177564 
000034 
000003 
000014 
000014 
000024 
000020 
000020 
000030 
000022 
000022 
000032 
000010 
000006 
000000 
000011 
000004 
000042 
000002 
000007 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 


»♦•  Assembler  statistics 


C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLl 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DDB   = 

0$SBUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FU.KCP= 

FC.KIL- 

FC.MAN= 

FC.MLD= 

FC.PCr= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FS.AST= 

FS.CJB= 

FS.CRA= 

FS.l)IS= 

FS.DVC= 

FS.ENB^ 

FS.EXJ= 

FS.GET= 

FS.HLT= 

,  S.INI= 

FS.I<;IL  = 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RL8- 


N 

000012 

9 

FS.RNG= 

011000 

M$$NET= 

000000 

177776 

FS.RST= 

000000 

M$$OVR= 

000000 

000004 

FS.RTN= 

001000 

N$$ACC= 

000001 

000035 

FS.SET= 

005000 

N$$BUF= 

000001 

000044 

FS.SFC= 

005000 

N$$LDV= 

000001 

000040 

FS.SFR= 

006000 

N$$MCP= 

000001 

000034 

FS.SFS= 

004000 

N$$MLL= 

000001 

000042 

FS.SPW= 

040000 

N$$MOV= 

000010 

000037 

FS.STH= 

000000 

N$$NCT= 

000001 

000036 

FS.STP= 

002000 

N$$PEM= 

000001 

000010 

FS.STR= 

001000 

PIRQ  = 

177772 

177514 

FS.TRM= 

003000 

RHODE  = 

030000 

000000 

FS.WLS= 

001000 

PRO   = 

000000 

000001 

FS.XKL= 

002000 

PR1   = 

000040 

000000 

FS.XOFr 

010000 

PR2   = 

000100 

000000 

FS.XON= 

007000 

PR3   = 

000140 

000000 

FS.ZER= 

002000 

PR4   = 

000200 

000020 

F$$LVL= 

000001 

PR5   = 

000240 

000006 

G$$TPP= 

000000 

PR6   = 

000300 

000016 

G$$TSS= 

000000 

PR7   = 

000340 

000004 

G$$TTK= 

000000 

PS 

177776 

000024 

G$$WRD= 

000000 

P$$P45= 

000000 

000026 

I$$RAR= 

000000 

P$$WRD= 

000000 

000030 

I$$RDN= 

000000 

Q$$OPT= 

0000.0 

000022 

KGCSR  = 

170700 

R$$DER= 

000000 

000002 

KGJNIT= 

000111 

R$$EIS= 

000000 

000014 

KGLDBC= 

000133 

R$$K11= 

000001 

000010 

KISAR0= 

172340 

R$$SND= 

000000 

000012 

KISAR5= 

t***',*   GX 

R$$11M= 

000000 

000000 

KISAR6= 

172354 

SEN   = 

000100 

000000 

KSAR5 

000002R 

STCR2 

000162R 

002000 

KSAR6 

000004R 

SWR   = 

177570 

001000 

K$$CNT= 

177546 

S$$WRG= 

000000 

013000 

K$$CSR= 

177546 

3$$YSZ= 

007600 

001000 

K$$Gn  = 

000001 

TPS   = 

177564 

012000 

K$$LDC= 

000000 

T$$KMG= 

000000 

001000 

K$$TPS= 

000074 

T$$M1N= 

000000 

006000 

LHSLP  = 

000000 

UBMPR  = 

170200 

000000 

LRCI6  = 

000003 

U1SAR0= 

177640 

000000 

L$$ASG^- 

000000 

UISAR1= 

177642 

000000 

L$$DRV= 

000000 

V$$CTR= 

001000 

100000 

L$$P11= 

000001 

X$$DBT= 

000000 

001000 

L$S11R= 

000000 

SCLCRC 

000006RG 

004000 

MPAR  = 

172100 

SSTCRC 

000122RG 

014000 

MPCSR  = 

177746 

SSTCRl 

000124RG 

001000 

M$$CRB= 

000124 

$STCVL= 

000002  G 

000000 

M$SCRX= 

000000 

SSTCVT 

OOOOOORG 

003000 

M$$FCS= 

000000 

.BASEB= 

140000 

002000 

M$$MGE= 

000000 

.$$$$.= 

000034 
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FC.CTL=  000006 
FC.KCP--  000016 
FC.KIL=  000004 
FC.MAN=  000024 
FC.riLD=  000026 
FC.PCT-  000030 
FC.PWR=  000022 
FC.RCE=  000002 
FC.RCP=  000014 
FC.TIM=  000010 
FC.XCP=  000012 
FC.XME=  000000 
FS.AST^  000000 
FS.CIB=  002000 
FS.CRA=  001000 
FS.:iS=  013000 
FS.DVC=  001000 
FS.EN8=  012000 
FS.EXI=  001000 
FS.GET=  OOoOOO 
FS.HLT=  OOOOOO 
FS.INJ=  OOOOOO 
FS.KIL=  OOOOOO 
FS.LCL=  100000 
FS.LTM=  001000 
FS.MNT=  004000 
F'-,.MSN=  014000 
FS.REA=  001000 
FS.RET=  OOOOOO 
FS.REZ=  003000 
FS.RLB=  002000 
FS.RNG=  011000 
FS.RST=  OOOOOO 
FS.RTN=  001000 
FS.SET=  005000 
FS.SFC^  005000 
FS.SFR=  006000 
FS.SFS=  004000 
FS.SPW=-  040000 
FS.SrM=  OOOOOO 

Fs.s;p=  002000 

FS.iTR=  001000 
FS.rR,«1=  003000 
FS.WLB=  001000 
FS.XKL=  002000 
FS.XOF=  010000 
FS.XON=  007000 
FS.ZER=  002000 
F$$LVL=  000001 
G$$TPP=  OOOOOO 
G$$TSS=  OOOOOO 
G$$rTK=  OOOOOO 
G$$WRD=  OOOOOO 
I$$RAR=  OOOOOO 
I$$RDN=  OOOOOO 
KISARO=  1723<.0 
KISAR6=  172354 


N  10 


a$$chk:= 

OOOOOO 

CS.D1S= 

000040 

A$$CPS= 

OOOOOO 

CS.ENA= 

000001 

A$$PRI= 

OOOOOO 

CS.E.NB= 

000020 

AS$TRP= 

OOOOOO 

CS.ERR= 

100000 

BUFUMP= 

172354 

CS.FTL= 

001000 

CB.CCB= 

000002 

CS.HCR= 

000001 

CB.DDM= 

000040 

CS.HFE= 

002000 

CB.DLC= 

000020 

CS.LST= 

040000 

CB.RDB= 

000004 

CS.MTL= 

004000 

CB.SDB= 

000010 

CS.RNG= 

000010 

CB.SLI= 

000100 

CS.ROV= 

000004 

CB.XLB= 

000001 

CS.RSN= 

010000 

CC.lLC= 

000200 

CS.SHU= 

000001 

CE.ABO= 

100362 

CS.S  D= 

000002 

CE.DAO= 

100346 

CS.STR= 

000004 

CE.DIS= 

100366 

CS.SUC= 

000001 

CE.ERR= 

100370 

CS.TMO= 

020000 

CE.ILN= 

100350 

CS.XUR^ 

000004 

CE.LTO= 

100356 

C$t.CKP= 

OOOOOO 

CE.MOP= 

100372 

C$$ORE= 

000400 

CE.NTE= 

100361 

C$$RSH= 

177564 

CE.RTE= 

100376 

C.ADD 

000034 

CE.SRC= 

100364 

C.BID 

000003 

CE.STP= 

100352 

C.8UF 

000014 

CE.TME= 

100354 

'■.BUF1 

000014 

CE.TMO= 

100374 

..8UF2 

000024 

CE.JNS= 

100344 

C.CNT 

000020 

CF.CHN= 

000001 

C.CNT1 

000020 

CF.EOM^ 

000004 

C.CNT2 

000030 

CF.HDR= 

000020 

C.FLG 

000022 

CF.LB  = 

100000 

C.FLG1 

000022 

CF.LIN= 

000002 

C.FLG2 

000032 

CF.SOM= 

000010 

C.FNC 

000010 

CF.SVN= 

000040 

C.LIN 

000006 

CF.TRN= 

000100 

C.LNK 

OOOOOO 

CMODE  = 

140000 

C.MOD 

000011 

CM.CIR= 

000002 

C.NSP 

000004 

CM.FMT= 

100000 

C.PRO 

000042 

CM.HRD= 

000002 

C.RSV 

000002 

CM.L1N= 

OOOOOO 

C.STA 

000007 

CM.LOO= 

000001 

C.STS 

000012 

CM.XLO= 

000004 

C.URM 

177776 

CP.DCF= 

000040 

C.XACP 

000004 

CP.HDL= 

000007 

C.XID 

000035 

CP.PS  ^ 

177400 

C.XLEN 

000044 

CP.PSI= 

000200 

C.XPLI 

000040 

rP.XCF= 

000100 

C.XPT 

000034 

CP.2FR= 

000030 

C.XSVC 

000042 

CS.ABO= 

000100 

C.XTC 

000037 

CS.BRO= 

000002 

C.X25 

000036 

CS.BUF= 

000200 

D$$8UG= 

177514 

CS.CES= 

000002 

D$$ISK= 

OOOOOO 

CS.CHN= 

C00010 

D$$L11= 

000001 

CS.CMP= 

000200 

D$$VNC= 

OOOOOO 

CS.DCR= 

000400 

D$$VNM= 

OOOOOO 

CS.DEF= 

000004 

E$$XPR= 

OOOOOO 

CS.DEV= 

000002 

FC.CCP= 

000020 

LF. 
LF. 
LF. 


K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LF.ACT= 
LF.BR0= 
LF.BWTr 
.ENA= 
.LPB= 
..  .MDC= 
LF.MFL^ 
LF.MTP= 
LF.°AC= 
LF.RDV= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SU8= 
LN.TRI= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLN 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
MPAR  = 
MPCSR  = 
M$$CRB^ 


177546 

M$$co;;= 

OOOOOO 

177546 

M$$F(.S= 

OOOOOO 

OOOOOO 

M$$MGE= 

OOOOOO 

000074 

M$$NET= 

OOOOOO 

OOOOOO 

H$$OVR= 

OOOOOO 

100000 

N$$ACC= 

000001 

000400 

N$$BUF= 

000001 

000007 

N$$LDV= 

000001 

002000 

N$$MCP= 

000001 

001000 

N$$MLL= 

000001 

000100 

N$$HOV= 

000010 

004000 

N$$NCT= 

000001 

000020 

N$$PEM= 

000001 

000200 

PDSPL  = 

*♦»**♦  GX 

040000 

PIRQ  = 

■[77772 

010000 

PMODE  = 

030000 

000040 

PRO   = 

OOOOOO 

000010 

PR1   = 

000040 

020000 

PR2   = 

000100 

OOOOOO 

PR3   = 

000140 

OOOOOO 

PR4   = 

000200 

000005 

PR5   = 

000240 

000004 

PR6   = 

000300 

000003 

PR7   = 

000340 

000003 

PS 

177776 

000001 

P$$P45= 

OOOOOO 

OOOOOO 

P$$URD= 

OOOOOO 

000004 

Q$$OPT= 

000010 

000001 

RDBGT  = 

*•***♦  GX 

000002 

RDBRT  = 

******  GX 

000002 

RDBSZ  = 

♦♦*♦**  GX 

000017 

RDQCT  = 

******  GX 

000360 

RDQSL  = 

.♦.♦».  GX 

000006 

R$$OER= 

OOOOOO 

OOOOOO 

R$$K11= 

000001 

OOOOOO 

RI$SND= 

OOOOOO 

000001 

R$$11M= 

ooooor 

OOOOOO 

SF.ACT^ 

000200 

000015 

SF.ENA= 

000100 

000012 

SF.LPB= 

000004 

177776 

SF.MFL= 

000040 

000002 

SF.PAC= 

000020 

000004 

SF.REA= 

000010 

000003 

SF.SER= 

000001 

000006 

SF.SVC= 

000002 

000010 

SF.UNL= 

000040 

OOOOOO 

SLTMA  = 

*»*♦»»  GX 

000016 

SLTNM  = 

******  GX 

00002? 

SWR   = 

177570 

000022 

S$$WRG= 

OOOOOO 

000020 

5$$VSZ= 

007600 

000014 

S.C0S1 

000001 

000021 

S.FLG 

OOOOOO 

000013 

S.LEN 

000004 

172100 

S.NMST 

000002 

17^746 

S.OWNR 

000003 

000124 

TPS 

177564 

N  11 

AXDAT              CREATED  BY  MACRO     ON  28-JUN-85   AT   18:28           PAGE   2 

SYMBOL  C^OSS   REFERENCE  CREF        OA.OO 

SYMBOL  VALUE  REFERENCES 

T1SCL            000H6  RG  #5-1A0 

TIOOC            000150  RG  #5-141 

TIOOQ           000152  RG  #5-U2 

UMRPT           000030  RG  #5-76 

XAVL             000154  RG  #5-143 

ZTIME            000156  RG  #5-144 

ZTIM2           000160  RG  #5-145 

SALOCB  =   •»*•«•     GX  5-50 

SASCMP  =   .«•«**     GX  5-86 

SAUXVL  =   000070     G  #5-164 

SAUXVT         000000  RG  #5-45                5-164 

SCCBGT  =   »♦»•♦»      GX  5-P7 

sccBRT  =  »»•.»»    GX  5  as 

SCEACC  =  .»*«*»  GX  5-89 

SCEDIV  =  **♦**♦  GX  5-90 

SCLINS  =  *»»••*  GX  5-52 

$CMFRK  =  »..♦».  GX  5-91 

SCXOPT  =  .*.♦*.  GX  5-92 

SDOAST  =  ».♦♦»♦  GX  5-93 

SDDCCP  =  *»♦»••  GX  5-94 

SDDFNC  =  «»*»♦♦  GX  5-95 

SDDMSN  =  *»♦*»♦  GX  5-96 

SDEACB  =  »«•««♦  GX  5-60 

SDSPTM  =  •.♦.♦♦*  GX  5-97 

SEXRQF  =  ******  GX  5-61 

SEXRQN  =  *•»*♦•  GX  5-62 

$FMAS<  =  .♦»♦♦.   GX  5-70 

SINTCT  =  »».»•»   GX  5-72 


SNMCLH 

3  *♦** t * 

GX 

5-105 

$NMCL2 

r  ****** 

GX 

5-109 

JiPDDSP 

-  ****** 

GX 

5-111 

SPDQUE 

=  ****** 

GX 

5-112 

SPDSPL 

r  ****** 

GX 

5-113 

SPDVNM 

=     ****** 

GX 

5-114 

SPOVTA 

=  ****** 

GX 

5-115 

SPUMR 

-  ****** 

GX 

5-116 

SPWRFI 

-  ****** 

GX 

5-117 

SQSTRT 

-  ****** 

GX 

5-118 

SRDBGT 

-  ****** 

GX 

5-119 

SRDBNM 

-  ****** 

GX 

5-120 

BRDBRT 

-  ****** 

GX 

5-121 

SRDBSZ 

z     ****** 

GX 

5-122 

SRDBTH 

=  ****** 

GX 

5-123 

SRDOCT 

=  ****** 

GX 

5-124 

SRDQSL 

r  ****** 

GX 

5-i:5 

SSLTMA 

-  ****** 

GX 

5-126 

SSLTNM 

-      ****** 

GX 

5-127 

SSORCM 

=     ****** 

GX 

5-128 

SSRSTD 

-  ****** 

GX 

5-73 

ssroD! 

r  ****** 

GX 

5-129 

SSTDLC 

-  ***(** 

GX 

5-130 

SSTDLl 

GX 

5-131 

AXDSP  -  AUXILLIARY  PROCESS  DISP  MACRO  V05.03b  Tuesday  03-Sep-85  10:58 
NETWORK  MANAGEMENT  COUNTER  COMPLETION 
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311  000236 

312  0002A0  001373 

313  0OO2A2 
31A 

315       000001 


RESRG 

BNE 

RETURN 

.END 


<R4> 
70$ 


Recover  the  next  buffer 
If  NE,  get  next  buffer 
Else,  return 


AXOSPB  -  AUXILLIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  lOiTS  Page  8-1 
POWERfAlL  RECOVERV  ROUTINE 

179  00016A  CALLR   MDMSCN         ;  MODEM  CONTROL  SCAN  ROUTINE 

180 

181  .IFF 

1  R"^ 

183  RETURN 

IS'. 

185  .ENDC 

186 

187  ;t 

188  ;  LOCAL  STORAGE  FOR  TRIBUTARY  ADDRESS  DURING  POWERFAIL 

1 89 
190 
191  000170  TRIE:    .8LKW 


N  U 

AXOSP'^  -  AjMLLIARV   process  D!S  MACRO  V05.05b  Tuesday   03-Sep-85   10:59     Page   5-1 


58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 


DECNET-11M/S   V5.0 
DECNET-11M-PLUS   VI. 0 

A. 00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 
DECnet-IIM/S  V4.? 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 

5.01  09-Aug-85 

Add  logic  to  bypass  service  disabled  check  on  broadcast  channels. 
This  change  requires  EPMMAI  ident  v5.01. 


AXDSPM  CREATED   BY      MACRO     ON   5-SEP-85   AT    iO:59 

MACRO   CROSS   REFERENCE 


10-508 


N  15 

PAGE   3 

CREF        OA.OO 


MACRO   NAME 

REFERENCES 

CALL 

10-29^ 

10-310 

CALLR 

7-120 

10-504 

CCBDft 

#6-75 

6-78 

^ESRG 

#6-75 

10-311 

RETURN 

7-119 

10-?'3 

5AVRG 

#6-75 

lO-i-9 

SLTDFS 

#6-75 

6-77 

SOB 

10-289 

B 

1   CESUBl 

J  5 

C 

K  5 

D 

L  5 

E 

M  5 

F 

N  5 

G 

B  6 

H 

C  6 

1 

D  6 

J 

E  6 

K 

F  6 

L 

G  6 

M 

H  6 

N 

I  6 

B 

J  5 

r 

K  6 

6 

L  6 

E 

M  6 

F 

N  6 

G 

B  7 

H 

2 

C  7 

I 

2 

D  7 

J 

2 

E  7 

K 

2   CETIM 

F  7 

L 

2 

G  7 

M 

:> 

H  7 

N 

2 

I   7 

B 

3 

J  7 

C 

3 

K  7 

D 

3 

L  7 

E 

3 

M  7 

F 

3 

N  7 

G 

3 

8  8 

H 

3 

C  8 

1 

3  CEXCM 

D  8 

J 

3 

E  8 

K 

3 

F  8 

L 

3 

G  8 

M 

3 

H  8 

N 

3 

B 

A 

J  8 

r 

i. 

<  \ 

5 

A 

L  8 

E 

4 

M  8 

F 

4 

N  8 

G 

ii 

B  9 

H 

A 

C  9 

I 

4   STCRC 

D  9 

J 

4 

E  9 

K 

4 

F  9 

L 

i, 

5  2 

M 

i. 

H  9 

N 

U 

I  9 

B 

5 

J  9 

r 

5 

'^  0 

D 

5 

E 

r 

M  2 

F 

5 

N  9 

G 

s 

H 

5 

C  6 

I 

5 

5  10 

E  10 


STCRCF 


STCRCK 


F 

10 

G 

10 

H 

10 

I 

10 

,1 

10 

K 

10 

1 

10 

M 

1(1 

N 

10 

R 

11 

r 

11 

1) 

11 

F 

11 

F 

11 

G 

11 

H 

11 

1  1 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

f 

12 

0 

12 

F 

12 

F 

12 

G 

12 

H 

12 

I 

12 

,1 

12 

K 

12 

1 

12 

M 

12 

N 

12 

R 

ll 

r 

1^ 

D 

1< 

F 

1< 

F 

M 

G 

1^ 

H 

1< 

1 

H 

J 

1^ 

K 

n 

1 

li 

M 

13 

N 

\S 

R 

H 

r 

U 

0 

U 

F 

14 

F 

U 

G 

U 

H 

U 

I 

U 

J 

u 

K 

u 

L 

u 

AXBFR 


AXDAT 


AXDSP 


AXDSP8 


M 

U 

N 

R 

■  5 

r 

■  \ 

0 

IS 

F 

^s 

F 

IS 

G 

IS 

H 

IS 

I 

IS 

.1 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

16 

r 

1ft 

D 

16 

F 

16 

F 

16 

G 

16 

H 

16 

1 

16 

J 

16 

K 

16 

L 

16 

M  16 


AXDSPP 


AXBSPM 


AxrSPP   -    AUXI 
SyTiDol    tJDLe 


ftSC*1P   = 

4$$CHK.= 

■»$tCPS  = 

AS$PR1= 

At$TRP= 

CB.CCB= 

CB.DDH= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBRET 

CCBRT   = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SyN= 

CF.TRN= 

CM.CIR= 

CM.FMT= 

CM.HRD= 

lM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS   = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRC= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 


000000  ■ 

000000 

000000 

000000 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000030R 

**•♦»♦  GX 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

OOC    10 

000^00 

000400 

000004 


CS.DEV- 

000002 

CS.D1S= 

•000040 
^00001 

CS.ENA= 

CS.ENB= 

000020 

CS.ERR= 

100000 

CS.FTL= 

001000 

CS.HCR= 

'■•00001 

CS.HFE= 

002000 

CS.LST= 

040000 

CS.MTL= 

004C00 

CS.RNG= 

000010 

CS.ROV= 

000004 

CS.RSN= 

010000 

CS.SHU= 

000001 

CS.SID= 

000002 

CS.STR= 

000004 

CS.SUC= 

000001 

CS.TH0= 

020000 

CS.XUR= 

000004 

C$$CKP= 

000000 

C$$0RE-- 

000400 

C$$RSH= 

177564 

C.ADD 

000034 

C.BID 

000003 

C.BUF 

000014 

C.BUFl 

000014 

C.BUF2 

000024 

C.CNT 

000020 

C.CNTl 

000020 

C.CNT2 

000030 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

C.LIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

000004 

C.PRO 

000042 

C.RSV 

000002 

C.STA 

000007 

C.STS 

000012 

C.URM 

M777f- 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLI 

000040 

r.XPT 

000034 

C.XSVC 

000042 

C.XTC 

0001-37 

r.x?5 

000036 

DDFNC  = 

*****  : 

DUMMY 

000026R 

D$$BUG= 

177514 

D$$ISK= 

000000 

D$$L11= 

000001 

D$$rNC= 

000000 

GX 


B  1 

jesday  03-Sep-85  11:00 
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D$$YNM=  000000 

I$$RAR=  000000 

M$$CRB= 

000124 

EXRQN  =  ******  GX 

I$$RDN=  000000 

H$$CRX= 

000000 

E$$XPR=  000000 

KMCL    000300R 

M$$FCS= 

000000 

FC.CCP=  000020 

K$$CNT=  177546 

M$$MGE= 

000000 

FC.CTL=  000006 

K$$CSR=  177546 

M$$NET=: 

000000 

FC.KCP=  000016 

K$$LDC=  000000 

M$$0VR= 

000000 

FC.KJL=  000004 

K$$TPS=  000074 

NETACP 

000304R 

FC.mN=  000024 

LD$LP  =  000000 

NMCL2  = 

******  GX 

FC.MLD=  000026 

LF.ACT=  100000 

NMCMP 

00031  OR 

FC.PCT=  000030 

LF.6R0=  000400 

N$$ACC= 

000001 

FC.PUR=  000022 

LF.SWT=  000007 

N$$BUF= 

000001 

FC.RCE=  000002 

LF.ENA=  002000 

N$$LDV= 

000001 

FC.RCP=  '^noou 

LF.LPR=  001000 

N$$MCP= 

000001 

FC.nM=  oOOOlO 

LF.MDC=  000100 

N$$MLL= 

000001 

FC.XCP=  000012 

LF.MFL=  004000 

N$$M0V= 

000010 

FC.XME--  000000 

LF.MTP=  000020 

N$$NCT= 

000001 

FS.AST=  000000 

LF.PAC=  000200 

N$$PEM= 

000001 

FS.CJB=  002000 

LF.RDY=  040000 

PDSPL  = 

******  GX 

FS.CRA=  001000 

LF.REA=  010000 

PUFAIL 

000034R 

FS.DIS=  013000 

LF.SER=  000040 

PWRFL 

0001 70R 

FS.DVC=  001000 

LF.TIM=  000010 

PWRFl  = 

******  GX 

FS.ENB=  012000 

LF.UNL=  020000 

P$$P45= 

000000 

FS.EXI=  001000 

LF.X2P=  000000 

P$$RFL= 

000001 

FS.GEr=  006000 

LN.CLO=  000000 

P$$WRD= 

000000 

FS.HLT=  000000 

LN.DUM=  000005 

Q$$0PT= 

000010 

FS.INJ=  000000 

LN.L0A=  000004 

RDBRT  = 

******  GX 

FS.KIL=  000000 

LN.L00=  000003 

R$$DER= 

000000 

FS.LCL=  100000 

LN.OAU=  000003 

R$$K11= 

000001 

FS.LTM=  OOIUOO 

LN.OFF^  000001 

R$$SND= 

000000 

FS.MNT=  004000 

LN.ON  =  000000 

R$$11M= 

000000 

FS.MSN=  014000 

LN.00P=  000004 

SF.ACT= 

000200 

FS.REA=  001000 

LN.OPE=  000001 

SF.ENA= 

000100 

FS.RET=  000000 

LN.REF=  000002 

SF.LPB= 

000004 

FS.REZ=  003C00 

LN.SER=  000002 

SF.MFL= 

000040 

FS.RLB=  002'.-00 

LN.STA^  000017 

3F.PAC= 

000020 

FS.RNG=  011000 

LN.SU8=  000360 

SF.REA= 

000010 

FS.RST=  000000 

LN.TRI=  000006 

SF.SER= 

000001 

FS.RTN=  001000 

L$$ASG=  000000 

SF.SVC= 

000002 

FS.SET=  005000 

L$$DRV=  000000 

SF.UNL= 

000040 

FS.SFC=  005000 

L$$P11=  000001 

SLTMA  = 

******  GX 

FS.SFR=  006000 

L$$11R=  000000 

SLTNM  = 

******  GX 

FS.SFS=  004000 

L.COST  000015 

SRSTD  = 

******  GX 

FS.SPW=  040000 

L.CTL   000012 

S$$WRG= 

000000 

FS.STH=  000000 

L.CVA   177776 

S$$YSZ= 

007600 

FS.STP=  002000 

L.DDM   000002 

S.COST 

000001 

FS.STR=  001000 

L.DDS   000004 

S.FLG 

000000 

FS.TRM=  003000 

L.DLC   000003 

S.LEN 

000004 

FS.WL8=  001000 

L.DLM   000006 

S.NMST 

000002 

FS.XKL=  002000 

L.OLS   000010 

S . OWNR 

000003 

FS.XOF^  010000 

L.FLG   000000 

TRIB 

000166R 

FS.X0N=  007000 

L.KRBA  000016 

TSKRT  = 

******  GX 

FS.7ER^  002000 

L.LEN  =  000022 

T$$KMG= 

000000 

F$$lVL=  000001 

L.MPF   000022 

T$tMIN= 

000000 

G$$rpp=  000000 

L.NMST  000020 

V$$CTR= 

001000 

G$$TSS=  000000 

L.NSTA  000014 

X$$DBT= 

000000 

G$$TTK=  000000 

L.OWNR  000021 

SAUXTB 

OOOOOORG 

G$$WRD=  000000 

L.UNT   000015 

$BFRTN= 

*♦••««  GX 

?   1 
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AXMDC  -  AUX  MODEM  CONTROLLER 
DISABLE  LINE 


222 
223 
22A 
225 
226 
227 
228 
229 
230 
231 
252 
233 
234 
235 

236  000134 

237  OO0U2 

238  000150 

239  000152 

240  000160 
241 

242 
243 
244 

245  000162 

246  000170 
247 

248  000172 

249  000176 


e   2 

MACRO  V05.03b  Friday  28-Jun-85   18:30     Page  10 
.SBTTL      D'SASLE    LINE 

h 

**-DSA8LE-DJSA8LE  LINE 


112765  000002 

126527  000003 

001410 

126527  000003 

001404 


250 
251 
252 
253 

254  000200 

255  000206 

256  000214 
257 


000002 
000004 

000006 


DISABLE  THE  LINE  BY  ENTERING  A  STATE  WHICH  WILL  EVENTUALLY  LEAD  TO 
IDLE.  IF  UE  ARE  WAITING  FOR  A  CONNECT  TO  COMPLETE,  POST  A 
COMPLETION  ON  THE  ENABLE  WITH  AN  ERROR  STATUS. 

INPUTS: 


OUTPUTS: 


DSA8LE: 


112765  000016  000003 


103006 


112765  000020 
152765  000200 


000003 
000005 


10$: 


20$: 


R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 
ONLY  R4  WILL  BE  GUARRENTEED  TO  BE  PRESERVED 


#TM.DIS.  M.TIM(R5) 

M.STT(R5),  *ST.WCN 

10$ 

M.STT(R5),  #ST.CDL 

10$ 

X$$D52 

M.STT(R5),  #ST.DLY 

10$ 

#ST.DDL,  M.STT(R5) 


$PAeO 
20$ 


M0V6 

CMP8 

BEQ 

CMP8 

BEQ 

.IF  DF 

CMP8 

BEQ 

.ENDC 

M0V8 

RETURN 

CALL 
BCC 

A  CC8  ALLOCATION  FAILURE  HAS  OClURRED. 
STATE  AND  FORCE  A  TIMEOUT. 


START  DISCONNECT  TIMER 

IF  WE  ARE  WAITING  FOR  A  CONNECT 

THEN  GOTO  POST  ABORT  TO  DLC  LEVEL 
IF  WAITING  FOR  AN  ASYNC  CONNECT 

THEN  GOTO  POST  ABORT 

If  waiting  for  CD  and  CTS 
then  Goto  post  abort 

ELSE  SET  STATE  TO  DISCONNECT  DELAY 


POST  ABORT  TO  DLC  LEVEL 
ALLOCATION  FAILURE? 


ENTER  POST  ABORT  NOTIFICATION 


MOVB 
BISB 
RETURN 


*ST.A80 
#MC.CCB 


M.STT(R5) 
M.PSV(R5) 


SET  STATE  TO  POST  ABORT  NOTIFICATION 
FORCE  »  DISPATCH  ON  NEXT  TIMEOUT 
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AXMOC   - 
ST.CER   - 

610 
611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
^28 


AUX   l»IODEM   CONTROLLER 
•    CONNEt!   ERROR 


B  3 
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.bBTTL   ST.CER  -  CONNECT  ERROR 
•♦-.CONE-CONNECT  ERROR 


NOTIFY  THE  DLC  THAT  THE  LINE  HAS  LOST  CARRIER  (ASYNC)  OR  DATASET 
READY  (SYNC)  IF  IT  HAS  NOT  ALREADY  BEEN  NOTIFIED.  WAIT  UNTIL 
THE  DLC  ISSUES  A  DISABLE. 


INPUTS: 


R2  -  POINTER  TO  SYSTEM  LINE  TAeLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


001006 
OOIOK 
001016 


132765 
00H10 


000200  000005   .CONE: 


.ENABL  LS8 

BITS  #MC.CCB,M.PSV(R5)  ;  HAVE  WE  ALREADY  NOTIFIED  THE  DLC? 

BEQ  10$  ;  YES 

CALLR  DISC  ;  POS'  ASYNCHRONOUS  fOMPLETION  TO  DLC 


C  3 
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1 
2 
3 

5 
6 
7 
8 
9 

^0 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
52 
33 
3i 
35 
36 
37 
38 
39 

';o 

42 

43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  AXSCH 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1979,1980,  1982, 
DIGITAL  EQUIPMENT  CORPORATION!, 


1983,  1985  BY 
MAYNARO,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUlH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION 

CEX  PROCESS  SCHEDULING  ROUTINES  (RESIDENT  IN  AUX) 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

iDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5. 00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet--11M-Plus   V5.0 
DECnet-Micro/RSX   VI. 0 


ITS 


MArOn     un";      Uh     Fr;H;>^,     58- 


-HS    'R'3n      P^inp    5 


c   '; 


AXSiJB       MACRO  V05.03b   Friday  28-Jun-85   18:30 
Macro  definitions 


Page 


B  5 


51 
52 
53 
5^ 
55 
56 
5/ 
58 
59 
60 

61  000000 

62  000000 
63 
6A 
65 
66 
■J 

68  000000 

69  000002 

70  OOOOOA 
71 
72 
73 
7A 
75 
76 
77 

78  000006 

79  000007 
000010 
000011 

82  000012 

83  000015 
8A 

85 
86 
87 
88 
89 

90  OOOOH  05U44   131574 

91  000006 
92 

93 


.SBTTL  Macro  definitions 


Macro  Library  Calls 


.MCALL 
.MCALL 
.MCALL 
.MCALL 

CCBDFS 
PDVDFI 


INHiB$,ENABL$,SAVRG,RESR6 
CC8Df$,P0VDF$ 
SAVMAP,RESMAP,MAP 
CALLR 


Avoid  system  dependency 

Define  the  ccb  offsets 
Define  the  pdv  offsets 


31 


000003 
000000 


002 
003 
003 
OOA 
OOA 
005 


Local  Storage 

.IF  DF  M$$MGE 
.WORD 


XAVLL:   .BLKW 
.WORD 

.ENDC 


;  Roundir  :  factor 

;  Listheaj 

;  Length  of  this  "block' 


Square  root  lookup  table  (uses  scaling  factor=2) 
number  =  2*(squ3re  root  of  components) 


SSQRTB.- 


Microcode  Load  Request  Data 


.BVTE 

2 

.BYTE 

H 

.BYTE 

3 

.BYTE 

A 

.BYTE 

A 

.BYTE 

5 

MLDTSK:  .RAD50   /MLD. 
MAXLEN  =       6 


component  running 
components  running 
components  running 
components  running 
components  running 
components  running 


RAD50  name  of  microcode  loader 
Maximum  length  of  microcode  name 


Miron    UO";    n7h    Prirlju    ?H-  I 


-8S    lR;3n      P;inp    6 


C     5 


1 
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Symbol    table 

»*•  Assembler   statistics 


Work   file  reads: 

0 

Work   file  writes: 

0 

Size  cf  work  file: 

15813  Words 

(  62  Pages) 

Size  of  core  pool : 

16552  Words 

(  63  Pages) 

Operating      system:    RSX-11M/PLUS 

SV:AXSUB!v2!n5M3'4]AXsiB/CR/-SP  =  SY:[1  J]RSXMCr'I.SML/ML  J130J10]NETL18/ML,C130J0"RSXMCM/PA:1,[131,10]AXSUB 


C     6 

nM    3a-iiiM-Si;    ST     IR-Xl  PAr.F     1 


AXTIM 
100  MSEC 

28C 
281 
282 
283 
28^ 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29^ 
295 
296 
297 
298 
299 
300 
301 
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TIMER  SERVRl 

.SBTTL  100  MSEC  HMER  SERVICE 
.♦-PR100M-100  MSEC  TIMER  SERVICE 


00024^  016^00  OOOOOOG 
000250 

000254  005777  OOOOCOG 
000260  001A06 

000262  016700  OOOOOOG 
000266  017702  0000006 
000272 

000276 


THIS  ROUTINE  IS  CALLED  EVERY  100  MSEC  (WHEN  ACT'VE)  FROM  THE  FORK 
LEVEL.  IT  WILL  DISPATCH  TIMEOUTS  TO  THOSE  PROCESSES  REQUESTING 
SHORT  TIMER  SERVICE  WITH  A  SUBFUNCTION  CODE  OF  'FS.STM'. 


.ENA8L  LS8 


PR100M: :MOV 
CALL 

$11001:  TST 
BEQ 

MOV 
MOV 
CALL 

RETURN 


T100Q,R0 
SCANS^ 

aTlOOQ 
10$ 

T100C.R0 

aTK100,R2 

ClCINS 


POINT  TO  SHORT  TIMER  QUEUE  LIST  HEAD 
SCAN  THE  SHORT  TIMER  QUEUE 

ANY  ENTRIES  LEFT  IN  iHf  QUEUE? 
IF  EQ,  NO 

POINT  TO  THE  100  .ISEC  CLOCK  BLOCK 
GET  #  OF  TICKS  IN  100  MSEC 

AND  INSERT  ENTRY  INTO  CLOCK  QUEUE 


iO$: 


I, AC   A7U 


C  7 
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SESCON  -  Session  control  connec  MACRO  V05.0?b  Friday  28-Jun-85  19:^5 
Table  of  contents 

Macro  Definitions 

Connect  and  connect  accept  QIO  processing 

Connect  QIO  processing 

Connect  accept  GIO  processing 

Process  incoming  connect  request 

Queue  connect  request  to  task 


ft- 

4' 

!- 

61 

8- 

11^ 

V- 

169 

10- 

r-OA 

11- 

i<i 

"1 


C  8 

_  a  c  1  n  .  C  7 


r 


SESCON 

-  Session 

control  co:,nec  MACRO  V''^03b  Fr 

Symbol 

table 

U<.INT= 

000020 

W.CSND  000020         I 

WK.RCV= 

OOOOOA 

U.CTL   000000        I 

W<.SND= 

000002 

W.KAST  OCOOU 

US.DIP= 

000010 

U.ILT   OOOOOA 

WS.INT= 

OOC002 

W.LUN   000003        I 

WS.KAS= 

OOOOOA 

W.MBOX  0000^2 

WS.SU= 

000001 

W.RCVQ  00002A 

W.CINT 

000022 

.  ABS. 

177776 

000 

(RW,I,GBL,ABS,0VR) 

C01036 

on 

(RW,1,LCL,REL,C0N> 

SHIGH 

000004 

0C2 

(RW,I,LCL,REL,CON) 

Errors 

detected; 

0 

B    9 

03b   Friday  28-Jun-85   19:55     Page   11-A 


SE 
i^e 


W.SEGZ 

000006 

SCNOIO 

OOOOOORG 

J;SRDSC  = 

****** 

GX 

U.SNPQ 

000016 

$FL0W  = 

******  GX 

$SRDej= 

****** 

GX 

W.STA' 

000002 

$LTM  = 

•«****  GX 

$UCB  = 

****** 

GX 

W.IMP 

000010 

$MA1BX= 

«***«*  GX 

SWBLK  = 

****** 

GX 

W.WBL 

000026 

$REQID= 

****♦»  GX 

$$SHFT= 

000001 

X$$D8T= 

000000 

$RQNAM= 

«*»»•»  GX 

$$$   = 

000062 

$CNBLK= 

»»**»«  GX 

$SRDFM= 

»»*».  ,  GX 

.$$$$.= 

00003A 

»••   Assembler   statistics 


103 

104 

26043  Wr-ds      (    102  Pages) 

17608  Words      (   67  Pages) 

RSX-11M/PLUS 


WorJ-  fi'e  reads: 
Work  tile  writes; 
Size  of  work  tile: 
Size  of  core  pool: 
Operating     system: 

SY^SESCONl?S;v2,il3i,134]SESCONllS/CR/-SP=Sy:[l,nRSXMCM.SML/ML,[130,110:NETLI8/ML,[130,10]RSXMfS/PA:l,[131,10]V2,SESCON 


C     9 


r 
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SESCTL  -  Session  control  contro  MACRO  V05.05b  Friday  28-Jun-85  19:53  Page  9-2 
Network  deaccess 

CALLR   lOSUC         ;  Complete  the  request 

;  + 

•  I/O  rundown  disconnect  substate  table 
CLSTA: 


SE 
Ac 


283  000262 

28A 

285 

286 

287 

288 

289  000266 

000 

000 

290  000270 

000 

002 

291  000272 

377 

377 

292  00027A 

000 

002 

293  000276 

COO 

377 

294  000300 

C04 

002 

.erTE 

USSDON 

NSSDOM 

CI  sent 

.BYTE 

USSDON 

NSSSDI 

Received  CI,  sent  CC 

.BYTE 

-1,-1 

Received  CI 

.BYTE 

USSDON 

NSSSDI 

Normal  data  transfer 

.BYTE 

USSDON 

-1 

Disconnect  in  progress 

.BYTE 

USSDSC 

NSSSDI 

Disconnect  pending 

1 
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SESCTL  - 

Session  contro 

I  contro  MACRO  V05.03b  f 

riday  2i 

Access  control 

completion 

758 
759 
760 

.IFT 

001160 

105764 

000032 

TSTB 

761 

001 16A 

003412 

BLE 

762 

763 

76A 
^65 
766 

.ENDC 

001166 

012765 

000004  000022  10$: 

MOV 

767 

0011 74 

016403 

000016 

MOV 

768 

001200 

162703 

000004 

SUB 

769 

001204 

CALL 

770 

001210 

103004 

BCC 

771 

772 

001212 

016501 

000022        20$: 

MOV 

7^^ 

001216 

CALL 

771, 

775 
776 
777 

001222 

30$: 

RETURM 

001224 

BADERR. 

$IERRC 

778 

779 

.ENDC 

780 

731 

.ENDC 

B  11 


;  NDF  R$$PR0 

C.FlG2(R4) 
20$ 


;  NDF  R$$PR0 

*ER$U0B,N$ERRC(R5) 

C.BUF+2(R4),R5  ; 

#4,R3 

QUETSK 

30$ 

N$ERRC(R5),R1 
REJECT 


performed  is  OK) 


Did  verification  succeed? 
If  LE,  no  ...  reject  the  connection 
(either  unable  to  perform  verification, 
or  verif.  failed) 


;  Set  up  'object  not  installed' 
Point  to  requested  task  name 

Queue  request  to  task 
If  CC,  successful 

Get  I eason  for  disconnect 
Reject  the  connection 


IE.8AD8377 


Bad  temporary  link  address 


C  11 


SESCTR  -  Session  control  counte  MACRO 
Macro  definitions 


55 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71 

72  000000 

73  00000^ 

7A  000010 

75  000016 

112200 

76  000020 

100407 

77  000022 

016301   000074 

78  000026 

001411 

79  000030 

0601 OC 

80 

81  0U0032 

82 

83  OOOOAO 

111201 

8A  0000'42 

042701   177^71 

85  0000^6 

86 

87  000052 

88 

89  000056 

i:5722 

90  000060 

91  000064 

000202 

92 

93 

94 

95 

96 

97  000066 

000076' 

98  000070 

000106' 

99  000072 

000114' 

100  000074 

000134' 

8  12 
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.IF  DF  N$$NCT 

.SBTTL  Session  control  courter  logic 

**-CTRSES-Session  control  counter  logic 

This  routine  is  called  to  update  one  of  the  ECL  counters. 

Calling  sequence: 

JSR  R2,CTRSES 

.8YTE  <Counter  offset> 

.arTE  <Counter  type> 

Inputs: 

R3  =  Virtual  address  of  LET 

R5  =  Address  of  database  descriptor 


CTRSES: 


10$: 


20$: 


SAVRG 

<R0,R1> 

SAVMAP 

MAPLLT 

MOVB 

(R2)+,R0 

BMI 

10$ 

MOV 

L.CrR(R3),R1 

BEQ 

20$ 

ADD 

RI.RO 

MAP 

M$ENC+4(R5) 

MOVB 

(R2),R1 

BIC 

**C<6>,R1 

CALL 

aCTRTBL(RI) 

RESMAP 

TST8 

{R2)  + 

RESRG 

>'R1,R0> 

RTS 

R2 

Save  some  registers 

Save  current  mapping 

Map  to  current  lit 

Get  counter  offset 

If  MI,  not  a  logical  link  counter 

Get  address  of  counter  block 

If  EQ,  none  allocated  ...  don't  count 

Compute  offset  in  counter  block 

Map  to  the  counter  blocks 

Get  the  counter  type  code 

Isolate  code 

Dispatch  to  counting  routine 

Restore  mapping 

.kip  over  counter  code 
estore  registers 


Session  control  counter  dispatch  table 


CTRTBL:  .WORD  ENCIW 

.WORD  ErjC2U 

.WORD  ENCSR 

.WORD  EMCCIR 


ECL  node  counter  -  1  word 

ECL  node  counter  -  2  words 

ECL  node  counter  -  bytes  sent/received 

ECL  node  counter  -  ignored  CI's 


C  11 


SESDAT  -  Session  control  local 
Table  ot  contents 
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6-  A2  Macro  def ini ■ 'ons 

7-  48  Local  data 

8-  108  local  buffc  ^ 

9-  128  Executive  jector  table 


n 


r  1? 


♦F!LE*«ID*»SESDIS 


B  U 


SI 


SSSSSSSj 

EEEEEEEEEE 

ssssssss 

OOODDDDD 

III 

in 

ssssssss 

ssssssss 

EEEEEEEEEE 

ssssssss 

DDDDDDOD 

111 

ssssssss 

ss 

EE 

SS 

DD 

DD 

ss 

ss 

EE 

ss 

DD 

DD 

ss 

ss 

EE 

SS 

DD 

DD 

ss 

ss 

EE 

ss 

DD 

DD 

ss 

ssssss 

EEEEEEEE 

SSSSSS 

DD 

DD 

ssssss 

ssssss 

EEEEEEEE 

SSSSSS 

DD 

DD 

ssssss 

ss 

EE 

SS 

DD 

DD 

ss 

ss 

EE 

SS 

DD 

DD 

ss 

EE 

SS 

DD 

DD 

Sj 

ss 

EE 

SS 

DD 

DD 

ss 

ssssssss 

EEEEEEEEEE 

SSSSSSSS 

DDDDDDDD 

Hi 

111 

ssssssss 

ssssssss 

EEEEEEEEEE 

ssssssss 

DDDDDDDD 

Hi 

III 

ssssssss 

ssssssss 

ssssssss 

in 

111 

ss 

111 

111 

ss 
ss 
ss 
ssssss 
ssssss 
ss 
ss 
ss 
ss 

ir 

111 

11; 

111 

ssssssss 

111 

111 

111 

in 

ssssssss 

r 
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Macro  definitions 


se; 


45 

AA 

A5 

A6 

A7  000000 

A8  000000 

A9  000000 

50  000000 

51 

52 


.SBTTL  Macro  definitions 

.MCALL   SAVRG,RESRG,MAP,MAPLLT,FVT$,CALLE 
.MCALL  ECDD8$,E\/LDF$,LLTDf$,MSGDF$ 


ECDD8$ 
EVLDFS 
LLTDFS 
MSGDFS 


000C01 


N$$SES  =  1 


Define  ECL  database  offsets 

Define  event  logging  symbols 

Define  LLT  offsets 

Define  message  symbols 

This  module  is  part  of  session  control 
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1 
2 
3 
A 
5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AG 


.TITLE  SESDSP  -  Session  control  dispatching 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitmenl  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  dispatching 

Ident  history: 

A. 00  07-N0V-83 

DECNET-11M  VA.O 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  VA.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl .0 


C  1 

AXDSPP  -  AUXILLIARY  PROCESS  DIS  MACRO  V05.03b  Tuesday  03-Sep-85  11:00  Page  10-3 
Symbol  table 

tMDCIN  000026RG       .$$$$.=  00003^ 

i\BS.  177776    000   (RW,  I  ,GBL  ,ABS,OVR) 
0005K    001    (RU.l.LCL, RELCOM) 
Errors  detected:  0 

*  Assembler  statistics 

Work   tile  reads:  0 

Work   file  writes:  C 

Size  of  work  file:  16133  Words   (  6^.  Pages) 

Size  ot  core  pool:  17608  Words   (  67  Pages) 

Ooerating  system:  RSX-11M/PLUS 

DB2:AXDSPp'!'K7?M°;?3i]AVDSPP/CR/-SP=DB2:[1  J]RSXMC|v|.SML/ML,[130J10]NETLIB/l*lL,[130J0]RSXhCM/PA:1,[131  J0]TA7,^ 


0  1 

AXDSPP     CREATED  BY  MACRO  OM  3-SEP-85  AT  11:00      PAGE  1 


AXMDC  -  AUX  MODEM  CONTROLLER    MACRO 
POST  ABORT  COMPLETION  TQ  DLC  LEVEL 


2?9 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
27S 
279 
280 
281 
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.SBTTL  POST  ABORT  COMPLETIOk  TO  DLC  LEVEL 

*-$PA80-P0ST  ABORT  COMPLETION  TO  DLC  LEVEL 

POST  A  COMPLETION  ON  T'^E  WAITING  CONNECT  WITH  AN  ABORT  STATUS. 
SET  NEW  LINE  STATE  TO  DISCONNECT  DELAV. 


000216  010A';6 

000220  012703  100362 

000224  112702  000016 

0C0230  012701   012000 

000234 

000240  012604 

000242 


INPUTS: 
OUTPUTS; 


R5  -  POINTER  lO  LINE  ENTRY  IN  MDC  DATABASE 


$PABO: 


MOV 

MOV 

MOVB 

MOV 

CALL 

MOV 

RETURN 


CNLV  R4  WILL  BE  GUARRENTEED  TO  BE  PRESERVED 
'C  CLEAR  -  COMPLETION  POSTED  TO  DLC  LEVEL 
'C  SET   -  ALLOCATION  FAILURE 


R4,-(SP) 

*CE.AB0,R5 

#ST.DDL,R2 

#fS.ENB,Rl 

SSCHPR 

(SP)',R4 


SAVE  R4 

SET  ABORT  STATUS 

SET  NEW  STATE  TO  DISCONNECT  DELAY 

SET  SUSFUNCTION  CODE 

POST  COMPLETION  TO  DLC  LEVEL 
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AXMDC  - 
ST. ABO  - 

630 
631 
632 
633 
63A 
635 
636 
637 
638 
639 
6A0 
641 
6A2 
6A3 
644 
645 
646 
647 
648 
649 
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POST  ABORt  COMPLETION  TO  THE  DLC  LEVEL 


00102? 
001026 
001030 
001036 


.SBTTL   ST. ABO  -  POST  ABORT  COMPLETION  TO  THE  DLC  LEVEL 

-.PASO-POST  ABORT  COMPLETION  TO  DLC  LEVEL 

A  LINE  WAITING  FOR  CONNECT  WAS  DISABLED  AND  THE  MODEM  CONTROLLER 
WAS  UNABLE  TO  PICK  THE  RESOURCES  TO  NOTIFY  THE  DLC  PROCESS.  ATTEMPT 
TO  NOTIFY  THE  DLC  PROCESS  NOW. 


103004 
152765 


000200  000004 


.PABO: 


10$: 


INPUTS: 


CALL 
BCC 
BIS8 
RETURN 


R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  C'STEM  LINE  NUMBE? 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


$PA80 
.DISD 
#MC.CCB,  M.CSV(R5) 


POST  ABORT  CCMP!  ETION  TO  DLC 

IF  SUCCESSFUL  PERFORM  COMPLETION  TASKS 

ELSE  MARK  ALLO.'ATION  FAILURE 


.DSABL      LS8 
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Macro  definitions 


C  4 


55 
5'. 
5S 
56 
57 
58 
59 

60  000000 

61  000000 
6?  OOUOOO 
63 

64 
65 
66 
67 
68 
69 


•SBTTL  Macro  definitions 

MACRO  LIBRARy  CALLS 

.MCALL  INHi8$,ENABL$,SAVRG,RESRG 

.MCALL  CCeDF$,PDVCf$,OPTDF$ 

CCBDFS  ;  DEFINE  THE  CCB  OFFSETS 

OPTDFS  ;  DEFINE  CEX  OPTIONS 

PDVDFS  ;  DEFINE  THE  PDV  OFFSETS 


.IF  DF 


.MCALL 
SCBDFS 


.END! 


R$$MPL 
SCBuFS 


DEFINE  SCB  OFFSETS 
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AXSJE   "lACRO  V05.05b  Friday  28-Jun-85 
Macro  def  in , t  ions 

9S 

96 

9' 

98 

99 
100 
101 

-? 

5 

105 

106 

10" 

108 

109 

110 

111 

112 

113 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

12? 

124 

12'^ 

126 

127 

128 

129 

130 

131 

132 

133 

^3A 

135 

136 

137 

138 

139 

UO 

U1 

U2 
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.IF  DF 
.S8TTL 


C  5 

R$$MPL 

$ENUMR  -  Load  UMRs  on  device  enable 


**-$ENUMR-Load  UMRs  on  device  enable 

This  routine  is  called  from  the  'enable  line'  processing  routine  of 
DDM  nrocesses.  !t  will  load  the  ijmr's  for  the  processor  on  which  it 
is  .  jnning  if  they  are  not  already  loaded. 


10$: 


Inputs : 


R4 


enable  ccb 


SENUMR: :.IF  DF   R$$MPL 
.IF  NDF  R$$PR0 


SIT 

BEO 

TST 

BNE 

SAVRG 

MOV 

MOV 

SUB 

ASH 

SUB 

MOV 

MOV 

M0V8 

MOV 

MOV 

ASH 

MOV 

MOV 

ADD 

ADC 

SOB 

CALL 


RESRG 
100$:   IMC 
110$:   RETURN 

.ENDC 
.ENDC 


#F2.MP,aFMSK2 

110$ 

aPUMR 

100$ 

<R0,R1,R2,R3,'";, 

aUMRPT,R2 

M.UMRA(R2),R3 

*U8MPR,R3 

#5,R3 

aQSTRT,R3 

R3,aPUMR 

M.8FVL(R2),R3 

M.BFVH(R2),R4 

M.UMRA(R2),R5 

M.UMRN(R2),R2 

*-2,R2 

R3,(R5)t 

R',.(R5)  + 

*26000,R3 

RA 

R2,10$ 

SSMPIS 


<R5,R'.,R3,R2,R1,R0> 
$ArTLN 


Is  this  a  multi-processor? 
BR  if  no 

are  the  umr's  loaded? 
yes  ...  don't  toad  them  again 
5>  ;  no  ...  save  some  registers 
get  pointer  to  umr  allocation  block 
get  first  umr  address  to  load 
get  as  offset 
shift  to  high  bits 
bias  correctly  for  pool 
set  up  new  $pumr  value 
get  pool  partition  address 

get  first  umr  address  to  load 
and  (#  of  umr's  to  load  *  4) 

get  actual  number  of  umr's 

toad  a  umr 

doubleword  register 

move  on  by  4k 


loop  till  all  loaded 

start  processor  dependant  timer 


eftore  registers 
update  count  of  active  lines  on  this  proces'-or 
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PAGE    1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERE.NCES 

AlOCB 

- 

****** 

GX 

8-215 

CLBGT 

- 

****** 

GX 

12-A96 

CEACC 

- 

****** 

GX 

8-219 

8-231 

9-281 

9-293 

9-310 

10-380 

10-392 

CEDIV 

- 

****** 

GX 

ll-'iSO 

CS.A80 

~ 

000100 

12-528 

CS.ERR 

= 

100000 

12-528 

C.BUF1 

oooou 

•12-521 

C.LIN 

000006 

12-500 

DEACB 

~ 

****** 

GX 

9-275 

EXRQF 

- 

****** 

GX 

12-522 

FC.MLD 

~ 

000026 

12-502 

FMSK2 

- 

****** 

GX 

10-372 

10-384 

10-397 

FS.RLB 

- 

002000 

12-502 

F2.DAS 

r 

V***** 

GX 

10-372 

10-384 

10-397 

ISSAS 

- 

****** 

5-62 

KiSAR6 

- 

****** 

GX 

8-205 

»8-235 

9-276 

9-283 

9-300 

♦9-301 

♦9-303 

♦9-316 

9-323 

.9-324 

♦9-326 

♦9-330 

♦9-337 

♦12-511 

K$$DAS 

= 

****** 

4-1 

4-2 

MAXLEN 

- 

000006 

#5-"1 

12-504 

12-515 

MLDT5< 

OOOOIA 

R 

#5-90 

12-492 

^SSMGE 

- 

OOOOCO 

5-66 

8-198 

9-267 

10-370 

12-507 

NSSVCT 

- 

****** 

8-205 

8-235 

9-276 

9-283 

9-300 

9-301 

9-303 

9-316 

9-323 

9-324 

9-326 

9-330 

9-33:' 

12-511 

RDBNM 

r 

**'■*** 

GX 

11-457 

RDBTH 

r 

****** 

GX 

11-458 

R$$MPL 

- 

****** 

6-95 

R$$11[' 

- 

****** 

5-62 

'^$$11'^ 

- 

000000 

5-62 

R$$11S 

- 

****** 

5-62 

SQRCM 

= 

****** 

GX 

11-447 

11-451 

11-461 

SRSTC 

~ 

****** 

GX 

12-493 

XAVL 

- 

****** 

GX 

3-209 

8-236 

9-288 

9-332 

XAVLL 

0U0002 

R 

*5-69 

8-206 

8-236 

9-284 

9-332 

XSiMCB 

= 

****** 

5-62 

5-62 

ZF.COU 

= 

001000 

#5-62 

ZF.DDM 

r 

000001 

#5-62 

ZF.DIA 

= 

OOAOOO 

#5-62 

ZF.DLC 

- 

000002 

#5-62 

ZF.DVP 

r 

100000 

#5-62 

ZF.INI 

- 

0..0000 

#5-62 

ZF.KMX 

- 

000020 

#5-62 

ZF.LLC 

- 

OO0CC4 

#5-62 

ZF.LMC 

- 

000100 

#5-62 

ZF.'IAN 

- 

020000 

#5-62 

ZF.MFL 

- 

000010 

#5-62 

ZF.I»|TI*1 

r 

OOOAOO 

#5-62 

ZF.MUX 

0C004U 

#5-6? 

ZF.PSf 

- 

002000 

#5-62 

ZF.^.LI 

^ 

OlOOOi. 

#5-62 

Z-.TIM 

- 

"00200 

#5-62 

ZF.X?P 

- 

000000 

#5-62 

ZS.A3N 

- 

10000^ 

#5-62 

9-308 


9-308 


♦9-314 


9-314 


AXSilB 
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100  KSEC  TIMER  SERVICE 


305 
?C4 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
32? 
323 
324 
325 
326 
327 
328 
329 


.IF  DF  R$$MPL 
.IF  NDF  R$$PR0 

-MP100M-100  MSEC  TIMER  SERVICE  (MULTI-PROCESSOR  ENTRY) 

THIS  ROUTINE  IS  CALLED  EVERY  100  MSEC  (WHEN  ACTIVE)  ON  THE  PROCESSOR 
TO  WHICH  THE  DEVICE  REQUESTING  SERVICE  IS  CONNECTED.  IT  WILL 
DISPATCH  TIMEOUTS  TO  THOSE  PROCESSES  REQUESTING  SHORT  TIMER  SERVICE 
WITH  A  SUeFJ\CT!nN  CODE  OF  'FS.STM'. 


POINT  TO  SHORT  TIMER  LISTHEAD 
SCAN  SHORT  TIMER  QUEUE 

ANY  SHORT  TIMERS  ACTIVE? 
IF  EQ,  NO 

GET  PROCESSOR  NUMBER  *2 
POINT  TO  ADDRESS  OF  TIMER  QUEUE  ELEMENT 
GET  ADDRESS  OF  TIMER  QUEUE  ELEMENT 
;  SET  UP  ADDRESS  OF  PROCESSING  ROUTINE 
GET  #  0!  CLOCK  TICKS  IN  100  MSEC 
START  THE  SHORT  TIMER  RUNNING 


MP100M::MOV 

MIOOQ.RO 

• 

CALL 

SCANST 

; 

TST 

SM100Q 

BEQ 

10$ 

• 

M0V8 

aPR0C2,R0 

■ 

ADD 

STMTS, RO 

; 

MOV 

(R0),R0 

MOV 

*MP100M,C 

SUB(R0i 

MOV 

51TK100,R2 

; 

CALLR 

SSMPTM 

.ENDC 

.ENDC 

.DSABL 

LSB 

IV  1 1  I  T  \n\ 
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9 
10 
11 
-.2 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESCON  -  Session  control  connect  processing 
.IDEM  /V05.00/ 
.ENASL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipme'it  Corporation,  Maynard,  MASS. 

This  software  is  furn'shed  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  informatiori  ,^  this  document  is  subject  to  change  withou; 
notice  ana  shoulj  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  connect  processing 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLU5  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SYMBOL   VALUE 


ACC 

ADDGNQ 

ADDMAI 

CAT5 

CM.rON 

CON 

CONTBL 

CPYOPT 

CX.RU! 

C.B'JF 

C.BUF? 

C.CNT2 

C.FLG2 

C.FNC 

C.MOD 

C.NSP 

C5TA 

OECPT 

OSLNUM 

ERSACC 

ER$MLB 

ERSNSR 

ERSUOB 

IE.  BAD 

lE.NRJ 

lE.RSU 

lODUN 

lOERR 

iOSUC 

I.FCN 

I.PRM 

I.TCB 

KISAR6 

LF.MMF 

L.SEGZ 

L.WIND 

MAPOBJ 

M.MAX 

M.NEXT 

M.RESP 

M.TASK 

M.USE 

NC.FM1 

NFSACC 

NF$DMO 

MFSRST 

NF.ACC 

NT.fnN 

NT.VFY 

NSERRC 

N$FLG 

NSLLT 


000300  R 
=  ****** 
=  ****** 
=  ****** 
=  000200 
000106  R 
000000  R 

-   ****** 

=  OOOOAO 
000014 
000024 
000030 
000032 
000010 
000011 
OOOOOA 


GX 
GX 
GX 


GX 


OOOOU 
000042 
000006 
000003 
OOOOOA 


****** 


-   **♦♦♦* 

r:   ****** 


000200 
000076 
000040 

*♦**+* 

00001 i 
000002 
000016 
0C0004 
000010 
000001 
100000 
000010 
000002 
000001 

000001 

000007 
000022 
C  0005 
000026 


GX 
GX 


GX 
GX 
GX 
Gx 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


REFERENCES 
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CREF       04.00 


St 
Sc 


7-109 

#9-186 

11-415 

11-412 

10-249 

10-252 

10-268 

10-301 

10-515 

7-108 

#8-150 

7-91 

#7-108 

8-156 

9-189 

10-280 

10-240 

10-255 

10-320 

*10-299 

10-228 

•10-500 

10-321 

»10-268 

•10-301 

10-315 

•10-280 

•11-411 

8-152 

8-154 

10-227 

10-228 

10-325 

11-390 

10-224 

10-232 

9-202 

8-165 

9-200 

8-167 

9-200 

9-202 

9-196 

7-88 

8-132 

8-133 

8-157 

8-149 

•7-95 

•8-132 

•8-144 

7-87 

9-195 

•  7-97 

10-257 

11-399 

11-401 

11-384 

11-385 

7-77 

11-387 

•8-162 

11-401 

•11-409 

8-145 

10-288 

10-225 

10-230 

10-286 

10-268 

10-315 

10-319 

10-501 

11-394 

8-166 

•10-224 

•10-232 

10-22J 

10-230 

7-96 

10-319 


11-394 


•10-319 


11-394 


9-190 


•10- 


•11-590 


_Q[;    AT    iQ.t;? 


D     9 


L 


SESCTL  ■  Session  control  contro 
Specify  network  dota  AST 

296 

297 

2"8 

299 

300 

301 

302 

303 

30^ 

305 

306 

307 

308 

309 

310  0OC172 

311 

312  000172 


313  000200 

3''.  00020A 

3i5 

316  000206 

J17  000210 

318  000212 

319  000216 
320 
321 
322 
323 

324  00&23C 

325  000?32 
326 

327  0O0234 

328  000240 


0C0220 
000226 
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.S6ITL  Specity  network  data  AST 

*»-SPA-Specify  network  data  AST 

Specify  the  network  data  AST  address  to  be  used  when  a  network 
event  is  placed  on  the  mailbox  queue. 


SE 
Ge 


Inputs 


016364  OOOOOOG 
062704  000014 
005001 

011404 

001411 

105764  000010 

100004 

132764  000004 
001367 


000012  SPA: 


10$: 


000011 


005201 
000765 

012700  OOOOOOC 


20$: 
30$: 


Rl  =  Address  of  the  task's  header 

R2  =  Subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

.PSECT  $HIGH 


MOV 
ADD 
CLR 

MOV 
BEQ 
TSTB 
BPL 

BITB 
BNE 

INC 
BR 

M^V 
CALLR 


I.PRM(R3),M.SPA(R4) 

#M.MAIL,R4      ;  Point  to  mail  listhead 
;  Initialise  count 


Rl 

(R4),R4 
30$ 

C.FNC(R4) 
20$ 

*CX.UNL,C.M0D(R4) 
10$ 

Rl 

10$  ; 

#IS.SUCS377,R0  ; 
lODUN 


Get  next  queue  item 

If  EQ,  end  of  list 

Is  this  a  connect-type  CCB? 

If  PL,  no  . . .  always  count  it 

;  Is  this  request  pending? 
If  NE,  yes  ...  don't  count  it 

Increment  count  of  items  en  the  queue 
and  loop 

Return  success 
Complete  the  request 
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SESCTL  -  Session  control  contro 
Get  local  node  oarameters 


78^ 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799  001232 

800  0012A0 

016301 

000002G 

801  001 2AA 

017702 

OOOOOOG 

802  001250 

062702 

000006 

803  001254 

012704 

000006 

804  001260 

020463 

000004G 

805  001264 

101402 

806  001266 

0163C': 

000004G 

807 

808  001272 

160463 

000004G 

809  001276 

112221 

810  001300 

811 

812  001304 

012700 

OOOOOOC 

813  001310 

022763 

000002 

814  001316 

101016 

815 

816  001320 

017704 

OOOOOOG 

817  001324 

116421 

000036 

818  001330 

116421 

000037 

819 

820  001334 

022763 

000004 

821  001342 

101004 

822  001344 

016421 

000014 

823 

824  001350 

012700 

000000c 

825  001354 

166301 

000002G 

826  001360 

827 

828 

000001 

C  11 
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.SBFTL  Get  local  node  parameters 
«*-GLM-Get  local  node  oarameters 


Inputs 


GLN: 


10$: 
20$: 


000004G 


000004G 


30$: 


Fill  the  user's  buffer  with  the  local  node  name  and  the  default 
segment  size. 

Rl  =  Address  of  the  task's  header 

R2  =  Subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Adciress  of  database  descriptor 

The  task  header  is  mapped  (RSX-1 IM-Plus  ONLY) 


MAP  I.PRM(R3) 

MOV  I.PRMt2(R3),R1 

MOV  SDECPT,R2 

ADD  #D$LNAM,R2 

MOV  #6,R4 

CMP  R4,I.PRM+4(R3) 

BLOS  10$ 

MOV  I.PRM+4(R3),R4 

SUB  R4,I.PRM+4(R3) 

M0V8  (R2)+,(R1)t 

SOB  R4,20$ 

MOV  #IS.DAO&377,R0 

CMP  *2,I.PRMt4(R3) 

BHI  30$ 

MOV  aDECPT,R4 

Move  D$SEG(R4),(R1)t 

MOVB  D$SEG+1(R4),(R1)+ 

CMP  *4,I.PRMt4(R3)   ; 

BHI  30$ 

MOV  D$LMUM(R4),(R1)+ 

,'OV  *IS.SUC&377,R0  ; 

SUB  I.PRM+2(R3;,R1   ; 

CmILR  IODUN  ; 

.END 


Map  to  the  usee's  buffer 

Get  virtual  address  of  user's  buffer 

Point  to  the  local  node  name 

Assume  6  bytes  to  copy 

Enough  space  in  user's  buffer? 

If  LOS,  yes 

Use  user  specified  size 

It   of  bytes  remaining 

Copy  node  name  to  user  buffer 


Assume  data  overrun 

Enough  room  for  segment  size? 

If  HI,  no 

Get  the  DEC  home  block 

Plant  default  segment  size  in  buffer 


Enough  room  for  segment  and  node  number 
If  HI,  no 
;  Else,  fill  in  the  node  number 

Set  success  code 

Compute  #  of  bytes  transferred 

Complete  the  request 
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SESCTR  -  Session  control  cOLinte  MACRO 
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102 
103 
IDA 
105 
106 
107 
108 
109 

no 

111 
112 
113 
1U 

115 
116 
11? 
118 
119 
120 

121  000076 

122  000100 

123  000102 
12A  000104 
125 

126 
127 
128 
129 

130  000106 

131  000112 
132 

133 
13A 
135 
136 

137  0001 U 

138  000120 

139  000122 
UO  00012A 
U1  000130 
K2  000132 
U3 

UA 

1A5 

1A6 

U7 

U8  00013A 

1A9  OOOUO 

150  0001'.2 

^51  0001A6 

152 

153 

■'5', 

'55 


005210 
001001 
005310 


062720  000001 
00GA02 


066720  OOOOOOG 
005510 


103003 
012710 
0110A0 


177777 


005265  0POO34 

001002 

005365  00003A 
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■SBTTL  ECL  node  counter  routines 

"♦-E^ICXX-ECL  node  counter  routines 

These  routines  are  entered  to  update  ECL  node  counters. 

Inputs : 

RO  =  Address  of  word  in  counter  block 
R5  =  Address  of  database  descriptor 

Registers  modified: 
RO 

.ENABL  LS8 

h 

ECu  node  counter  -  1  word 


ErjClW:   INC  (RO) 

BNE  10$ 

DEC  (RO) 

10$:    RETURM 


ECL  node  counter  -  2  words 


ENC2W.   ADD 
BR 


#1,(R0;+ 
20$ 


Increment  counter 
If  ME,  no  ouerflow 
Don't  wrap  around 


Increment  first  word 
Enter  common  code 


ECL  node  counter  -  bytes  sent/received 


ENCSR:   ADD 
20$:    ADC 

see 

MOV 
MOV 


$8rTE,(R0)i 

(RO) 

30$ 

#-1,(R0) 

(R0),-(R0) 


Add  byte  count  to  first  word 
Add  carry  into  second  word 
If  Ci;,  no  ouerflow 
Latch  counter  at  max  value 


3"$:     RETURN 

ECL  node  counter  -  ignored  CI's 


ENCCIR:  INC  N$CIR(R5) 

ONE  A0$ 

DEC  N$CIR(R5) 

AOI:    RETURN 

.DSABL  LS8 
.ENDC 


Update  count  of  ignored  CI's 

If  NE,   no  ovcflow 

Latch  counter  on  ouerflow 
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3 

5 
6 

7 

8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESDAT  -  Session  control  local  database 
.IDE^JT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownersh-p  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subje't  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  local  database 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Table  ot  contents 


SI 
D 


5A    Disconnect  and  connect  reject  010  processing 
83    Disconnect/abort  QIO  processing 
1?5    Connect  reject  010  processing 


n 


D  U 


r 


SESDMO  -  Session  control  dismou 
Dismount  QIO  processing 

5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66  000000 

67 

68  000000  152765  000010 

69  000006  U2765  OOOOOA 

70  00001A  132763  000010 

71  000022  00U16 

72  000024  016700  OOOOOOG 

73  000030  152760  OOOOOOG 

74  000036 

75  000052  152765  000004 
76 

n  000060 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


C  15 

MACRO  V05.03b  Friday  28-Jun-85  19:55  Page  7 


.SBTTL  Dismount  QIO  processing 

••-SDMQIO-Dismount  010  processing 

This  routine  processes  network  dismount  requests. 

Inpucs: 

R1  =  Address  of  task's  header 

R2  =  I/O  subfunction  code/4 

R3  =  Address  of  I/O  packet 

R5  =  Address  of  database  descriptor 


000005 
000005 
OOOOOOG 


OOOOOOG 
000005 


SDMQIO: 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

105 

104 

(05 

'06 


000060 


000064 
000070 
000072 

000076 
000102 
000106 

000110 
000116 
000120 

000124 


016504 
001407 
011465 

012701 

000766 

132765 
001002 


10$: 


15$: 


20$: 


000052 
000052 
000003 


000004  000005  30$: 


100$: 


.PSECT 
:8ISB 

Bice 

BITS 

BEQ 

MOV 

BISB 

EVT$ 

BISB 

.IF  DF 

MOV 

CMP 

BEQ 

CALL 

BR 

CLR 

MOV 

MOV 

CLR 

SAVRG 

CALL 

RESRG 

.IFF 

CALL 

.ENDC 

MOV 
BEQ 
MOV 

MOV 

CALL 

BR 

BITB 

BNE 

CALLfi 

RETURN 


$HIGH 

#NF$DM0,N$FLG(R5)  ;  Set  '^'ismount  in  progress'  flag 
#NF$SHU,N$FLG(R5)  ;  Clear  'shut'  state  flag 


*10,I.FCN(R3) 

10$ 

$UCB,RO        , 

OUS.MDM.U.STSCRO) 

2,0,,,RE$OHR,SC$SHU«400!SC$ON  ;  Issue  state  change  event 

*NF$SHU,N$FLG(R5)  ;  Set  'shut'  state  flag 


Should  the  state  go  directly  to  off? 

If  EQ,  yes 

Set  the  'dismount  in  progress'  flag 


N$$BUF 

I.TCB(R3),R0 

T.NAM(RO),**RNMV 

15$ 

lOSUC 

20$ 

I.PRM+12(R3) 

T.PCB(RO),I.PRM+ 

#IS.SUC837,R0 

R1 

<R5> 

aouEBF 

<R5> 

lOSUC 


Get  the  TCB  address 
;  Do  buffered  I/O  for  NMVACP  only 

If  EQ,  do  buffered  completion 

Else,  do  regular  I/O  completion 
and  continue 

Set  up  $QUEBF  for  I/O  status  mapped 
6(R3)  ;  and  NMVACP's  TCB  address 

Return  success 

Save  the  DDE;  acidress 
Complete  the  I/O 
Recover  the  DDB  address 

Complete  the  I/O  request 


N$GENQ(R5),R4 

30$ 

(R4),N$GENQ(R5) 

#ER$NSR,R1 

REJECT 

20$ 

#NF$5HU,N$FLG(R5) 
100$  ; 

FLSLNK 


Get  next  entry  on  general  delivery  queue 
If  EQ,  no  more 
Unlink  CCB  from  queue 

Reason  =  node  shutting  down 
Reject  the  connection 
Try  next  entry 

If  NE,  allow  links  to  be  disconnected 
Flush  any  active  logical  links 
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A2 
45 
44 
45 
46 

47  000000 

48  000000 

49  000000 

50  OOOOO'i 

51  OOOOOv' 

52  000000 
53 

54 


.SBTTL  Macro  definitions 

.MCALL   SAVRG,RESRG,MAP,MAPLLT,RECMAP 

.MCALL  CC8Df$,ECD0B$,M8XDF$,LLTDF$,CNB»F$,DHBDF$ 


CC8DF$ 
DHBDFS 
ECDDBJ 
M8XDF$ 
LLTDFS 
CNBDFS 


000001 


f>J$$SES  =  1 


Define  CCB  offsets 

Define  DEC  home  block  offsets 

Define  ECL  database  offsets 

Define  mailbox  offsets 

Define  LLT  offsets 

Define  connect  pending  block  offsets 

Ttiis  module  is  part  of  session  control 


n 
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SYMBOL  CROSS  REFERENCE 


D  1 

PAGE  1 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

ASCMP 

=  ,.,*«.   GX 

8-168 

CB.CCB 

^  000002 

10-306 

CCBRET 

000030  R 

7-106 

#7-120 

CCBRT 

=  *».*..  GX 

7-120 

10-308 

CE.DIS 

=  100366 

8-167 

cs.Lsr 

=  0^0000 

10-303 

C.ADD 

00003'!, 

10-270 

C.bID 

000003 

10-306 

C.CNT2 

000030 

10-274 

10-286 

C.STS 

000012 

•10-303 

DOFNC 

=  ***»♦»  GX 

9-228 

DUMMY 

000026  R 

#7-119 

EXRQN 

=  »♦»♦*»  GX 

10-304 

I$$AS 

~   ****** 

5-1 

7-115 

KMCL 

000300  R 

9-237 

#9-249 

LF.ACT 

=  100000 

#6-77 

8-154 

LF.BRO 

=  000400 

#6-77 

10-277 

LF.BWT 

=  000007 

#6-77 

LF.ENA 

=  002000 

#6-77 

LF.LPB 

=  001000 

#6-77 

LF.MDC 

=  000100 

#6-77 

LF.MFL 

=  OOAOOO 

#6-77 

LF.MTP 

=  000020 

#6-77 

10-279 

LF.PAC 

=  000200 

#6-77 

LF.RDY 

=  040000 

#6-77 

LF.REA 

=  010000 

#6-77 

LF.SER 

=  OOOOAO 

#6-77 

10-281 

LF.TIM 

=  000010 

#6-77 

LF.UNL 

=  020000 

#6-77 

LF.X2P 

=  000000 

#6-77 

LN.CLO 

=  000000 

#6-77 

LN.DUM 

=  000005 

#6-77 

LN.LOA 

=  000004 

#6-77 

LN.LOO 

=  000005 

#6-77 

LN.OAU 

=  000003 

#6-77 

LN.OFF 

=  000001 

#6-77 

LN.ON 

=  000000 

#6-77 

LN.OOP 

=  000004 

#6-77 

LN.OPE 

=  000001 

#6-77 

LN.REF 

=  000002 

#6-77 

LN.SER 

=  000002 

#6-77 

LN.STA 

=  000017 

#6-77 

LN.SUB 

=  000360 

#6-77 

LN.TRl 

=  000006 

#6-77 

L.COST 

000015 

#6-77 

L.CTL 

000012 

#6-77 

L.CVA 

]7777t 

#6-77 

L.DDI" 

000002 

#6-77 

9-227 

L.DDS 

000004 

#6-77 

9-226 

L.DLC 

000003 

#6-77 

L.DLM 

000006 

#6-77 

L.DLS 

000010 

#6-77 

9-235 


9-248 


AXDSPP 
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POST   ABORT    COMPLETION   TO  DLC   LEVEL 


285 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 

296  000244 

297  00C246 

298  000252 

299  000254 

300  000260 

301  000262 

302  000264 

303  000270 

304  000272 

305  000276 

306  000300 

307  000304 

308  000306 
309 

310 
311 


.IF  NDF  R$$11D  a  IS$AS 

.SBTTL  MODEM  CONTROLLER  INTERRUPT  ROUTINE 

"-SMDCIN-MODEM  CONTROLLER  INTERRUPT  ROUTINE 

THIS  ROUTINE  IS  USED  BY  THOSE  DRIVERS  WHICH  ENABLE  MODEM  INTERRUPTS. 
IT  IS  USED  TO  NOTIFY  THE  MODEM  CONTROLLER  OF  A  CHANGE  IN  THE  MODEM 
STATUS. 


INPUTS: 


R3 
R4 


CURRENT  STATUS  SERVICE  BITS 
i.OW  BYTE  CONTAINS  SYSTEM  LINE  # 


010546 

017705  OOOOOOG 

011505 

016505     000016 

105715 

100410 

126504     000001 

001403 

062705  000010 

000770 

110365  000004 

012605 


ImDCIN::MOV 
MOV 


10$: 


20$. 
30$: 


MOV 

MOV 

TSTB 

BMI 

CMPB 

8EQ 

ADD 

BR 

MOVB 

MOV 

RETURN 

.ENDC 


R5,-CSP) 

aPDVTA.RS 

(R5),R5 

Z.DAT(R5),R5 

(R5) 

30$ 

M.LIN(R5),R4 

20$ 

#M.LEN,R5 

10$ 

R3,M.CSV(R5) 

(SP)+,R5 


GET  A  FREE  REGISTER 
GET  POINTER  TO  AUX  PDV 

"then  point  TO  DATABASE 

HAVE  WE  SCANNED  ALL  OF  THE  TABLE? 

YES  ...  IGNORE  THIS  CALL 

IS  THIS  THE  CORRECT  ENTRY? 

YES 

NO  ...  POINT  TO  NEXT  ENTRY 

AND  TRY  AGAIN 
SET  UP  CURRENT  SERVICE  BITS 
RESTORE  THE  REGISTER 
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AXMDC  -  AUX  MODEM  CONTROLLER 
ST. DDL  -  DISCONNECT  DELAY 


651 
6^2 
653 
65A 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
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.SBTiL      ST. DDL   -  DISCONNECT  DELAY 
•*-.DISD-DlSCONNECT  DELAY 

DELAY   DIGCONMECT    TO  ALLOU  CIRCUITS   TO  RESET. 


0010AO  105765     000002 

001044  0010U 

001046  012703     000040 

001052  112702     000000 

001056  012701     013000 

001062 

001066  103003 

001070  152765  000200 

001076 


INPUTS: 


R2  -  POU'TER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


000004 


.DISD: 


10$: 


TSTB 

M.T]M(R5) 

BNE 

10$ 

MOV 

#CS.DIS,R3 

MOVB 

#ST.JDL,R2 

MOV 

#FS.DIS,R1 

CALL 

$SCHPR 

BCC 

10$ 

BISB 
RETURN 


#MC.CCS,  M.CSV(R5) 


IS  THE  TIMER  ACTIVE? 
YES  ...  KEEP  WAITING 
SET  C0MPLE''!C>M  "ITATUS 
SET  NEW  STATUS 
SET  SUBFUNCTION  CODE 

AND  SCHEDULE  DLC  PROCESS 
ALLOCATION  FA'LURE? 
YES... MARK  ALLOCATION  FA.'URE 
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71 

72 

73 

74 

75 

76 

77 

■^3 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96  OOOOOC 

97 

98  000006 

99  00C012 
100  000016 
101 

102 
1C3 
104 
105 
106 
107 
108 
109 
110 
111 

112  000024 

113  000032 
114 

115  000034 

116  000036 
117 

118 
119 
120 
121 
122 
125 
124 
125 
126 

127 


.SBTTL  SSQSRV  -  GENERALIZED  SOFTWARE  LEVEL  SERVICE 


*«-$SQSRV-GENERALI2ED  SOFTWARE  LEVEL  SERVICE 


INPUTS: 


R3  =  ADDRESS  OF  FORK  BLOCK  +  2 


OUTPUTS: 


A  CC6  CHAIN  IS  DEQUEUED  FROM  THE  LEVEL  QUEUE  AND  DISPATCHED 

TO  THE  APPROPRIATE  PROCESS.   ALL  ENTRIES  ON  THE  LEVEL  QUEUE  ARE 

REMOVED  BEFORE  THE  LEVEL  IS  EXITED. 


NOTE: 


DISPATCH  IS  MADE  TO  A  DLC  OR  AN  LLC  PROlESS  BASED  ON  THE  SENSE 
OF  THE  MSB  OF  THE  WORD  DEFINED  BY  C.LIN.   IF  THE  MSB  IS  ZERO,  THE 
CELL  CONTAINS  A  SLN  8  STATION  NUMBER  PAIR  AND  A  DLC  IS  DISPATCHED 
USING  THE  SIN.   IF  THE  MSB  IS  ONE,  THE  CELL  CONTAINS  A  PDV  INDEX 
AND  CHANNEL  NUMBER  PAIR  AND  AN  LLC  PROCESS  IS  DISPATCHED. 


052777  100C00  OOOOOOG  SSQSRV: :8IS 
5S; 


016703 
062703 


OOOOOOG 
000004 


6S: 


002465 

011304 
001473 


OOOOOOG  OOOOOOG 


BIS 

#CF.FRK,aCXOPT 

MOV 
ADD 
MTPS 

CMFRK,R3 

#4,R3 

#PR7 

.IF  DF 
.IF  NDF 

RSSMPl 
RSSPRO 

BIT 
BEQ 
CALL 

#F2.l1P,aFMSK2 

6S 

aMPLCK 

.ENDC 
.ENDf 

CMP 
BLT 

aTKPS,aiNTCT 
47S 

MOV 
BEQ 

(R3),R4 
50S 

.IF  DF 
.IF  NDF 

RSSMPL 
RSSPRO 

BIT 
BEQ 
MOV 
BEQ 
MOV 
BIT 
BNE 

#F2.MP,aFMSK2 

7S 

C.L'RM(R4),R2 

7S 

SCPURM,-(SP) 

R2,S(SP)t 

7S 

MARK  FORK  PROCESSING  ACTIVE 
SET  ADDRESS  OF  FORK  BLOCK  +  4 
;; 'disable  INTERRUPTS 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

LOCK  ACCESS  TO  PROCESS  QUEUE 


TOO  MANV  CLOCK  TICKS  PENDING? 
IF  LT,  YES  ...  GIVE  UP  PROCESSOR 

GET  FIRST  ENTRY  ON  Q  "UE 

IF  EQ  NO  ENTRIES,  E>;   LEVEL 


IS  THIS  A  MULUPROCESSOR? 

BR  IF  NO 

GET  REQUIRED  UNIBUS  RUN  MASK 

IF  ZERO,  WE  CAN  ALWAYS  EXECUTE  THIS  ONE 

GET  POINTER  TO  CPU  URM  TABLE 

CAN  WE  EXECUTE  ON  THIS  PROCESSOR? 

YES  ...  GO  AHEAD 
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AXSUB   MACRO 
Macro  defi'nit 

U4 
H5 
146 
K7 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
16H 
169 
170 


0  5 
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ions 

.SSTIL  SDSiJMR  -  Check  for  last  line  disabled  on  this  processor 
*-$DSUMR-Check  for  Last  line  disabled  on  this  processor 


the  last  line  disabled  on  this  processor  then  we  can  ma 
not  being  loaded.  This  will  allow  us  to  correctly  handl 


If  this  is 

th^  UHRsas  not  being  ..uaucu.  m.^  » . .. 

other  processors  being  taken  off-line 


Inputs: 


R4  -  disable  ccb 


$DSUMR::.If  DF  R$$MPL 
.IF  NDF  R$$PRO 


10$: 


BIT 
BEQ 
DEC 
BNE 
CLR 

.ENDC 
.ENDC 

RETURN 

.ENDC 


#F2.MP,^'nSK2 

10$ 

$ACTLN 

10$ 

aPUMR 


Is  this  a  multi-processnr? 

BR  if  no 

reduce  count  of  active  lines  on  this  processor 

are  there  any  still  active? 

no  . . .  umr's  no  longer  in  use 
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AXSuB 

CREATED  BY 

MACRO     ON  28 

-JUN-85   AT 

18:31 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ZS.BSY 

=   HOOOO 

#5-62 

Z.AVL 

0000  U 

#5-62 

Z.DAT 

000016 

#5-62 

Z.DSP 

000000 

#5-62 

5-62 

Z.FLG 

000010 

#5-62 

Z.LEN 

=  000016 

#5-62 

Z.LLN 

000006 

#5-62 

Z.MAP 

000020 

#)-62 

Z.NAH 

C00004 

#5-62 

Z.PCB 

000012 

#5-62 

Z.SCH 

000007 

#5-62 

SALOCX 

000020  RG 

#8-197 

SCMEXI 

000602  RG 

#11-A51 

SCMINI 

U00570  RG 

#11-447 

SDEACX 

0001  SO  RG 

#9-266 

SRQSTL 

000650  RG 

#12-488 

SSQRTB 

000006  R 

#5-78 

11-456 

SXLlNK 

0OCA32  RG 

#10-366 

D  6 
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CREF   04.00 
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E  6 


AXTIM  -  AUXILLIARY  PROCESS  TIME 
SCAN  SHOKT  TIMER  'i.'EUE 


331 
332 
333 
33^ 
335 
336 
337 
338 
339 
340 
341 
342 
343 

344  000300 

345  000304 
346 

347  000306 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

558 

359  000314 

360  000316 
"  ■  000320 
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.S9TTL  SCAN  SHORT  TIMER  QUEUE 
♦  *-SCANST-SCAN  SHORT  TIMER  Ql'EUE 


005777  OOOOOOC 
100473 


SCAN  A  SHORT  TIMER  QUEUE  FOR  EN1RIES  WHICH  HAVE  EXPIRED  AND  DISPATCH 
TO  THE  SPECIFIED  PROCESSES. 


INPUTS: 


RO  -  POINTER  TO  SHORT  TIMER  QUEUE  LISTHEAD 

MODIFIED: 

R5 


REGISTERS  MODIFIED: 
Rl,  R2,  R3,  R4 


SCANST: 


4$: 


361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373  000324 

374 

375  000330 

376  000332 
377 

378  000354 

379  0O034C 
580  000542 
581 

382  000350 

383  000354 
584  000556 
585 

386  000562 
587  000564 


011004 
005010 
010060  0OC0O2 


6$: 


10$: 


011446 


005564     000004 

001046 

016464     000006     000004 

116401      000005 
100402 


005002 

156402  000002 


20$: 


rsT 

BMI 
MTPS 


aPWRFI 
100$ 

#PR7 


.IF  DF  R$$MPL 
.IF  NDF  R$$PfiO 


BIT 
BEQ 
CALL 

.ENDC 

.Indc 

MOV 
CLR 
MOV 


.IF  DF  R$$MPL 
.IF  NDF  R$$PR0 


#F2.MP,aFMSK2 

4$ 

aMPLCK 


(R0),R4 

(fiO) 

R0,2(R0) 


IS  POWERFAIL  RECOVERY  UNDERWAY? 

IF  MI,  YES  ...  DON'T  DISPATCH  ANY  TIMERS 

;;  DISABLE  INTERRUPTS 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

LOCK  ACCESS  TO  COMMEXEC  RESOURCES 


BIT 
BEQ 
CALL 

•  ENDC 
.ENDC 

MTPS 

MOV 
SAVRG 

DEC 
BNE 
MOV 

Move 

BMI 
CALL 

CLR 

Bisa 


#F2.MP,aFMSK2 
6$ 

a(SP)+ 


#0 

(R4), 
<R0> 


■(SP) 


GET  LIST  OF  TIMER  CELLS 
AND  RESET  LISTHEAD 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

CO-ROUTINE  RETURN  TO  UNLOCK  RESOURCES 


RESET  PRIORITY 

SAVE  LINK  TO  NEXT  CELL 
SAVE  LISTHEAD  ADDRESS 

REDUCE  TIMER  COUNT 

IF  NE,  NOT  YET  EXPIRED 


X.TMRCR-.) 

60$ 

X.RTMR(R4\X.TMR(R4)  ;  RESET  TIMER  V'LUE 


X.fLAG'R4),R1 

20$ 

STALT 

R2 
X.ID(R4),R2 


GET  TIMER  'LAGS 

IF  MI,  TIMER  .HAS  BEEN  CANCELLED 

REPLACE  TIMER  CELL  ON  LIST 

GET  TIMER  CELL  ID 


E     7 
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Macro  definitions 


A? 

4^ 
A5 
46 
47 
48 

49  000000 

50  000000 

51  000000 

52  000000 

53  000000 

54  000000 

55  000000 

56  000000 

57  000000 

58  000000 

59  000000 
60 

61 


.SBTTL  Macro  definitions 


.MCALL 
.MCALL 
.MCALL 
.MCALL 

DHBDFS 
CRBDFS 
LLWDFS 
MBXDFS 
ECDD8$ 
LLTDFS 
OBJDFS 
NSFDFS 
CNBDFS 
CCBDFS 
NSSrMS 


000001 


N$$SES  =  1 


SAVfiG,RESRG,MAP,MAPLLT,RE  MAP 

$JERRC,DHBDF$ 

CRBDFS, LLUDF$,MBXDF$,ECDl-3$,  LLTDFS, OBJDFS 

NSFDFS,  CNBDFS, CCBDFS, NSSYMS 


Define  DEC  home  block  offsets 

Define  connect  request  block  offsets 

Define  window  block  offsets 

Define  mailbox  offsets 

Define  ECL  database  offsets 

Define  LLT  offsets 

Define  object  block  offsets 

Define  features  mask  symbols 

Define  connect  pending  block  offsets 

Define  CCB  offsets 

Define  NSP  symbols 

This  module  is  part  of  session  control 


cccrnni  _  Cr 


MAron  \IC\':.     n7K  Pn'Hau  PR. 
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SESCONHS  CREATED  BV  MACRO  ON  28-JUN-85  AT  19:53 
SYMBOL  CROSS  REfERENCE 


SYMBOL  VALUE 


NSLLTM 

NSMBXQ 

NSPLLT 

NtSNOD 

N$$ACC 

N$$EVi 

N$$MCP 

N$$MLL 

N$$SES 

N$$SlI 

fJSSVCT 

N.DOf 

N.DFS 

N.DC 

N.RUC 

N.RND 

N.RQL 

OF.RLU 

QUETSK 

RMVWNO 

R$$MPL 

RSIPRO 

SNDACC 

SNDCON 

SRSTD 

ILACHK 

T.NIAM 

UISAR6 

USRCI 

U.CW3 

VFYNAM 

W.LLT 

W.MBOX 

W.SEGZ 

W.TMP 

SCNBLK 

SCNOIO 

$FLOW 

$LTM 

SMAIBX 

SREO'ID 

SRQNAM 

$SRDF«1 

SSRDSC 

SSRQBJ 

sura 

SWBLK 


00002^. 

000050 

000030 

000012 
=  000001 
=  000001 

=  000001 
=  000001 

=  ****** 
=  ****** 

000010 

OOOOOA 

000005 

000032 

OO^noo 

=  000110 
=  000100 

000716  RG 
=  ******  Gx 
~  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=   ****** 


* ***** 

000360 

***•♦** 

*****  K 

000004 
000012 
000006 
000010 
****** 
000000 

****** 
****** 

♦♦**♦* 


GX 
GX 
GX 
GX 
GX 
GX 
RG 
GX 
GX 


GX 
RG 
GX 
uX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-95 

11-384 

7-98 

10-299 

10-282 
#4-2 

10-234 

7-95 
#6-61 

7-81 

7-95 

10-247 

10-243 

10-241 

8-135 

8-135 

8-140 

10-278 

10-310 

7-101 

n-353 

10-293 

9-192 

8-159 

11-359 

9-186 

8-150 

8-144 
#10-223 

10-285 

10-302 

♦  7-98 
7-76 

*9-195 
*8-130 
8-134 
#7-76 
*7-87 
*7-77 

♦  7-78 
8-139 

♦10-248 

♦8--'45 

8--.47 

^e-u6 

10-284 

♦  7-79 


10-313 
10-262 


11-363 
8-132 


10-256 
8-140 


#11-353 


10-304 


-151 


♦  7-90 
8-161 
♦10-250 


7-9? 
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CREF       04.00 


SE 
Ge 


i 1-392 
10-270 

8-144 


10-318 


11-404 


♦11-410 
♦10-^53 

9-194 


10-259 


10-260 


cc  c  r-rini  1  c 


rDCATCri     Dv 


nM     :)8.  IIIK]-!!';     4T     1Q.  "I^ 


PAf;F    7 
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SESCTL  -  Session  control 
Get  network  data 


330 
331 
332 
333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344  000302 

345 

346  000302 

347  000306 
348 

349  000310 

350  000312 

351  000314 
352 

353  000320 
354 

355  000324 

356  000330 
357 

358  000332 

359  000336 

360  000340 

361  000344 
362 

363  000352 

364  000356 

365  000360 

366  00G366 
367 

368  000370 
369 

370  000372 

371  000400 

372  000404 

373  000406 
374 

375  000412 

376  000414 

377  000416 
378 
""'  C  1422 


103445 

010046 
000316 
152716 

016146 

120227 
001430 

021663 
101405 
016316 
112766 

105761 
100004 
152761 
000401 

011114 


016304 
006300 


012601 
01260C 


3^" 

?S0 

381 

382 

383 

384 

385  ' 

386 
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.SBTTL  Get  network  data 
*«-GND-Get  network  data 


Inputs 


GNU: 


OOOOOOG 

000020 

000010 

000004& 

n00004G 
OOOOOOG  00C002 

o.;&oio 

000004  000011 


J00i)02G 


10$: 

20$: 
30$: 

40$: 
100$: 


Scan  the  networi  data  queue  for  a  data  item  which  satisfies  the 
requirerents  of  tnls  request. 

Rl  =  Address  of  the  task's  header 

R2  -   Subfunction  code/4 

R3  =  Address  of  I/O  :.iacket 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

.PSECT 

CALL 
BCS 

MOV 

SWAB 

BISB 

MOV 

CMP8 
BEQ 

CMP 
BLOS 
MOV 
M0V8 

rSTB 
BPL 
BISB 
BR 

MOV 

MAP 
MOV 
ASL 
CALL 

MOV 
MOV 
CALLR 


F NOMA I 
100$ 

RO,-(SP) 

(SP) 

#1S.SUC,(5P) 

C.CNT(R1),-(SP) 

R2,#10 
40i 

(SP),I.PRM+4(R3) 
10$ 

I.PRM+4(R3),(SP) 
#IS.DA0,2(SP) 

C.FNC(RI) 

20$  , 

#CX.UNL,C.M0D(R15 

30$ 

(R1),(R4) 

I.PRM(R3) 
I.PRM+2(R3),R4 
RO 
aTDISP-2(R0) 


(SP)+,R1 
(SP)+,RO 
lODUN 


SIERRC   IE.NDA&377 


Find  matching  mail  item 
If  CS,  none  round 

Save  type  tode  on  stack 
Sh'ft  code  to  high  byte 
Assume  successful  completion 

Set  up  length  on  the  stack 

Length  and  type  only  GND$? 
If  EQ,  yes 

Do  we  have  enough  space  for  the  request? 

If  LOS,  yes 

Update  It   of  bytes  transferred 

Change  return  code  to  data  ouerrun 

Is  this  a  connect  type  reqjest? 

If  PL,  no  ...  remove  entry  from  the  queue 

;  Mark  entry  as  de-queued 

Process  request 

Unlink  item  from  list 

Map  the  user's  buffer 

Get  virtual  address  of  user's  buffer 

Form  word  offset 

Dispatch  to  processing  routine 

Recover  second  1/0  status  word 
Recover  first  I/O  status  word 
Complete  the  request 

No  data  found 


/430 
j0432 


000446' 
000512' 


Typt  code  a^-oatch  table 


TDISP:   .WORD   CON 
.WORD   INT 


;  1  -  connect  request 
;  2  -  interrupt  message 
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ABO 

ABT 

ACCLLT= 

ADDGNQ= 

ADDMAI= 

a$$chk;= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

wADERR 

BLXIO  = 

CB.CCB= 

CB.DOM= 

CB.D'.C= 

CB.RDB= 

CB.SDB= 

CB.5LI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.1LN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC^- 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

Cf .HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CLS 

CLSDON 

CL5TA 

CL'-MFL  = 

CL$SrL  = 

CL$TYP= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CMPIN''= 

CM.CIR= 

CM.CON= 

CM.FMT= 

CM.HRD= 

CM.LOO= 


000540R 
000550R 


***** 
****** 


&X 
GX 

»»*,»*  GX 

000000 

000000 

000000 

000000 

001224R 

******  GX 

000002 

000040 

000020 

OOOOOA 

000010 

000100 

000001 

000200 

100562 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

10037-, 

100344 

000001 

000004 

000020 

100000 

0OOCO2 

000010 

000040 

000100 

OOOOOOR 

0001 76R 

000266R 

000010 

000004 

000001 

000001 

000002 

177774 


000002 
000200 
100000 
000002 
000000 
000001 


M 


CM.XLO= 

000004 

t.FLGI 

9929?? 

CON 

000446R 

C.FLG2 

000032 

CP.DCF= 

000040 

C.FNC 

000010 

CP.HDL= 

000007 

C.LIN 

000006 

CP.PS  = 

177400 

C.LNK 

000000 

CP.PSI= 

000200 

C.MOD 

oooon 

CP.XCF= 

000100 

C.NSP 

000004 

CP.2FR= 

000030 

C.PRO 

000042 

CS.ABO= 

000100 

C.RSV 

000002 

CS.BRO= 

000002 

C.STA 

000007 

CS.BUF= 

000200 

C.STS 

000012 

CS.CES= 

000002 

C.URM 

177776 

CS.CHN= 

000010 

C.XACP 

000004 

CS.CMP= 

000200 

C.XID 

000035 

CS.DCR-= 

000400 

C.XLEN 

000044 

CS.DEF= 

000004 

C.XPLI 

000040 

CS.DEV= 

000002 

C.XPT 

000034 

CS. DIS- 

000040 

C.XSVC 

000042 

CS. ENA= 

000001 

C.XiC 

000037 

CS.ENB= 

000020 

C.X25 

000036 

CS.ERR= 

100000 

DEACB  = 

******  GX 

CS.FTL= 

001000 

DECPI  = 

******  GX 

CS.HCR= 

000001 

D]SCMP= 

******  GX 

CS.HFE= 

0020C0 

DSC 

000550R 

CS.LST= 

040000 

DSAMXC 

000072 

CS.MTL= 

004000 

DSAMXH 

000074 

CS.RNG= 

000010 

D$ANN 

000000 

CS.ROV= 

000004 

DSBRPR 

000102 

CS.RSN= 

010000 

DSBRTM 

000100 

CS.SHU= 

000001 

DJDELF 

000045 

CS.SID= 

000002 

DSDELW 

000046 

CS.STR= 

000004 

D$END  = 

000104 

CS.SUC= 

000001 

DSFNB 

000034 

CS.TMO= 

020000 

DSHIOR 

000024 

C.XUR- 

000004 

DSHOST 

000022 

CTLDSP 

000004R 

002  DSINAC 

000044 

CV$«SK= 

000003 

DSINCT 

000042 

rv$31  = 

000001 

DSIPL 

000051 

CV$32  = 

000000 

DJLID 

000020 

CV$40  = 

0^0002 

DSLNAM 

000006 

CX.GDQ= 

000001 

D$LNUM 

000014 

CX.REM= 

ooor20 

DSLST 

000047 

CX.REQ= 

0000C2 

DSMAXC 

000064 

CX.rtUI= 

000040 

DSMAXH 

000066 

CX.Sf1C  = 

000010 

fSMAXV 

000070 

CX.UNL= 

000004 

D$MLL 

000040 

C$$ORE= 

000400 

DSHNOD 

000041 

C$$kSH= 

1,'7564 

D$NA 

000062 

C.ADD 

000034 

DSNBEA 

000056 

C.BID 

000003 

DSNBRA 

000054 

C.BUF 

00001' 

D$NEND= 

000054 

C.BUF1 

000014 

D$NLN 

000030 

C.BUF2 

000024 

D$NN 

000060 

C.CNT 

000020 

DSOUTT 

000043 

C.CNT1 

000020 

DSRETF 

000050 

C.CNT2 

000030 

D$RNN 

000002 

C.FLG 

000022 

DSPTMR 

000076 

D$SEG 

DSSER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$VNM= 

ER$ABI«I= 

ER$ABO= 

ER$ABT=: 

ER$ACC= 

ER$CDI= 

ER$COM= 

ER$FMT= 

ER$MLB= 

ER$NNF= 

ER$NOD= 

ER$NSL= 

ER$NSR= 

ER$RES= 

ER$STA= 

ER$U08= 

EVT 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KiL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PUR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FLSHIO= 

Fl.SHMB= 

FNDMAI 

FNDMBX= 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EXI= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 


000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000010 

000046 

000011 

000042 

000052 

000047 

000005 

000006 

000012 

000002 

000013 

000003 

000001 

000051 

000004 

000576R 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

0OOC12 

OCOOOC 

******  GX 

******  GX 

000244h 

»*»♦**  GX 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 


FS.REA= 
FS.RET= 
FS.REZ= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS^ 
FS.SPU= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRH= 
FS.ULB= 

fs.xk;l= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LVL= 

GLN 

GND 

G$$TPP= 

G$$rss= 

G5$TTK= 
G$$WRD= 
H.LUN  = 
H.NLUN= 
H.NML  = 
IE.AB0= 
IE.BAD= 
IE.INS= 
IE.NDA= 
IE.RSU= 
IE.SPC= 
INT 

1N.DAT= 
IN.ILS- 
002  lOnUN  = 
I0DUN1= 
lOERR  ■■- 
lOSUC  ^ 
IS.DA0= 
IS.SUC= 
I$$RAR= 
I$$RDN= 
I.LN2  = 
I.PRM  = 
I.TCB  - 
KILLN<= 
KISAR6= 
K$$CNT= 
K$$rSR= 
K$iLDC= 
K$$TPS= 


001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

001232R 

000302R 

000000 

000000 

000000 

000000 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000512R 

000400 

000001 

ft  t.  *  *  4  V 
****** 

****** 
*  >-***» 

****** 
****** 

000000 
000000 

****** 
****** 
****** 
****** 
****** 
177546 
177546 
000000 
000074 


GX 
GX 
GX 
GX 
GX 


i utAT  nn 


A71..     r.^-:^.. 
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SESCTR  -  Session  control  counte  MACRO 
ECL  node  counter  routines 


157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176  000150 

177 

178  000162 

179  000166 

180  000170 

181  000172 

182  000174 
183 

184  000176 

185  000202 

186  00020A 

187  0002Ci 
188 

189  0J212 
190 

191  000216 

192  000220 

193  000224 
194 

195  000226 


D  12 

V05.03b  Friday  28-Jun-85   19:54     Page  9 

.If   DF      N$$EVL 

.SSTTL  Session  control,  euent  logging 

»*-EVLSES-Session  control  event  logging 

This  routine  is  called  to  log  an  event  which  has  been  generated 
by  session  control. 

Calling  sequence: 

JSR  R5,EVLSES 

.«/ORD  <Class*64.ttype> 

.UORD  <Euent  control  mask> 

[.WORD  Parameterl]     ;  Optional  parameters 

[.WORD  Parameter?] 

Inputs: 


R4  =  Address  ot  data  to  log 
EVLSES::SAVRG   <R0,R1 ,R2,R3,R4> 


016703  OOOOOOG 

012500 

012501 

010102 

100006 

012563  000002 

006302 

100002 

012563  000004 

042701   140000 


10$: 


196 
197 
198 
199 
200 


.00240  000205 


000001 


MOV 
MOV 
MOV 
MOV 
BPL 

MOV 
ASL 
BPL 
MOV 

SIC 

SAVRG 

CALL 

RESRG 

RESRG 
RTS 

.ENDC 

.END 


EVDSC,R3 

(R5)+,R0 

(R5)+,R1 

R1,R2 

10$ 

{R5)+,E$PRM(R3)  ; 

R2 

10$  ; 

(R5)+,E$PRM+2(R3) 

#*C<37777>,R1 

<R5> 

aCElOG 

<R5> 

<R4,R3,R2,R1,R0> 
R5 


Point  to  event  descriptor  block 

Get  class  and  event  type 

Get  event  control  mask 

Get  copy  of  event  mask 

If  PL,  no  optional  parameters 

Copy  parameter 

Second  parameter  present? 

If  PL,  no 


Remove  parameter  count 

Save  return  PC 
Log  the  event 
Restore  calling  PC 
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Matro  definitions 


1,2 
43 
44 
45 
45  000000 


.S8TTL  Macro  definitions 
.MCALL  CRBDFS 


CR8DF$ 


;  Define  connect  block  offsets 


1 


E  13 


J 
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9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 

47  000000 

48  000000 

49  000000 

50  OOOOOC 
5' 

52        000001 


rms.   Title 
mes  remain 


.TITLE  SESDIS  -  Session  control  disconnect  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Cop)(right  (i)  1982,  1983,  1985  by 

Digital  Equipmen'  Corporation,  Claynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  systern  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otnerwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  ter 
to  and  ownership  of  the  software  shall  at  all  ti 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  disconnect  processing 

Ident  history: 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


.MCALL   SAVRG,RESRG,MAP,MAPLLT,CALLE 

.MCALL   SIERRC 

.MCALL   LLWDF$,MBXDF$,ECDD8$,LLTDF$ 


N$$SES 


LLWDFS 
MSXDFS 
ECDDBS 
LLTDFS 

=  1 


Define  window  block  offsets 

Define  mailbox  offsets 

Define  ECL  database  offsets 

Define  LLT  offsets 

This  module  is  part  of  session  control 


E  H 


SESDMO  -  Session  control  dismou 
Flush  an/  active  logical  links 


108 

109 

110 

111 

112 

113 

1U 

115 

116 

117 

118  000000 

119 

120  000000 

016501 

000036 

121  000004 

016502 

000040 

122  000010 

005722 

123 

124  000012 

012203 

125  OOOOU 

001417 

126  000016 

127 

128  000026 

129  0OCO32 

012763 

000013 

130  000040 

012702 

000060' 

131  000044 

132  000050 

133 

134  000054 

135  000060 

136 

137 

138 

139 

140 

141  000062 

002 

000 

142  000064 

006 

000 

143  000066 

377 

377 

144  OOC070 

006 

000 

145  000072 

377 

377 

146  000074 

004 

000 

147 

148 

000001 

D  15 
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.SBTTL  Flush  any  active  logical  links 

^ 

»»-FLSLNK-Flush  any  active  logical  links 


Scan  the  logical  link  address  table  for  any  active  logical  links 
and  break  tnem. 


Inputs: 


R5  =  Address  of  database  descriptor 
.PSECT 


FLSLNK: 


10$: 


000100 


20$ 


MOV  N$LVC(R5),R1 

MOV  N$LVCt2(R5),R2 

TST  (R2)+ 

MOV  (R2)+,R3 

BEQ  20$ 

CALLE  ACCLLT 

SAVRG  <R1,R2>        ; 

MOV  #ER$NSL,L.DCR(R3) 

MOV  #DM0TA-2,R2 

CALL  KILLNK 

RESRG  <R2,R1> 

Rl,10$ 


Get  *  of  LLT's  to  scan 

Get  pointer  to  logical  link  table 

Skip  over  first  entry 

Get  address  of  next  LLT 
If  EQ,  none  present 
Gain  access  to  this  LLT 

Save  scan  state 

Point  to  substate  table 
Kill  the  logical  link 


SOB 
RETURN 


;  Scan  all  logical  links 
Dismount  user  and  network  substate  table 


DMOTA: 


.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.END 


US$CNF,NS$DON 
US$DIS,NS$DON 
-1,-1 
US$DIS,NS$DON 

US$DSC,NS$DON 


CI  sent 

Received  CI,  sent  CC 

Received  CI 

Normal  data  transfer 

Disconnect  in  progress 

Disconnect  pending 


_E_li 


L 


SESDSP  -  Session  contro 

Dispatch  tables 

56 

57 

58 

59 

60 

61  000000 

62 

63  000000 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77  000000 

000001  • 

78  000002 

000u03' 

79  OOOOOA 

000005' 

80  000006 

000007- 

81  000010 

000011 ' 

82  000012 

000013- 

83  OOOOU 

OOOOOOG 

84  000016 

000017- 

85  000020 

000021- 

86 

87 

88 

89 

90 

91 

92  000022 

OOOOOOG 

93  00002A 

OOOOOOG 

94  000026 

OOOOOOG 

95  000030 

OOOOOOG 

96  000032 

OOOOOOG 

D  16 
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.SBTTL  Dispatch  tables 


CCB  function  dispatch  table 
.PSECT  SHIGH 
CCBDSP:  .IF  DF  N$$SLI 


.WORD 

.SEXME 

.WORD 

.SERCE 

.WORD 

.  +  1 

.WORD 

.-►1 

.WORD 

.-t-l 

.WORD 

.+1 

.WORD 

.SERCP 

.WORD 

.+1 

.WORD 

.  +  1 

.IFF 

.WORD 

.  +  1 

.WORD 

.  +  1 

.WORD 

.  +  1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.SERCP 

.WORD 

.  +  1 

.WORD 

.  +  1 

.ENDC 

QIO  function 

dispatch  table 

.WORD 
.WORD 
OIODSP:  .WORD 
.  WORD 
.WORD 


SDMQIO 
SCLQIO 
SCNQIO 
SDSQIO 
SCTQIO 


Transmit  enable  -  SLI  requests 

Receive  enable  -  SLI  requests 

Kill  enable  -  illegal 

Control  enable  -  illegal 

Timeout  -  illegal 

Transmit  complete  -  illegal 

Receive  complete  -  session  control  message  received 

Kill  complete  -  illegal 

Control  complete  -  illegal 


Transmit  enable  -  illegal 

Receive  enable  -  illegal 

Kill  enable  -  i  I  legal 

Control  enable  -  illegal 

Timeout  -  illegal 

Transmit  complete  -  illegal 

Receive  complete  -  session  control  message  received 

Kill  complete  -  illegal 

Control  complete  -  illegal 


Dismount  request 
CLo^e  lUN  reque.it 
Connect  request 
Disconnect  requeit 
Networ',  contrui  request 
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SYMBOL  CROSS  REFERENCE 


E     1 

PAGE   2 

CREF        04.00 


SYMBOL   VALUE 


FLG 

KRBA 

LEN 

MPF 

NMST 


L.NSTA 

_.OWNR 

L.UNT 

NETACP 

NMCL2 

NHCMP 

N$$1LN 

PDSPL 

PWFAIL 

PURFL 

PWRF1 

P$$RFL 

RDBRT 

R$$MPL 

R$$11D 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

5F.REA 

Sf  .iER 

SF.SVC 

SF.UNL 

SLTMA 

SLTNM 

SRSTD 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TRIB 

TSKRT 

X$$MDC 

SAUXTB 

SBFRTN 

SMDCIN 


000000 

000016 

000022 

000022 

000020 

OOOOU 

000021 

000013 

000304  R 

»*♦***  GX 

000310  R 

****** 

******  GX 

000034  R 

000170  R 

******  GX 

000001 

******     GX 

****** 

****** 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

****** 
****** 
****** 

000001 
000000 
000004 
000002 
000003 
000156  R 

r  .»****   GX 
:   ****** 

000000  RG 

:  *♦»♦*»     GX 

000026  RG 


GX 
GX 
GX 


REFERENCES 

#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#10-267 

10-297 

7-112 

8-141 

9-229 

7-98 

7-108 

8-136 
#4-2 

10-310 

9-213 

5-1 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 

8-149 

9-203 

9-238 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 

8-159 

9-241 

5-8 
#7-84 

7-86 
#7-116 


10-285 
8-163 

8-157 


10-293 

10-299 

#10-269 


#8-136 

#9-202 

8-174 

5-15 


7-115 
8-163 


10-290 


9-208 
9-245 
10-294 


10-:88 

8-165 
7-88 


-171 


8-172 

9-202 
7-97 


8-175 

9-245 
7-107 


8-122 


10-276 


•8-170 
7-115 


8-171  *8-173 

8-177 


#8-191 


AXDSPP 
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AXMDC  -  AUX  MODEM  CONTROLLER 
MODEM  CONTROLLER  TIMER  SERVICE 

513 
3U 
315 
316 
317 
318 
319 
320 
321 
322 

323  000310  105715 

324  000312  100454 

325  0003U  105765  000003 

326  000320  00UA6 

327  000322  132715  000002 

328  000326  001415 

329  000330  116503  000001 
330 
33. 
332 
333 
334 
335 
336 
337 

338  000334  010302 

339  000336  006302 

340  000340  067702  OOOOOOG 

341  000344  011202 
342 
343 
344 

345  000346  005712 

346  000350  100032 
347 
348 
349 
350 
351 
35^ 
353 
354 
355 
356 
357 
358 
359 
360 

361  000352 

362  000356  110465     000004 

363  000362  105765     000002 

364  000366  001403 

365  000370  105365     000002 

366  000374  001404 

367  000376  126565     000004 

368  000404  001414 

369  000406  116504     000001 
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.SBTTL  MODEM  CONTROLLER  TIMER  SERVICE 

•♦-MDMSCN-MODEM  CONTROLLER  TIMER  SERVICE 

THIS  ROUTINE  IS  ENTERED  ONCE  PER  SECOND  AND  SCANS  THE  ACTIVE  LINES 
fOR  A  CHANGE  IN  STATE  OR  TIMEOUT. 


MDMSCN: 


5$! 


10$: 

000005  20$: 
30$: 


INPUTS: 


;TST8 
BMI 
TST8 
BEO 
BITB 
BEQ 
M0V6 


R5  -  POINTER  TO  MDC  DATABASE 

WE  SCANNED  ALL  OF  THE  TABLE? 


(R5) 

50$ 

M.STT(R5) 

40$ 

#MS.SCA,(R5) 

10$ 

M.LIN(R5),R3 


.IF  DF  N$$1LN 


MOV 
MOV 

.IFF 

MOV 
ASL 
ADD 
MOV 

.ENDC 

TST 
BPL 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 


aSLTMA,R2 
(R2),rJ 


R3,R2 
R2 

aSLTMA,R2 
(R2),R2 


(R2) 
40$ 


BIT 
BEQ 
MOV 
MOV 
BIT 
BEO 

.ENDC 
.ENDC 

CALL 

MOVB 

TST8 

BEQ 

DECe 

BEQ 

CMP8 

BEQ 

MOVB 


#F2.MP,aFMSK2 

5$ 

L.KRBA(.(2),R1 

aCPURM,-(SP) 

K.URM(R1),a(SP)+ 

40$ 


HAVE 

YES 

IS  THE  LINE  IDLE? 

YES  ...  NOTHING  FOR  US  TO  DO 

DOES  THIS  LINE  REQUIRE  SCANNING? 

NO  ...  MUST  USE  MODEM  INTERRUPTS 

GET  THE  SYSTEM  LINE  NUMBER 


GET  POINTER  TO  SYSTEM  LINE  TABLE  ENTRY 


COPY  IT 

FORM  WORD  INDEX 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

GET  POINTER  TO  SYSTEM  LINE  TABLE  ENTRY 


IS  THE  LINE  ACTIVE?  (LF.ACT  SET) 
NO  ...  DON'T  CALL  THE  DDM 


IS  THIS  A  MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

GET  POINTER  TO  KRB 

GET  POINTER  TO  CPU  URM  TABLE 

IS  BUS  ACTIVE  ON  THIS  PROCESSOR? 

NO  ...  ANOTHER  PROCESSOR  WILL  CHECK  THIS  LINE 


aDDMSN 

R4,M.CSV(R5) 

M.TIM(R5) 

20$ 

M.TIM(R5) 

30$  .  . 

M.CSV(R5),M.PSV(R5) 

40$  ;  NO 


M.LIN(R5;,R4 


CALL  DDM  TO  SENSE  MODEM  STATUS 
NEW  CURRENT  STATUS 
IS  THERE  AN  ACTIVE  TIMER? 
NO  ...  DO  NOTHING 
YES  ...  REDUCE  !T 
IF  NOW  ZERO  ...  FORCE  DISPATCH 
HAS  THE  MODEM  STATUS  CHANGED? 
DO  NOTHING 


GET  SYSTEM  LINE  NUMBER 


AXMDC  -  AUX  MODEM  CONTROLLER 
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AXMDC  -  AUX  MODEM  CONTROLLER 
SCHEDULE  DLC  PROCESS 


673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
685 
68A 
685 
686 
6b7 
688 
689 
690 
691 

692  001100 

693  001104 

694  001106 

695  001112 

696  001116 

697  001124 

698  001132 

699  001136 

700  001140 
701 

702 
703 
704 
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.SBTTL  SCHEDULE  DLC  PROCESS 

•*-$SCHPR-SCHEDULE  DLC  PROCESS 

•*-$SCHP2-SCHEDULE  DLC  PROCESS  WliH  GIVEN  CC8  (ALTERNATE  ENTRY) 

AN  EVENT  HAS  OCCURED  UHICH  REQUIRES  THAT  THE  DLC  PROCESS  BE  NOTIFIED. 

INPUTS: 

R1  -  SUBFUNCTION  CODE 

R2  -  NEW  LINE  STATE 

R3  -  OPERATION  COMPLETION  STATUS 

R4  -  CCB  TO  USE  (ALTERNATE  ENTRY  AT  $SCHP2) 


OUTPUTS: 


'C  CLEAR  -  DLC  PROCESS  SUCCESSFULLY  POSTED 
•C  SET   -  CCB  ALLOCATION  FAILURE 


.ENABL  LS8 


103415 
110265 
010164 
116564 
116564 

000241 


000001 


000003 
000010 
000001 
000006 


000006 
000007 


SSCHPR: 
$SCHP2: 


10$: 


CALL 

aCCBGT 

BCS 

10$ 

MOVB 

R2,M.SiT(R5 

HOV 

R1,C.FNC(R4 

MOVB 

M.LIN(R5),: 

M0V8 

M.STA(R5),  ' 

CALL 

aCDCCP 

CLC 

RETURN 

.DSABL 

LS8 

.END 

GRAB  A  CCB 
ALLOCATION  FAILURE? 
SET  NEW  LINE  STATE 
SET  UP  SUBFUNCTION  CODE  IN  CCB 
^IN(R4)  ;  SET  UP  SYSTEM  LINE  NUMBER 
,STAlR4)  ;   AND  STATION  ADDRESS 
;  POST  COMPLETION  TO  DLC 
;  INDICATE  SUCCESS 


F     3 
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128 
129 
130 
131 
1 32 
133 
13^ 
135 
136 

137  0000^0 

138  000042 

139  000050 
KG  000052 
U1  000054 

142  000056 

143  000060 

144  000062 

145  000066 
146 

147 
148 
149 
150 
151 
152 
153 
154 
155 

156  000066 

157  000072 

158  000074 

159  000102 

160  000106 
161 

162 
163 
164 
165 

166  000110 

167  000114 

168  000116 

169  00012^ 

170  000126 

171  000134 

172  000140 

173  000142 

174  000146 

175  OOC150 

176  0001 5^ 

177  000156 
173  000162 
179  000166 
ISO 

181 
182 
183 
184 


010402 

032762  040000  000012 

001002 

011202 

000772 

011213 

001002 

010363  000002 


005012 

042762     040000     000012 

016402     000006 

100030 


10 '"64     000003 

1CJ403 

042764     100000     000006 

000302 

142764     000200     000003 

042702     177600 

010403 

062703     000010 

010205 

067705  OOOOOOG 

011505 

016505  000016 

000707 


7$: 


9$: 
10$: 


20$: 
30$: 

32$: 

35$; 
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MOV 

CLR 

MOV 

CALL 

BR 

.ENDC 
.ENDC 

MOV 

BIT 

BNE 

MOV 

BR 

MOV 

BNE 

MOV 


E  4 


CMFR<,R4 

(R4) 

R2,-2(R4> 

aOFORK 

55$ 


R4,R2 

#CS.LST,C. 

20$ 


STS(R2V 


(R3) 


(R2),R2 

10$ 

(R2) 

30$ 

R3,2{R3) 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 


BIT 
BEQ 
CALL 

.ENDC 
.ENDC 

MTPS 

CLR 

BIC 

MOV 

BPL 


DISPATCH  AN  LLC  PROCESS 


40$:    TST8  C.8ID(R4) 

8MI  42$  ; 

BIC  #100000, C.LIN(R4) 

42$:  SWAB  R2 

BICB  #200,C.BID(R4) 

BIC  #"C<177>,R2 

MOV  R4,R3 

ADD  #C.FNC,R3 

MOV  R2,R5 

ADD  aPDVTA,R5 

MOV  (R5),R5 

MOV  Z.DAr(R5),R5 

CALL  SPDDSP 

BR  5$ 


DISPATCH  A  DLC  PROCESS 


#F2.MP,aFMSK2 
32$ 

a(SP)+ 


#0  ;; 

(R2)  ; 

#CS.LST,C.STS(R2) 
C.LIN(R4),R2 
45$ 


NO  ...  POINT  TO  FORK  BLOCK 

CLEAR  OUT  THE  FORK  BLOCK  LINK  WORD 

STUFF  UNIBUS  RUN  MASK  IN  FORK  BLOCK 

AND  RE-QUEUE  IT 
NOW  EXIT  THE  SOFTWARE  LEVEL 


COPY  ADDRESS  OF  CCB 
;;  LAST  CCB  OF  A  GROUP  ? 
IF  NE  YES 

GET  ADDRESS  OF  NEXT  CCB 
TEST  AGAIN 

SET  NEW  FIRST  CCB  ADDRESS 
IF  NE,  NO  NEW  LAST 
CLOSE  UP  THE  LIST 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  N9 

CO-ROUTINE  RETURN  TO  UNLOCK  PROCESS  QUEUE 


;  ENABLE  INTERRUPTS 
CLEAR  POINTER  IN  LAST  CCB 
;;  CLEAR  MARKER  BIT 
TEST  FOR  PROCESS  LAYER 
IF  PL,  DISPATCH  TO  A  DLC 


MESSAGE  FROM  DLC  OR  LLC  ? 

IF   MI,    FROM  LLC   -  LEAVE    C.LIN  ALONE 

;  MARK  MESSAGE  FROM  A  DLC 

EXTRACT  PDV  INDEX 

CLEAR  LLC  DESTINATION  INDICATOR 

REMOVE  CHANNEL  AND  LLC  LAYER  FLAG 

COMPUTE  A  POINTER  TO  THE  FUNCTION  CODE 

COPY  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  PDV  ADDRESS 

GET  ADDRESS  OF  LLC'S  DATA  BASE  DESCRIPTOR  BLOCK 

DISPATCH  THE  PROCESS 

GO  EXAMINE  QUEUE  AGAIN 
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tALOCX  -  Allocate  core  buffer  in  extended  pool 


E  5 


172 

173 

17^ 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197  000020 

198 

199 

200 

201 

202 

203 

20A  000020 

205  000022 

206  000026 

207  000032 

208  00003-; 

209  000036 

210  000042 
211 

212  000044 

213  000046 

214  000050 

215  000052 

216  000056 
^17 

218  000060 

219  000062 

220  000066 

221  000070 

222  000074 

223  000076 

224  000100 

225  000104 

226  000110 

227  000112 
228 


.SBTTL  SALOCX  -  Allocate  core  buffer  in  expended  pool 

h 

•*-$ALOCX-Allocate  core  buffer  in  extended  pool 

This  routine  is  called  to  allocate  an  core  buffer  in  extended  pool, 
the  allocation  algorithm  is  first  fit  and  blocks  are  allocated  in 
multiples  of  four  bytes.  If  the  extended  allocation  fails,  the 
block  is  allocated  using  sx  pool. 

Inputs: 

Rl=size  of  the  core  buffer  to  allocate  in  bytes. 

Outputs: 

c=l  if  insufficient  core  is  available  to  allocate  the  block. 
c=0  if  ihe  block  is  allocated. 

rO^address  of  the  allocated  block. 

r1=length  of  block  allocated 

Registers: 

R2  is  modified 


SALOCX: 


010346 

012700  000000" 

061001 

042001 

017710  OOOOOOG 

010002 

010203 
011002 
001003 

000425 

011046 

012600 

026001  000002 

103763 

001406 

160160  000002 

066002  000002 

010200 

000407 


10$: 


15$: 


.IF  NDF  MSSMGE 
CALLR  SALOCB 
.IFF 


MOV 

R3,-fSP) 

SAVM,*  '^ 

MOV 

#XAVLL-2,R0 

ADD 

(R0),R1 

BIC 

(R0)+,R1 

MOV 

aXAVL,(RO) 

MOV 

R0,R2 

MOV 

R2.R3 
(R0),R2 

MOV 

BNE 

15$ 

CALL 

SALOCB 

BR 

30$ 

MOV 

(RO),-(SP) 

CALL 

aCEACC 

MOV 

(SP)t,RO 

CMP 

2(R0),P1 

BLO 

10$ 

BFQ 

20$ 

SUB 

R1,2(R0) 

ADD 

2(R0),R2 

MOV 

R2,R0 

BR 

30i 

allocate  from  rsx  pool  in  unmapped  systems 


save  register 

save  current  apr  6  mapping 

point  to  allocation  mask  word 

add  rounding  factor 

clear  excess  and  point  to  list  head 

copy  cex  pool  listhead 

initialize  current  unmapped  pointer  (r2) 

move  current  unmapped  ptr  to  prev  unm  ptr 
get  unmapped  address  of  next  block  (current) 
if  ne,  another  block  to  check 
else,  try  to  allocate  from  rsx  pool 
and  return 

set  up  address  for  $ceacc  (current  ptr) 

map  extended  block 

retrieve  mapped  address 

block  big  enough? 

if  lo  no 

if  eq  block  is  exact  size 

calculate  size  remaining 

add  size  of  remaining  block  to  unm  addr 

move  retruned  address  to  rO 

and  return 
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CREF   04.00 


MACRO  NAME 

REFERENCES 

CALL 

8-215 
12-496 

8-219 
12-522 

8-231 

9-281 

9-293 

CALLR 

#5-59 

9-275 

CCBC-$ 

#5-57 

5-61 

ENABlS 

#5-56 

INHIBS 

#5-56 

MAP 

#5-58 

9-301 

9-3  U 

9-324 

9-326 

PDVDFS 

#5-57 

5-62 

RE  SNAP 

#5-'^8 

8-235 

9-303 

9-316 

9-337 

RESRG 

#5-56 

RETURN 

8-238 

9-338 

10-419 

11-462 

12-552 

SAVHAP 

#5-58 

8-205 

9-276 

9-283 

9-300 

SAVRG 

#5-56 

SOB 

12-:' 19 

9-310 


9-^30 


9-308 


10-380    10-3^)2    11-460    12-493 


12-511 


9-323 


,»f  1LE'MD"AXT1M 
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AXTIM  - 

AUXILLIARY  PROCESS  TIME  MACRO 

VC 

SCAN  SHORT  TIMER  JUEUE 

388 

389 

000370 

132701 

C00004 

390 

000374 

001413 

391 

392 

000376 

010205 

393 

000400 

067^05 

OOOOOOG 

39A 

000404 

011505 

395 

000406 

016505 

000016 

396 

000412 

016703 

OOOOOOG 

397 

000416 

398 

000422 

000417 

399 

400 

000424 

132701 

000002 

AOl 

000430 

001403 

A02 

403 

000432 

404 

000436 

000402 

405 

406 

000440 

407 

000444 

016703 

OOOOOOG 

408 

000450 

409 

000454 

000402 

410 

411 

000456 

412 

000462 

413 

000464 

012604 

414 

000466 

011316 

415 

416 

000470 

417 

000474 
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30$: 


40$: 

50$: 


60$: 
70$: 


100$: 


BITS 
BEQ 

MOV 

ADD 

MOV 

MOV 

MOV 

CALL 

BR 

BITB 
BEQ 

CALL 
BR 

CALL 
MOV 
CALL 
BR 

CALL 
RESRG 
MOV 
BNE 

MTPS 
RETURN 


#XF.LLC,R1 
30$ 

R2,K5 

ar'DVTA,R5 

(R5),r5 

Z.DAT(R5),R5 

STMFC,R3 

aPDDSP 

70$ 

#XF.DLC,R1 
40$ 

aSTDll 
50$ 

aSTDDI 
STMFC,R3 
aPDSPL 
70$ 

S7ALT 
<R0> 
(SP)+,R4 
10$ 

MO 


LLC  TIMER? 
IF  EQ,  NO 

COPY  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  PROCESS'  PDV 

GET  ADDRESS  OF  LLC  DATABASE  DESCRIPTOR 

SET  UP  FUNCTION  CODE 

AND  DISPATCH  TO  THE  PROCESS 
ENTER  COMMON  CODE 

DLC  TIMER? 
IF  EQ,  NO 

SET  UP  DLC  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
AND  ENTER  COMMON  CODE 

SET  UP  DDM  PDV  INDEX  AND  LINE  TABLE  ADDRESS 
SET  UP  FUNCTION  CODE 
DISPATCH  TO  PROCESS 
ENTER  COMMON  CODE 

PUT  CELL  BACK  ON  TIMER  QUEUE 
RECOVER  LISTHEAD  ADDRESS 
GET  ADDRESS  OF  NEXT  TIMER  CELL 
IF  NE,  MORE  TO  GO 

RESET  PRIORITY 


AXTIM  -  Aiixn 
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SESCON  - 
Connect 

63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 

9-; 

95 

96 

97 

98 

99 

100 

101 

102 

103 

lO'i 

105 

106 

107 

108 

109 

110 

111 


Session  control 
and  connect  acce 


000000  016A00 

000004  016067 

000012  010067 

000016  010467 


000022 
000030 
000034 
000036 
000042 
000046 
000052 

000054 
000062 
000066 
000072 
000100 

000102 


000000 


112767 
105763 
100002 
105067 

016703 
103413 


016501 
010361 
016563 
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pt  QIO  processing 

.SBTTL  Connect  and  connect  accept  QIO  processing 

**-$CNQI0-Connect  and  connect  accept  QJO  processing 

This  routine  proces'-..^s  all  connect  and  connect  accept  requests. 

Inputs: 

R1  =  Address  of  the  task's  header 

R2  =  I/O  subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  window  block 

R5  =  Address  of  database  descriptor 


000012 

000016  OOOOOOG 

OOOCOOG 

OOOOOOG 


iCNQIO::MOV 
MOV 
MOV 
MOV 


000200  OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 


000026 
000040 
000030  000004 


10$: 


.IF  DF 

CLRB 

.ENDC 

HOVB 

TSTB 

BPL 

CLRB 

CALL 

MOV 

BCS 

MAPLLI 

MOV 

MOV 

MOV 

RETURN 


W.M60X(R4),R0 
M.RESP(RO),$LTM 
RO.SMAIBX 
R4,$WBLK 

N$$SLI 

SLTYPE 


#LF.MMF,$FLOW 

I.FCN(R3) 

10$ 

$FLOW 

aC0NTBL(R2) 

$W8LK,R3 

20$ 


N$LLT(R5),R1 
R3,L.WIND(R1)   .  ,. 
N$PLLT(R5),W.LLT(R3) 


Set  up  the  long  term  link  timer 

Store  the  mail  box  address 
Saue  address  of  window  block 


Indicate  QIO  interface  for  this  link 


Assume  message  flow  control 

Is  this  a  non-flow  controlled  link? 

If  PL,  no 

Set  up  for  no  flow-control 

Dispatch  to  processing  routine 

Recover  window  block  address 

If  CS,  request  failed 

Recover  mapping  to  the  LLT 
Recover  virtual  address  of 


ecover  virtuaL  address  or  LLT 
Set  up  window  address  in  LLT 


20$: 


CALLR   RMVWND 


Release  the  window  block  resources 


000000  000106' 
000002  00030C' 

000106 


;  Connect  function  dispc 

tch 

table 

' 

OSECT 

$HIGH 

C0NT8L: 

WORD 
UORD 

CON 
ACC 

■; 

Connect 
Accept 

.psEcr 
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8-159 
11-A15 


MACRO  NAME 

REFERENCES 

CALL 

7-91 

8-152 

8-154 

10-310 

11-359 

11-412 

CALLR 

7-101 

8-167 

CCBDFS 

#6-A7 

6-58 

CNBOFS 

#6-47 

6-57 

CRBtjFS 

#6-46 

6-50 

DHBDF$ 

#6-45 

6-49 

ECDDBS 

#6-46 

6-53 

LLTDFS 

#6-46 

6-54 

LLWDFt 

#6-46 

6-51 

MAP 

#6-44 

7-95 

8-132 

MAPLLT 

#6-44 

7-95 

MBXDFS 

#6-^6 

6-52 

NSFDF$ 

#6-47 

6-56 

NSSYMS 

#6-47 

6-59 

OBJDFS 

#6-46 

6-55 

RECMAP 

#6-44 

8-144 

RESRG 

#6-44 

10-330 

RETURN 

7-99 

8-163 

9-198 

5AVRG 

#6-44 

10-223 

SOB 

8-137 

8-142 

SIERRC 

#6-45 

9-200 

9-202 

E     9 

04.00 

9-186 


SE 
Ge 


9-192 


9-196 


10-249 


10-252 


10-257 


10-331 


11-419 


>  tn»*';Fc;rTi 
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SESCTL  -  Session  control  contro  MACRO  V05.03b  Friday  28-Jun-85  19:53  Page  11-1 
Get  network  data 


387  000A3A 

388  000436 

389  000440 

390  00044? 

391  000444 
392 


000550' 
000550' 
000540' 
000576' 
000446' 


.WORD  DSC 

.WORD  ABT 

.WORD  ABO 

.WORD  EVT 

.WORD  VFV 

.WORD  MOP 


3  -  user  disconnect 

4  -  user  abort 

5  -  network  disconnect 

6  -  network  ei/ent 

7  -  network  verification 
10  -  mop  event 


cc  cm  _  Cc 
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SESCTL  -  Session  control  :ontro  MACRO  VO 
Symbol  table 


LA.AC<= 
LA.CRS= 

la.msk;= 

LA.NAK= 
LA.NMS= 
LA.RES= 
LA.WND= 
LOBGT  = 
LDBRT  = 
LDSLP  = 
LF.DRD= 
LF.FRC= 
LF.HFO= 
LF.HMF= 
LF.HSF= 
LF.IRD= 
LF.MMF= 
LF.MSF= 
LS.DLS= 
LS.FCC= 
LS.FCO= 
LS.FC1= 
LS.ILS= 
LS.MAK= 
LS.MNK= 
LS.RES= 
LS.RSV= 
LT.CCA= 
LT.DIR= 
LT.LCL= 
LT.LPL= 
LT.NOT= 
LT.RSU= 
LT.SLI= 
LT.TDA= 
L$IASG= 
L$$DRV= 

L$$pn  = 

L$$11R= 

L.CSTA 

L.CTR 

L.DCR 

L.FLAG 

L.ILSQ 

L.ILTT 

L.LC-A 

L.LIA 

L.LLA 

L.LNG 

L.LNO 

L.LPT 

L.LSA 

L.LSFD 

L.LSFI 

L.LTT 

L.MASO 

L.MASf 


100000 

020000 

170000 

110000 

010000 

040000 

OOAOOO 

**«**«  GX 

*««*♦*  GX 

000000 

000004 

000001 

000010 

OOOOAO 

000020 

000002 

000200 

000100 

100000 

000004 

000001 

000002 

100000 

000020 

000040 

000360 

000300 

000020 

000010 

000001 

000002 

000040 

000200 

000004 

000100 

000000 

000000 

000001 

000000 

000037 

000074 

000100 

000014 

000052 

000066 

000032 

000034 

000002 

000124 

000026 

000065 

000030 

000046 

00004A 

000062 

000070 

000073 


MASZ 

NIN 

NXN 

NXTH 

OPD 
-.OPDL 
L.REM 
L.RFC 
L.RLA 
L.RNO 
L.RTU 
I..RTYD 
L.RTYI 
L.SEC 
L.SEGZ 
L.STA 
L.TC 
L.TIC 
L.TIPD 
L.TIPI 
L . THRD 
L.TMRl 
L.TYP 
L.USA 
L.USTA 
L.VER 
L.WIND 
MAPBF 
MA. CI  = 
MA. DA  = 
MA.IL  = 
MC.CC  = 
MC.CI  = 
MC.DC  = 
MC.Dl  = 
MC.NO  = 
MC.Rf  = 
MD.BM  = 
MD.EM  = 
MD.ILS= 
MD.IH  = 
MF.ACK= 
MF.CTL= 
MF.DAT= 
MOVDAT 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$MUP= 
M$$NET= 
M$$OVR= 
M.MAIL 
M.MAX 
M.M8L 
M.NAST 
M.NEXT 


MACRO  VO^ 
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000072 

M.RESP  000016 

NT$DAT= 

000002 

N.CBL  = 

000142 

000020 

M.SPA   000012 

NT$DC  = 

000012 

N.CDA 

000142 

000016 

M.TASK  000004 

NT$DIS= 

000014 

N.CDAC 

000140 

000010 

M.USE   000010 

NT$DLS= 

000006 

N.CDDS 

000070 

000103 

NC.FMO=  000000 

NT$ILS= 

000010 

N.CDEV 

00006' 

000102 

NC.FM1=  000001 

NT$IMS= 

000002 

N.CID 

9985^^ 

000006 

NC.FH2=  000002 

NTSINT= 

000004 

N.CIDC 

000062 

000050 

NE$ABM=  000010 

NT$REr= 

000032 

N.CPS 

000106 

000004 

NE$A80=  000046 

NT$R0U= 

000024 

N.CPSC 

000104 

000022 

NE$ACC=  000042 

NT$RTR= 

000030 

N.CTL 

000000 

000060 

NE$ACT=  000042 

NT$TSP= 

000026 

N.CUIC 

000066 

000055 

NE$COM=  000047 

NT.ABO= 

000005 

N.CUNI 

000064 

000057 

NE$FCF=  000050 

NT.ABT= 

000004 

N.I^DE 

000010 

000064 

NE$FHT=  000005 

NT.C0N= 

000001 

N.DDEC 

000006 

000076 

NE$GEN=  000007 

NT.DSC= 

000003 

N.DFM 

000004 

000000 

NE$1FC=  000030 

NT.EVT= 

000006 

N.DGP 

000006 

000042 

NE$ILS=  000043 

NT.JNT= 

000002 

N.DNM 

000014 

000043 

NE$1MG=  000042 

NT.M0P= 

000010 

N.DNHC 

000012 

000013 

NE$MLB=  000006 

NT.NSP= 

000010 

N.DOT 

000005 

000012 

NE$NNF=^  000012 

NT.VFY= 

000007 

N.DUS 

099919 

000054 

NE$N0D=  000002 

NVP 

C01006R 

N.SDE 

000042 

000056 

NE$NSD=  000003 

N$ACQ 

000000 

N.SDEC 

000040 

000001 

NE$NSL=  000013 

NSACTL 

000032 

N.SEGZ 

000002 

000024 

NE$NSR=  000003 

NSCIR 

000034 

N.SFM 

000036 

000036 

NESRESn  000001 

N$DLA 

000020 

N.SGP 

000040 

000015 

NE$SSR=^  000000 

NSDLY 

000014 

N.SND 

000030 

000040 

NE$SSS=  000045 

NSELEN 

000054 

N.SNM 

000046 

000662R 

NE$TCN=^  000040 

N$ENC 

000042 

N.SNMC 

000044 

000040 

NE$TC0=  000006 

N$ERRC 

000022 

N.SOT 

000037 

000000 

NE$TPA=  000010 

N$FLG 

000005 

N.SUS 

000042 

000020 

NE$U0B=  000004 

N$FNC 

000006 

OPN 

000024R    002 

000040 

NF$BLK=  000100 

NSGENQ 

000052 

PEM  ^ 

000350R    002 

000020 

NFSDMO^  000010 

N$GTM 

000015 

P$$P45= 

000000 

000100 

NF$MOU=  000040 

NSHIGH 

000033 

P$$URD= 

000000 

000060 

NF$RST=  000002 

N$LLT 

000026 

QUETSK= 

«**««*  GX 

000000 

NF$SCN=  000020 

NSLLTM 

000024 

Q$$OPT= 

000010 

000140 

NF$SHU=  000004 

NSLVC 

000036 

RDBS7  = 

**♦♦**  GX 

000040 

NF$TIM=  000200 

NSMBXQ 

000050 

REJECT= 

♦«»»♦*  GX 

000100 

NM$ARA=  176000 

NSPLLT 

000030 

RETRES= 

******  GX 

000040 

NM$N0D=  001777 

NSSLA 

000016 

RMVWND= 

******  GX 

000020 

N0.DTR=  000077 

NSSNOD 

000012 

R$$DER= 

000000 

000004 

NO.FAL=  000021 

N$TIM 

000004 

R$$K11= 

000001 

000010 

N0.FA1=  000001 

NSVCB 

000010 

R$$SND= 

000000 

000000 

NO.NCU=  000023 

N$$ACC= 

000001 

R$$11M= 

000000 

00061 6R 

N0.RTL=  000022 

N$$ACK= 

000011 

R$$11S= 

000000 

000124 

N0.TAS=  000000 

N$$EVL= 

000001 

SPA 

0001 72R    002 

000000 

N0.TCL=  000017 

NJi$HDR= 

000007 

SRSTD  = 

******  GX 

000000 

N0.TC1=  000005 

N$$LDV= 

000001 

ST$CC  = 

000004 

000000 

NO.TLK=  000020 

N$$MLL= 

000001 

ST$CIR= 

000006 

000000 

NS$DON=  000000 

N$$M0V= 

000010 

ST$CIS= 

000002 

000000 

NS$SD]=  000002 

N$$NCT= 

000001 

ST$DAT= 

000010 

000000 

NS$WDC=  000004 

N$$OVR= 

000022 

STtDIP= 

000012 

000014 

NT$AKD=  000020 

N$$PEM= 

000001 

ST$PND= 

000014 

000011 

NT$AKI=  000022 

N$$SES= 

000001 

S$$WRG= 

000000 

000020 

NT$CC  =  000016 

N$$SMC= 

******  GX 

S$$YSZ= 

007600 

000007 

NT$CON=  000000 

N.CAC 

000120 

TDISP 

000430R 

000002 

NT$CTL=  000000 

N.CACC 

000116 

TLACHK= 

******  GX 

kac  n7K  c F^l,^1^i 
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SymooL  table 


ACtDNT: 
AC$X25= 
AE$C1R= 
AE$LIN= 
AESMOD= 
A$$CHK= 

A$$ros= 

ASSPRI-- 

A$$TRP= 

CB.CCB= 

CB.tiDM= 

CB.DLC= 

CB.RDB= 

CB.SD8= 

CB.SLI  = 

CB.XLB= 

CC.LLC= 

CELOG  ^ 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MCP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.5TP= 

CE.TME= 

CE.TMO= 

CE.UNS^ 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CL$ASZ= 

CL$DLL= 

CL$ECL= 

CL$LDN= 

CL$MAN= 

CL$MFL= 

CLSPAZ= 

CL$PLH= 

CL$PLL= 

CL$PRT= 

CL$ROU= 

CL$SE5= 

CL$SFL= 

CL$SGE= 

CL$SSE= 

CL$TRfJ= 

CLfTYPr 


000002 
0OOC01 
000003 
000001 
000004 
000000 
000000 
000000 
000000 
000002 
000040 
000020 
000004 
000010 
000100 
000001 
000200 

****** 

100362 
100346 
100366 
100370 
100350 
100356 
100372 
100361 
100376 
100364 
100352 
100354 
100374 
100344 
000001 
000004 
000020 
100000 
000002 
000010 
000040 
000100 
010500 
000500 
000300 
010400 
000000 
000010 
034100 
034000 
000600 
034200 
010000 
000200 
000004 
035000 
035100 
000400 
000001 


GX 


CL$Xl2= 

CL$XL3= 

CL$X2S= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CM.CIR= 

fM.FMTr 

CM.HRD= 

CM.LIN= 

CM.LOO^ 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.8R0= 

CS.8UF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 

CS.ENA= 

CS.EN8= 

CS.ERR= 

CS.FTL^ 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.5TR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTRSES 

CTRTBL 

CV$HSK= 

CV$31  = 

CV$32  = 

CV$40  = 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.6UF' 


013700 

013600 

013500 

000001 

000002 

177774 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

00003C 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

OOOOOORG 

000066R 

000003 

000001 

000000 

000002 

000400 

177564 

000034 

000003 

0000^4 

000014 


C.BUF2 


CNT 

CNT1 

CNT2 

FLG 


C.FLGl 
C.FLG2 
C.FNC 


LIN 
LNK 
MOD 
NSP 


C.PRO 


.RSV 
C.STA 
C.STS 
C.URM 
C.XACP 
C.X'D 
C.XLEfJ 
C.XPl,' 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
DL$ASr= 
DL$HLT= 
DL$IST= 
DL$HA!= 
DL$0FF= 
DLSON  = 
DL$RUN= 
DL$SHU= 
DL$SYN= 
D$$BL'G= 
D$$ISK= 
0$$L11= 
D$$yNC= 
D$$YNH= 
EFSACT^ 
ENCCIR 
ENCSR 
ENCIW 
ENC2W 
ER$A6M= 
ER$AB0= 
ER$A8T= 
ER$ACC= 
ER$CDI= 
ER$C0M= 
ER$FMT= 
ER$ML8= 
ER$NNF= 
ER$NOD= 
ER$NSL= 
ER$NSR= 
ER$RES= 


000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 

000005 

177514 

000000 

000001 

000000 

000000 

000001 

000134R 

000114R 

C00076R 

000106R 

000010 

000046 

000011 

000042 

000052 

000047 

000005 

000006 

000012 

000002 

000013 

000003 

000001 
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ER$SrA= 
ER$U08= 
EVDSC  ' 
EVLSES 
EViACF= 
EV$ADR= 
EV$ADU= 
■EV$APL= 
FV$ARC= 
EV$AUC= 
EV$AUS= 
EV$CDF= 
EV$COZ= 
EV$DBR= 
EV$GAS= 
EV$HCE= 
EV$HCI= 
EV$HFE= 
EV$IFL= 
EV$IFO= 
EV$JFS= 
EV$INF= 
EV$LDL= 
EV$LDN= 
EV$LDO= 
EV$LDS= 
EV$LSC= 
EV$LUP= 
EV$NOL= 
EV$NRC= 
EV$NSC= 
EV$NUL= 
EV$NVR= 
EV$OPL= 
EV$PCC= 
EV$PC]= 

EV$PCM=: 

EV$PFE= 
EVSPPC^ 
EV$RCF= 
EV$RDC= 
EV$RDR= 
EV$RJE- 
EV$RSC= 
EV$RUL= 
EV$SNA= 
EV$SNF= 
EV$SPE= 
EV$XCE= 
EV$XDI= 
EV$XGW= 
EV$XMX= 
EV$XRS= 
EV$XSC= 
E\/$X2S= 
EV.CCB= 
EV.C1R= 


000051 

000004 

»*♦♦**  GX 

0001 50RG 

000201 

000420 

000417 

000400 

000421 

000010 

000003 

000520 

000011 

000302 

035101 

035114 

035113 

000506 

000413 

000415 

000414 

000515 

000407 

010416 

000411 

000410 

000500 

000412 

000402 

000416 

000200 

000401 

000406 

000403 

034000 

034001 

034002 

000404 

034003 

000517 

010001 

010002 

035106 

000501 

000405 

035000 

000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 


EV.LCB= 

EV.L1N= 

E\/.HAP= 

EV.MOD^ 

EV.NOD= 

EV.PRT= 

ESDATA 

ESEVTS 

ESLCN 

E$LIN 

E$M0D 

E$N8R 

ESNBS 

E$NCR 

ESNCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NML 

E$NMR 

E$NMS 

ESNNOD 

E$N0D 

ESNRT 

ESNRTP 

ESNSEG 

E$NTIH 

ESNUSE 

E SPORT 

ESPRM 

ESSTAT 

ESSTRT 

ESTCB 

E$$XPR= 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 


000100 
000004 
000002 
000040 
000010 
000200 
000020 
000000 
000016 
000000 
000012 
000014 
000020 
000034 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 
000002 
000010 
000042 
000005 
000010 
000046 
000004 
000014 
000002 
000006 
000006 
000004 
000000 
000020 
000046 
000002 
000042 
000216 
000024 
000000 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 
000020 
000006 
000016 
000004 
000024 
000026 
000030 


-)0_  I.  .--OC 
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SESDAT  -  Session  control  local 
Loral  data 


48 
49 

50  000000 

51  000002 
52 

53  000004 
54 

55  000006 

56  000010 
57 

58  000014 

59 

60  000016 

61 

62  000020 

63 

64  000022 

65  000024 

66  000025 

67  000026 

68  000030 

69  000032 
70 

71  000034 

72 

75  000036 

74 

75  000040 

76  000042 

n 

78  000044 

79  000046 
80 

81 

82 

83 

84 

85 

86 

87  000047 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 

101  000030 
102 
103 
104 


000000 
000000 

000000 

000000 
000000 

ooocoo 

000000 

000000 

000000 
000 
000 
000000 
000000 
000000 

000000 

000000 

000000 
000000 

000000 
000 


000 


000000 


055400  131574 


:R0  V05.03b  F 

riday  28 

E  13 

-Jun-85  19:54 

Page  7 

.SBTTL 

Local  data 

SSESDB: 
SSESPD: 

:.W0Ri) 
:.W0RD 

0 
0 

;  Address  of  ECL  database  descriptor 
;  PDV  index  of  ECL  process 

SUCBi: 

.WORD 

0 

;  Address  of  device's  UC8 

SRQTC8: 
SRQNAM: 

:.WORD 
: . WORD 

8,0 

;  TC8  being  requested 
;  Requested  task  name 

SRQCPV: 

: . WORD 

0 

;  Max  #  of  copies  allowed 

SMAIBX: 

:.WORD 

0 

;  Current  mailbox 

SBVTE:: 

.WORD 

0 

;  Byte  count 

SRCC8:: 
SSRVCS: 
SINFO:: 
SSEGMT: 
SMENU:: 
SLADDR: 

.WORD 
:.BYTE 

.BYTE 
:.UORD 

.WORD 
:.WORD 

0 
0 
0 
0 
0 
0 

;  Address  of  received  CC8 

;  Services  requested  in  a  CI  message 

;  Info  field  from  CI  message 

;  Segment  size  from  CI  message 

;  Menu  field  from  CI  message 

;  Local  area  address  for  CI  message 

SREASN: 

:.WORD 

0 

;  Reason  code  from  DI  or  DC  message 

SENCOD: 

:.UORD 

0 

;  LLA  encoding  word 

SU8LK:: 
SJOPKT: 

.WORD 
:.WORD 

0 
0 

;  Address  of  current  window  block 
;  Address  of  current  I/O  packet 

SLTM:: 
SFLOW:: 

.WORD 
.BYTE 

0 
0 

;  Long  term  timer  value 
;  Flow  control  options 

.IF  DF 

NSSSLI 

SLTYPE: 

:.BYTE 
.ENDC 

0 

;  Link  type  flags 

SFLAGS: 

:.8YTE 
.EVEN 

0 

;  General  ACP  flag  word 

;  Bit  0  =  'loopback  node'  flag 

.IF  DF 

X$$HDR 

SHDRMP: 

: . WORD 
.ENDC 

0 

;  Task  header  mapping 

.IF  DF 

N$$ACC 

VFVNAM: 

:.RAD50 
.ENDC 

/NVP.../ 

;  Name  of  verification  task 

F  13 
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54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67  000000 

68 

69  000000  005704 

70  000002  001402 

71  000004 
72 

73  000010 

74 

75 

76 

77 

78 

79  000014  000000' 

80  000016  000016' 

81  000020  000076' 


.SBTTL  Disconnect  and  connect  reject  010  processing 

h 

**-$DSQ10-Disconnect  and  connect  reject  QIO  processing 

This  routine  processes  aU  disconnect  and  connect  reject  requests. 

Inputs: 

R1  =  Address  of  the  task's  header 

R2  =  I/O  subfunction/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  window  block/mailbox 

R5  =  Address  of  database  descriptor 


.PSECr  $HIGH 


SDSQIO: 


10$: 


irsT 

BEQ 
CALLR 


R4 

10$ 

aDISTBL(R2) 


Is  there  a  window/mailbox  ? 

If  EQ,  no  -  just  complete  I/O 

Else,  dispatch  to  processing  routine 


CALLR   lOSUC 
Disconnect  function  dispatch  table 
DISTBi 


Complete  I/O  request 


.WORD 
.WORD 
.WORD 


DSC 
AST 
REJ 


Disconnect 

Abort 

Connect  reject 


F  U 


E  15 

SESDMO  -  Session  control  dismou  MACRO  V05.03b  Friday  28-Jun-35  19:55 
Symbol  table 


ACCLLT: 
AC$DNT= 
AC$X25= 
AE$C1R= 
AE$LIN= 
AE$MOD= 
At$CHK= 
A$$CPS= 
A$$PRI= 
A$$TRP= 
BYTE3  = 
CL$ASZ= 
CL$OLL= 
CL$ECL= 
CL$LDN= 
CL$MANI= 
CL$MFL= 
CL$PAZ= 
CL$PLH= 
CL$PLL= 
CL$PRT= 
CL$RCU= 
CL$SES= 

CL$sa= 

CL$SGE= 

CL$SSE= 

CL$TRN=: 

CLiTyP= 

CL$XL2= 

CL$XL3= 

CL$X2S= 

lL.MU1= 

CL.MU2= 

CL.RES= 

CV$MSK= 

CV$31  = 

CV$32  = 

CVS^O  = 

C$$ORE= 

C$$RSH= 

DLSAST= 

DL$HLT= 

DL$IST= 

OL$MAI= 

DL$CFF= 

DL$ON  = 

DL$RUN= 

DL$SHU= 

DL$SVN= 

DM0  T  A 

D$$eUG= 

D$$ISK= 

D$$Ln  = 

D$$VNC= 

D$$VNM= 

EF$ACT= 

ER$ABM= 


*•»♦*♦  6X 

000002 

000001 

000003 

000001 

00000^ 

000000 

000000 

000000 

000000 

000300 

010500 

000500 

000300 

010A00 

000000 

000010 

03A100 

03AOOO 

000600 

03A200 

010000 

000200 

OOOOOA 

035000 

035100 

OOOAOO 

000001 

013700 

013600 

013500 

000001 

000002 

000003 
000001 
000000 
000002 
000400 
17756A 
000002 
000000 
000001 
000004 
000001 

ooooco 

000003 

000002 

0U0005 

000062R 

177514 

000000 

000001 

000000 

000000 

000001 

000010 


ER$AB0= 
ER$A8T= 
ER$ACC= 
ER$CDI= 
ER$C0H= 
ER$FMT= 
ER$MLB= 
ER$NNF= 
ER$NOD= 
ER$NSL= 
ER$NSR= 
ER$RES= 
ER$STA= 
ER$U08= 
EVLSES= 
EV$ACF= 
EV$ADR= 
EV$ADU= 
EV$APL= 
EV$ARC= 
EV$AUC= 
EV$AU5= 
EV$CDF= 
EV$C0Z= 
EV$DBR= 
EV$GAS= 
EV$HCE= 
EV$HCI= 
EV$HFE= 
EV$IFL= 
EV$IFO= 
EV$IFS= 
EV$INF= 
EV$LDL= 
EV$LDN= 
EV$LDO= 
EV$LDS= 
EV$LSC= 
EVSLUP- 
EV$NOL= 
EV$NRC= 
E\/$NSC= 
EV$NUL= 
EV$NVR= 
EV$0PL= 
EV$PCC= 
EV$PCI= 
EV$PCM= 
EV$PFE= 
EV$PPC= 
EV$RCF= 
EV$RDC= 
EV$RDR= 
EV$RJE= 
EV$RSC= 
EV$RUL= 
EV$SNA= 


000046 

000011 

000042 

000052 

000047 

000005 

000006 

000012 

000002 

000013 

000003 

000001 

000051 

000004 

******  GX 

000201 

000420 

000417 

000400 

000421 

000010 

000003 

000520 

000011 

000302 

035101 

035114 

035113 

000506 

000413 

000415 

000414 

000515 

000407 

010416 

000411 

000410 

000500 

000412 

000402 

000416 

000200 

000401 

000406 

000403 

034000 

034001 

034002 

000404 

034003 

000517 

010001 

010002 

035106 

000501 

000405 

035000 


EV$SNF= 
EV$SPE= 
EV$XCE= 
EV$XDI= 
EV$XGW= 
EV$XMX= 
EV$XRS= 
EV$XSC= 
EV$X2S= 

Ev.cce= 

EV.CIR= 

EV.LCB= 

EV.LIN= 

EV.MAP= 

EV.M0D= 

EV.N0D= 

EV.PRT= 

ESDATA 

ESEVTS 

ESLCN 

ESLJN 

E$M0D 

E$N0D 

ESPORT 

E$PRM 

ESSTAT 

ESTCB 

E$$XPR= 

E.CTL 

E.DATA 

E.EVr 

E.LCN 

E.LEN 

E.LJN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FLSLNK 

FR$BCC= 

FR$CCF= 

FR$CDF= 

FR$DAO= 

FR$EXC= 

FR$FRM= 

FR$FTL= 

FR$OPN= 

FR$RFD= 

FR$SBU= 

FR$SHO= 

FR$USU= 

FR$UPT= 


000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 

000100 

000004 

000002 

000040 

000010 

000200 

000020 

000000 

000016 

000000 

000012 

000010 

000014 

000002 

000006 

000004 

000000 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

OOOOOOR 

000007 

0000C1 

000002 

000011 

000000 

000010 

000005 

000004 

000006 

000012 

000003 

000015 

000C14 
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F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

6$$URD= 

IN.DAT= 

IN.ILS= 

lOSUC  = 

I$$RAR= 

I$$RDN= 

I.FCN  = 

KILLNK= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LA.ACK= 

LA.CRS= 

LA. Ml'  •■• 

LA.NAn^ 

LA.NHS= 

LA.RES= 

LA.WND= 

LD$LP  = 

LF.DRD= 

LF.FRC= 

LF.HFO= 

LF.HHF= 

LF.HSF= 

LF.IRD= 

LF.MMF= 

Lr.MSF= 

LS.DLS= 

LS.FCC= 

LS.FCO= 

LS.FC1= 

LS.ILS= 

LS.MAK= 

LS.MNK= 

LS.RES= 

LS.RSV= 

LT.CCA= 

LT.DIR= 

LT.LCL= 

LT.LPL= 

LT.NOT= 

LT.RSU= 

LT.SlI= 

LT.TDA= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.CSTA 

L.CTR 

L.DCR 

L.FLAG 


000001 

L.ILSQ 

000052 

000000 

L.ILTT 

000066 

000000 

L.LDA 

000032 

000000 

L.LIA 

000034 

000000 

L.LLA 

000002 

000400 

L.LNG 

000124 

000001 

L.LNO 

000026 

»*»•**  GX 

L.LPI 

000065 

000000 

L.LSA 

000030 

000000 

L.LSFD 

000046 

******  GX 

L.LSFI 

000044 

******  GX 

L.LTT 

000062 

177546 

L.MASQ 

000070 

177546 

L.MAST 

000073 

000000 

L.MASZ 

000072 

000074 

L.NIN 

000020 

100000 

L.NXN 

000016 

020000 

L.NXTH 

000010 

170000 

L.OPD 

000103 

110000 

L.OPnL 

000102 

010000 

L.REM 

000006 

040000 

L.RFC 

000050 

004000 

L.RLA 

000004 

onoooo 

L.RNO 

000022 

000004 

L.RTQ 

000060 

000001 

L.RTYO 

000055 

000010 

L.RTYI 

000057 

000040 

L.SEC 

000064 

000020 

L.SEGZ 

000076 

000002 

L.STA 

000000 

000200 

L.TC 

000042 

000100 

L.TIC 

000043 

100000 

L.TIPD 

000013 

000004 

L.TIPI 

000012 

000001 

L.TMRD 

000054 

000002 

L.THRI 

0000'^6 

100000 

L.TYP 

OOOOOl 

000020 

L.USA 

000024 

000040 

L.USTA 

000036 

000360 

L.VER 

000015 

000300 

L.WIND 

000040 

000020 

MA. CI  = 

000040 

000010 

MA. DA  = 

000000 

000001 

MA.IL  = 

000020 

000002 

MC.CC  = 

000040 

000040 

MC.CI  = 

000020 

000200 

MC.DC  = 

000100 

000004 

MC.DI  = 

000060 

000100 

MC.NO  = 

000000 

000000 

MC.RC  = 

000140 

000000 

MD.BM  = 

000040 

000001 

MD.EM  = 

oooino 

000000 

MD.ILS= 

000040 

000037 

MD.IM  = 

000020 

000074 

MF.ACK: 

000004 

000100 

MF.CTL= 

000010 

000014 

MF.DAT= 

000000 

F  15 


E  16 

SESDSP  -  Session  control  dispat  MACRO  V05.03b  Friday  28-Jun-85  19:56  Page  8 
Session  control  ACP  idle  loop 


98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lU 
115 
116 
117 
118 
119 
120 
121 

122  000000 
123 

12A  000000 
125 

126  OGOOOA 

127  000012 
128 

129  000020 

130  000024 
131 

132  000026 

133  000032 
13i!i  000036 
135 

136  000010 

137  000046 

138  000052 

139  000054 
140 

141  000056 

142  000060 

143  000062 
144 

145  000066 

146  000074 

147  000076 

148  000102 

149  000106 

150  000112 

151  000120 

152  000124 
153 

154  000126 


016777 
142765 

105765 
001412 


105365 
001373 


011504 
001424 

011415 
001002 
010565 

152765 
005014 
010467 
116402 
116403 


C00752 
142765 


.SBTTL  Session  control  ACP  idle  loop 

••-ACPIDL-Session  control  ACP  idle  loop 

This  routine  is  the  main  dispatch  point  for  the  session  control 
ACP.  Process  as  many  CCB's  and/or  I/O  packets  as  possible  before 
returning  to  the  caller. 

Inputs: 

R5  =  Address  of  database  descriptor 

Outputs:  (to  ccb  processing  routines) 
R3  =  Subtunction  code 
R4  =  Address  of  CCB 
R5  =  Address  of  database  descriptor 

(To  I/O  packet  processing  routines) 
Rl  =  Address  of  the  task  header 
R2  =  I/O  subfunction  code/4 
R3  =  Address  of  I/O  packet 
R4  =  Address  of  window  block  or  mailbox 
R5  =  Address  of  database  descriptor 

Ihe  task  header  will  be  mapped  (RSX-llM-Plus  only) 


ACPIDL: 


OOOOOOG  OOOOOOG 
000200  000005 

000004 


000004 


10$: 

20$: 
30$: 


40$: 


000002 

000200  000005 

OOCjOOG 

000010 

000011 


000100  000005  50$: 


.PSECT 

:SWSTK$ 

MOV 
BIC8 

TSTS 
BEQ 

CALL 
DECB 
BNE 

RECMAP 
CALL 
MOV 
BEQ 

HOV 
BNE 
MOV 

BISB 

CLR 

MOV 

M0V8 

MOVB 

RECMAP 

CALL 

BR 


RET 


Enter  system  state 


$SESPD,aCMPDV   ;;  Pretend  we  are  ECL 
#NF$TIM,N$FLG(R5);;  Assume  no  more  timer  support  required 


N$TIM(R5) 
30$ 

SESTIM 

N$TIM('"S) 

10$ 


SCNGNQ 

(R5),R4 

50$ 

(R4),(R5) 

40$ 

R5,2(R5) 


#NF$TIM,N$FLG(R5);, 

(R4) 

R4,$RCCB 

C.FNC(R4),R2 

C.M0D(R4),R3 

aCCBDSP(R2) 
30$ 


Is  the  timer  active? 
If  EQ,  no 

Perform  session  control  timing 
Reduce  outstanding  timer  count 
Loop  till  all  processed 

Recover  high  APR  mapping 

Scan  general  delivery  queue 

Get  address  of  next  CCB  to  process 

If  EQ,  none 

Unlink  CCB  from  chain 

If  NE,  more  entries  in  the  chain 

Update  tail  pointer 

Show  we  still  need  timer  support 
Indicate  this  is  a  single  CCB 
Save  address  of  CCB 
Get  the  function  code 

and  the  modifier 
Restore  high  APR  mapping 
Dispatch  to  processing  routine 

tnen  try  for  next  C!.B 


BICB    #NF$BLI<:,N$FLG(R5)  ; ;  Enable  I/O  packet  dequeuing 


XJA 
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7-120 

10-304 

10-308 

CCBDF$ 

#6-75 

6-78 

RESRG 

#6-75 

10-311 

RETURN 

7-119 

8-183 

9-2';6 

SAVRG 

#6-75 

10-309 

SLTDFS 

#6-75 

6-77 

SOB 

10-289 

*«F1LE«»1D««AXMDC 


9-241  10-294  10-310 


10-313 
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370  000-112 

116501 

000003 

M0V8 

371  000416 

CALL 

372  000422 

116565 

000004 

000005 

MOVB 

373  000430 

142765 

000200 

000004 

BICB 

374  000436 

062705 

000010 

40$: 

ADD 

375  000442 

000722 

BR 

376  0C0444 

50$: 

RETURN 

M.STT(R5),R1    ;  GET  CURRENT  LINE  STATE 
aMDMSRV(Rl)     ;  DISPATCH  TO  SERVICING  ROUTINE 
M.CSV(R5),M.PSV(ft5)  ;  UPDATE  PREVIOUS  SERVICE  STATUS 
#MC.CCB,M.CSV(R5)  ;  CLEAR  CCB  ALLOCATION  FAILURE  STATUS 
#M.LEN,R5       ;  POINT  TO  NEXT  ENTRY 
MDMSCN         ;   AND  LOOP 


377 


-G,  2 
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G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BUT= 

LF.ENA= 

LF.LP8= 

LF.MDC= 

LF.MFL= 

LF.HTP= 

LF.PAC= 

LF.RDV= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

IN. ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDH 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 


A$tCHK= 

000000 

CS.DIS= 

000040 

D$$ISK= 

000000 

A$$CPS= 

000000 

CS.ENA= 

000001 

D$$L11= 

000001 

A$$PRI  = 

000000 

CS.ENB= 

000020 

D$$YNC= 

000000 

A$$TRP= 

000000 

CS.ERR= 

100000 

D$$YNH= 

000000 

CB.CCB= 

000002 

CS.FTL^ 

001000 

ENABLE 

000114R 

CB.0DI1= 

000040 

CS.HCR= 

000001 

E$$XPR= 

000000 

CB.Dl  C  = 

000020 

CS.HFE= 

002000 

FC.CCP= 

8928^9 

CB.RDB= 

000004 

CS.LST= 

040000 

FC.CTL= 

000006 

CB.SDB= 

000010 

CS.MTL= 

004000 

FC.KCP= 

000016 

CB.SLI= 

000100 

CS.RNG= 

000010 

FC.KIL= 

000004 

CB.XLB= 

000001 

CS.ROV= 

000004 

FC.MAN= 

000024 

CCBGT  = 

******   GX 

CS.RSN= 

010000 

FC.MLD= 

000026 

CC.LLC= 

000200 

CS.SHU= 

000001 

FC.PCT= 

000030 

CE.ABO= 

100362 

CS.SID= 

000002 

FC.PWR= 

000022 

CE.DAO= 

100345 

CS.STR= 

000004 

FC.RCE= 

000002 

CE.DIS= 

100366 

CS.SUC= 

000001 

FC.RCP= 

000014 

CE.ERR= 

100370 

CS.TMO= 

020000 

FC.TIM= 

000010 

CE.ILN= 

100350 

CS.XUR= 

000004 

FC.XCP= 

99291? 

CE.LTO= 

100356 

CTLDSP 

000060R 

FC.XHE= 

000000 

CE.MQP= 

100372 

C$$CKP= 

000000 

FS.AST= 

000000 

CE.NTE= 

100361 

C$$ORE= 

000400 

FS.CIB= 

002000 

CE.RTE= 

100376 

C$$RSH= 

177564 

FS.CRA= 

001000 

CE.SRC= 

100364 

C.ADD 

000034 

FS.DIS= 

013000 

CE.STP= 

100352 

C.BID 

000003 

FS.DVC= 

001000 

CE.TME= 

100354 

C.BUF 

000014 

FS.ENB= 

012000 

CE.TTO= 

100374 

C.BUFl 

000014 

FS.EX1= 

001000 

CE.LINS= 

100344 

C.BUF2 

000024 

FS.GET= 

006000 

CF.CHN= 

000001 

C.CNT 

000020 

FS.HLT= 

000000 

CF.EOM= 

000004 

C.CNT1 

000020 

FS.INI= 

000000 

CF.HDR= 

000020 

C.CNT2 

000030 

FS.KIL= 

000000 

CF.LB  = 

100000 

C.FLG 

000022 

FS.LCL= 

100000 

CF.LIN= 

000002 

C.FLGl 

000022 

FS.LTM= 

001000 

CF.SOM= 

000010 

C.FLG2 

000032 

FS.MNr= 

004000 

CF.SYN= 

000040 

C.FNC 

000010 

FS.MSN= 

014000 

CF.TRN= 

000100 

C.LIN 

000006 

FS.REA= 

001000 

CM.';iR  = 

000002 

C.LNK 

000000 

FS.RET= 

000000 

CM.FMT= 

100000 

C.MOD 

000011 

FS.REZ= 

003000 

CM.HRD= 

000002 

C.NSP 

000004 

FS.RLB= 

002000 

CM.LIN= 

000000 

C.PRO 

000042 

FS.fiNG= 

011000 

CM.LOO= 

000001 

C.RSV 

000002 

FS.RST= 

000000 

CM.XLO= 

000004 

C.STA 

000007 

FS.RTN= 

001000 

CNCMP 

00061  OR 

C.STS 

000012 

FS.SET= 

005000 

CP.DCF= 

000040 

C.URM 

177776 

FS.SFC= 

005000 

CP.HDL= 

000007 

C.XACP 

000C04 

FS.SFR^ 

006000 

CP.PS  = 

177400 

C.XID 

000035 

FS.SFS= 

004000 

rp.PSI= 

000200 

C.XLEN 

000044 

FS.SPW= 

040000 

CP.XCF= 

000100 

C.XPLI 

000040 

FS.STM= 

000000 

CP.2FR= 

000030 

C.XPT 

000034 

FS.STP= 

002000 

CS.ABO= 

000100 

C.XSVC 

000042 

FS.STR= 

001000 

CS.BRO= 

000002 

C.XTC 

000037 

FS.TRH= 

003000 

CS.BUF= 

000200 

C.X25 

000036 

FS.WLB= 

001000 

CS.CES= 

000002 

DDAST  = 

******   GX 

FS.XKL= 

002000 

CS.CHN= 

000010 

DDCCP  = 

******   GX 

FS.XOF= 

010000 

CS.CMP= 

000200 

DDMSN  = 

♦♦•*••  GX 

FS.XON= 

007000 

CS.DCR= 

000400 

DISC 

000756R 

FS.ZER= 

002000 

CS.DEF= 

000004 

DSABLE 

000134R 

F$$LVL  = 

000001 

C5.DEV= 

000002 

D$$BUG= 

177514 

G$$TPP= 

000000 

000000 

L . OWNR 

000021 

000000 

L.UNT 

000013 

000000 

MC.CAR= 

000001 

000000 

HC.CCB= 

000200 

000000 

HC.DSR= 

000002 

177546 

MC.RNG= 

000004 

177546 

HDMCTL 

000022RG 

000000 

MDMSCN 

00031  ORG 

000074 

HDMSRV 

OOOOOOR 

000000 

MS.END= 

000200 

100000 

MS.SCA= 

000002 

000400 

HS.SVN= 

000001 

000007 

H$$CRB= 

000124 

002000 

M$$CRX= 

000000 

001000 

M$$FCS= 

000000 

000100 

M$$MGE= 

000000 

004000 

H$$NET= 

000000 

000020 

M$$OVR= 

000000 

000200 

M.CSV 

000004 

040000 

M.LEN 

000010 

010000 

M.LIN 

000001 

000040 

M.PSV 

000005 

000010 

M.STA 

000006 

020000 

H.STS 

000000 

000000 

M.STT 

000003 

000000 

H.TIM 

000002 

000005 

N$$ACC= 

000001 

000004 

N$$BUF= 

000001 

000003 

N$$LDV= 

OOCOOl 

000003 

N$$MCP= 

000001 

000001 

N$$MLL= 

000001 

000000 

N$$MOV= 

000010 

000004 

N$$NCT= 

000001 

000001 

N$$PEM= 

000001 

000002 

PDVTA  =■ 

******   GX 

000002 

P$$P45= 

000000 

000017 

P$$WRD= 

000000 

000360 

Q$$0PT= 

000010 

000006 

RING 

000066R 

000000 

R$$DER= 

000000 

000000 

R$$K11= 

000001 

000001 

R$$SND= 

000000 

000000 

R$$nM= 

000000 

0000- 5 

SF.ACT= 

000200 

0000-  2 

SF.EKA= 

000100 

177776 

SF.LPB= 

000004 

000002 

SF.MFL= 

000040 

000004 

SF.PAC= 

000020 

000003 

SF.REA= 

000010 

000006 

SF.SER= 

000001 

000010   - 

£F.SVC= 

000002 

000000 

SF.UNL= 

000040 

000016 

SLTMA  = 

*♦*»**  GX 

0tC022 

ST. ABO 

C00020  G 

000022 

ST. ACT 

000010  G 

000020 

ST.ADL 

000012  G 

000014 

ST. COL 

00C006  G 

G  3 
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F     « 


0OC7OO 


016704 
005CU 


010477 
010467 


185  000170 

186  000174 

187  000200 

188  000204 
189 
190 
191 
192 
193 

194  000206 

195  000212 
196 
197 
198 
199 
200 
201 
202 

203  000214 

204  000220 
205 
206 

20" 

208  0C0224  000401 

209 

210 

211 

212 

213 

214  000226 

215  000230 
216 
217 

218 
219 
220 
221 
222 
223 
224 
225 
226 

227  000236 

228  000242 
229 

230       000001 


45$: 


CALL 

aSTDLC 

CALL 

aPDSPL 

MTPS 

#0 

BR 

5$ 

SET  UP  DLC  INDEX  AND  LINE  TABLE  ADDRESS 

DISPATCH  THE  PROCESS 

ENABLE  INTERRUPTS 

GO  EXAMINE  QUEUE  ONCE  MORE 


GIVE  UP  PROCESSOR  TO  ALLOW  OTHER  FORK  BLOCKS  TO  EXECUTE 


OOOOOOG 


47$: 


000002G 
000002G 


MOV 
CLR 

CMFRK,R4 
(R4) 

.IF  DF 

R$$MPL 

CALL 

aOFORK 

.IFF 

MOV 
MOV 

R4,a$FRKHD+2 
R4,$FRKHDt2 

.ENDC 

BR 

55$ 

014343 
042777 


;  EXIT 

SOFTWARE 

LEVEL  SERVICE 

50$: 
55$: 

MOV 
BIC 

-(R3),-(R5) 
#CF.FRK,aCXOPT 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

60$: 

BIT 
BEQ 
CALL 

.ENDC 
.ENDC 

#F2.MP,aFMSK2 
60$ 

a(SP)+ 

MTPS 
RETURN 

#0 

POINT  TO  START  OF  FORK  BLOCK 
CLEAR  LINK  WORD 


QUEUE  UP  THE  FORK  BLOCK 


PUT  FORK  BLOCK  AT  THE 
END  OF  THE  FORK  LIST 


EXIT  FORK  PROCESSING 


FREE  FORK  BLOCK 

FORK  PROCESSING  NO  LONGER  ACTIVE 


IS  THIS  A  MULTIPROCESSOR? 

BR  IF  NO 

CO-ROUTINE  RETUhN  TO  UNLOCK  PROCESS  QUEUE 


;;  ENABLE  INTERRUPTS 
RETURN  TO  SYSTEM 


.END 
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229  0001 U 

230  000116 

231  000120 

232  000124 

233  000126 
23A  000130 

235  000132 

236  000136 

237  OOOKA 

238  000K6 
239 

240 


011046 
010346 

012600 
012610 
010200 

016777 
012603 


20$: 


177640  OOOOOOG 


30$: 


MOV 

(RO),-(SP) 

MOV 

R3,-(SP) 

CALL 

aCEACC 

MOV 

(SP)+,RO 

MOV 

(SP)+,(RO) 

MOV 

R2,R0 

RE  SWAP 

MOV 

XAVLL.aXAVL 

MOV 

(SP)+,R3 

RETURN 

save  next  block  address 

set  up  for  Sceacc  (prev  blk) 

map  address  of  block 

get  mapped  address 

unlink  block  from  list 

and  return  unmapped  address  to  user 

restore  apr  6  mapping 

update  cex  copy  of  listhead 

restore  register 


.ENDC 


AXSUB   MACRO  V05.03b  Friday  28-Jun-85  18:30  Page  9 


G  5 


■•F1LE«*1C)*«AXT1M 


F     6 


AAAAAA 

XX      XX 

TTTTTTTTTT 

III 

111 

MM      MM 

AAAAAA 

XX      XX 

TTTTTTTTTT 

ill 

111 

MM      MM 

AA      AA 

XX      XX 

1 

MMMM  MMMM 

AA      AA 

XX      XX 

1 

MMMM  MMMM 

AA      AA 

XX   XX 

MM  MM  MM 

AA      AA 

XX   XX 

MM  MM  MM 

AA      AA 

XX 

1 

MM     MM 

AA      AA 

XX 

i 

MM     MM 

AAAAAAAAAA 

XX   XX 

1 

MM     MM 

AAAAAAAAAA 

XX   XX 

1 

MM     MM 

AA      AA 

XX      XX 

1 

MM      MM 

AA      AA 

XX      XX 

1 

MM      MM 

AA      AA 

XX      XX 

111 

111 

MM      MM 

AA      AA 

XX      XX 

IIJ 

111 

MM      MM 

ssssssss 

TTTTTTTTTT 

5SSSSSSS 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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000476  005CU 
000500 


AXTIM  -  AUXILLURY  PROCESS  TIME 
PUT  TIMER  EMTRY  ON  QUEUE 


419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

4i.8 

449 

450 

451 

452 

453 

454 

455 

456 
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.SBTTL  PUT  TIMER  ENTRY  ON  QUEUE 
**-STALT-PUT  TIMER  ENTRY  ON  QUEUE 

LINK  A  SHORT  TIMER  ENTRY  ONTO  A  100  MSEC  TIMER  QUEUE. 
INPUTS: 


STALT: 


10$: 


000512  010470  000002 
000516  010460  000002 


20$: 


000522 
000526 


RO  -  POINTER  TO  TIMER  QUEUE  LISTHEAD 
R4  -  POINTER  TO  SHORT  TIMER  ENTRY 


CLR 
INHIB$ 

(R4) 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

BIT 
BEQ 
CALL 

#F2.MP,aFMSK2 

10$ 

aWPLCK 

.ENDC 
.ENDC 

MOV 
MOV 

R4,a2(R0) 
R4,2(R0) 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PR0 

BIT 
BEQ 

CALL 

#F2.MP,aFMSK2 
20$ 

a(SP)  + 

.ENDC 
.ENDC 

ENA8L$ 
RETURN 

CLEAR  LINK  WORD 
;;  INHIBIT  INTERRUPTS 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

LOCK  ACCESS  TO  COMMEXEC  RESOURCES 


LINK  ENTRY  TO  END  OF  LIST 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

CO-ROUTINE  RETURN  TO  UNLOCK  RESOURCES 


ENABLE  INTERRUPTS 
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113 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130  000106 

131 

132  000112 

133  000120 

134  000124 

135  000130 

136  0001 34 

137  000136 
138 

139  000142 

140  000146 

141  000152 
■  2  000154 

3 
.-,4  000160 

145  000166 

146  000174 

147  000200 

148  000204 

149  000210 

150  000214 

151  000220 

152  000224 

153  000230 

154  000232 
155 

156  000236 

157  000242 
158 

159  000244 

160  000250 

161  000252 

162  000256 

163  000262 
164 

165  000264 

166  000270 

167  000274 


010364  000010 


016302  000002G 

012701  OOOOOOG 

012700  000032 
112221 


012701  OOOOOOG 
012700  000056 
112221 


.SBTTL  Connect  QIO  processing 

♦•-CON-Connect  request  processing 

This  routine  processes  outgoing  connect  requests. 

Inputs; 

Rl  =  Address  of  the  task's  header 

R2  =  I/O  subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  the  window  block 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Connect  successfully  processed 
'C  Set   -  Connect  fai  lure 


CON: 


10$: 


20$: 


112767  000001   OOOOOOG 

105067  OOOOOOG 

012702  OOOOOOG 

012722  000006 

016301  OOOOOOG 

016146  000002G 

016101  OOOOOOG 

012601 


004167  OOOOOOG 
000304G 


103405 

016700  OOOOOOG 

105260  000010 


012700  OOOOOOC 
016501  000022 


50$: 


MOV 

R3,W.TMP(R4) 

MAP 

I.PRM(R3) 

MOV 

I.PfiMt2(R3),R2  ; 

MOV 

#$CN8LK,R1 

MOV 

#N.RIDC-N.RND,RO; 

M0V8 

(R2)+,(Rl)t 

S08 

R0,10i 

MOV 

#$RE0ID,R1 

MOV 

#N.RQL-N.RIDC,RO; 

MOVB 

(R2)+,(R1)+ 

SOB 

R0,20i 

RECMAP 

M0V8 

#NC.FM1,$SRDFM  ; 

CLRB 

SSROBJ 

MOV 

*$SRDSC,R2 

MOV 

#6,(R2)+ 

MOV 

I.TCB(R3),R1    ; 

t.nam+2(r1).-(sp5 

T.NAM(R1),R1 

MOV 

MOV 

CALL 

C5TA 

MOV 

(SP)+,R1 

CALL 

C5TA 

JSR 

RI.CPYOPT 

.WORD 

I.PRMt4 

CALL 

SNDCON 

BCS 

30$ 

MOV 

$MAI8X,R0 

INC8 

M.USE(RO) 

RETURN 

MOV 

#IE.NRJ&377,R0  ; 

MOV 

N$ERRC(R5),R1 

CALLR 

lODUN         ; 

Save  address  of  I/O  packet 

Map  to  the  connect  block 

Get  virtual  address  of  buffer 

Set  address  of  internal  connect  block 

Set  up  #  of  bytes  to  copy 

Copy  first  part  of  connect  block 


Set  up  new  address  of  internal  connect  block 

Set  up  #  of  bytes  to  copy 

Copy  iecond  part  of  connect  block 

Recover  high  APR  mapping 

Source  format  is  always  1 

Source  object  is  always  0 

Point  to  source  process/task  descriptor 

6  bytes  long 

Get  task  name 


Convert  to  ascii 


Copy  optional  user  data 


Transmit  the  connect  request 

If  CS,  failure 

Recover  address  of  mailbox 

Update  count  of  active/pending  logical  Links 


Set  network  reject  code 
Get  the  reject  reason  code 
Complete  the  request  in  error 
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6     9 

MAron   uns   n^h    Fririsv    PR-.liin-8S    19:S^ 


L 


SESCTL  -  Session  control  contro 
Find  requested  niail  item 


395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416  000244 

417 

418  000244 

062704 

000014 

419 

420  000250 

011401 

421  000252 

001432 

422  000254 

116100 

000010 

423  000260 

100006 

424  000262 

132761 

000004 

425  000270 

001025 

426 

427  000272 

042700 

177600 

428 

429  000276 

120227 

000006 

4n  000302 

001415 

431 

432  000304 

105763 

000006G 

433  000310 

001403 

434  000312 

126300 

000006G 

435  000316 

001012 

436 

437  000320 

105763 

000007G 

438  000324 

001404 

439  000326 

126361 

000007G 

440  000334 

001003 

441 

442  000336 

005727 

443  000340 

000261 

444  000342 

445 

i46  000344 

010104 

447  000346 

000740 
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.SSTTL  Find  requested  mail  item 

«*-FNDMAI-Find  requested  mail  item 

Scan  the  network  data  queue  for  a  data  item  which  satisfies  the 
requirements  of  the  I/O  request. 

Inputs: 

R2  =  Subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

Outputs: 

RO  =  Type  code  from  mail  item 
R1  =  Address  of  requested  mail  item 
'C  Clear  -  Matching  mail  item  found 
'C  Set   -  No  matching  mail  item  found 

Registers  modified: 
R4 


000011 


000011 


.PSECT 

FNt^MAI:  ADD 

10$:    MOV 
BEQ 
MOVB 
BPL 
BITB 
BNE 


20$: 


30$: 


40$: 
50$: 


60$: 


BIC 

CMPS 
BEQ 

TST8 
BEQ 
CMPB 
BNE 

TSTB 
BEQ 
CMP8 
BNE 

TST 
SEC 
RETURN 

M0\/ 
BR 


$HIGH 

#M.MAIL,R4 

(R4),R1 

50$ 

C.FNC(R1),R0    ; 

20$  ; 

#CX.UNL,C.M0D(R1) 

60$ 

*"C<177>,R0 

R2,#6 

40i  ; 

I.PfiMt6(R3) 
30$ 

I.PRi^t6(R3),R0  ; 
60$ 

I.PRM+7(R3) 

40$  ;  _  _ 

I.PRMt7(R3),C.MOD(RV 


Point  to  mailbox  listhead 

Get  next  item  on  list 

If  EQ,  no  more 

Get  the  function  code 

If  PL,  not  a  connect  type  request 

;  Has  this  request  been  de-queued  already? 

If  NE,  yes 

Isolate  function  code 

Is  this  a  normal  GND$? 
If  EQ,  yes 

Type  mask  specified? 
If  EQ,  no 

Match  on  type  code 
If  NE,  no 

LUN  mask  speci  tied? 
If  EQ,  no 


60$ 
(PC)< 


R1,R4 
10$ 


If  NE,  no  LUN  match 

Indicate  success 
Indicate  failure 


iloue  on  down  the  list 
and  try  again 


G  10 
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SESCTL  -  Session 
Symbol  table 


T$$KMG= 
T$$MIN= 
T.NAM  = 
UISAR6= 
US$CNF= 
US$DIS= 
US$DON= 
US$DSC= 
US$EAC= 
US$WDS= 


000000 
OOOCOO 

****** 
****** 

000002 
000006 
000000 
000004 
000012 
000010 


VE.FAI= 

VFY 

V5.NPV= 

VS.PRV= 

VZ.NVD= 

V$$CTR= 

UK.ACK= 

WK.AST= 

UH;.DIS= 

WK.INT= 


177777 

000'iA6R 

000001 

000002 

000000 

001000 

000001 

000200 

000010 

000020 


iday  28 

-Jun-85 

F  11 

19:53 

Page  20-3 

UK.RCV= 

OOOOOA 

W.LLT 

000004 

$CALLX= 

*»*♦*«  GX 

UK.SND= 

000002 

W.LUN 

000003 

SCLQIO 

OOOOOORG 

WS.DIP= 

000010 

W.MBOX 

000012 

SCTQIO 

OOOOOORG 

WS.1NT= 

000002 

W.RCVO 

000024 

$IOPKT= 

»♦**«*  GX 

WS.KAS= 

000004 

W.SEGZ 

000006 

$MAIBX= 

♦«♦«*♦  GX 

WS.STA= 

000001 

W.SNDQ 

000016 

$RQNAM= 

*♦♦*♦♦  GX 

W.CINT 

000022 

W.STAT 

000002 

$UCB  = 

«««♦♦*  GX 

W.CSND 

000020 

U.TMP 

000010 

$$SHFT= 

000001 

W.CTL 

000000 

W.W8L 

000026 

$$$   = 

000062 

W.KAST 

oooou 

X$$DBT= 

000000 

.$$$$.= 

000034 

002 


ABS. 
$H1GH 


000 
001 
002 
0 


(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,CON) 
(RU,I,LCL,REL,C0N) 


177776 
001364 
000504 
Errors  detected: 

***  Assembler  statistics 

Work  file  reads:  100 

Work   file  writes:  102 

Size  of  work  file:  25667  Words   (  101  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-llM/PLUS 

SYfsESCTU^Ts!v2?^31^34]SESCTLl1S/CR/-SP=SY:[l  J]RSXMCM.SML/ML,[130J10:nETLJB/ML,[130J0]RSXMCS/PA:1,C131  J0JV2 


<;c<;rTiii<;  roFiTFri  Rv  MArRn  nw  ?R-.iiiN-fiS  AT  19:54 
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Symbol  table 


FC.PUR= 

FC.RCE= 

FC.RCP= 

Fr.TIM= 

FC.XCP= 

FC.XME= 

FR$BCC= 

FR$CCF= 

FR$CDF= 

FR$DAO= 

FR$EXC= 

FR$FRM= 

FR$FTL= 

FR$OPNI= 

FR$RFD= 

FR$SBU= 

FR$SHO= 

FR$UBU= 

FR$UPT= 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EX1= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

fS.WLB= 

FS.XICL  = 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LV1  = 

G$tTPP= 


000022 
000002 
OOOOU 
000010 
000012 
000000 
000007 
000001 
000002 
000011 
000000 
000010 
000005 
OOOOOA 
000006 
000012 
000003 
000013 
00001 A 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
1 00000 
001000 
004000 

ouooo 

001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
OACOOO 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 


Gl;$TSS= 

G$$TTK= 

G$$WRD= 

IN.DAT= 

IN.ILS= 

I$$RAR= 

I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LA.ACIC= 

LA.CRS= 

LA.MSK= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.WND= 

LDSLP  = 

LF.DRD= 

LF.FRC^ 

LF.HFO= 

LF.HMF= 

LF.HSF= 

LF.IRD= 

LF.MMF= 

LF.MSF= 

LS.DLS= 

LS.FCC= 

LS.FCO= 

LS.FC1= 

LS.ILS= 

LS.MAK= 

LS.MNK= 

LS.RES= 

LS.RSV= 

LT.CCA= 

LT.DIR= 

LT.LCL= 

LT.LPL= 

LT.NOI= 

LT.RSU= 

LT.SLI= 

LT.TDA= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.CSTA 

L.CTR 

L.DCR 

L.FLAG 

L.ILSQ 

L.ILFT 

L.LDA 

L.LIA 


000000 

000000 

000000 

000400 

000001 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

000000 

000004 

000001 

000010 

000040 

000020 

0P0002 

000200 

000100 

100000 

000004 

000001 

000002 

100000 

000020 

000040 

000360 

000300 

000020 

000010 

000001 

000002 

000040 

000200 

000004 

000100 

000000 

000000 

000001 

000000 

000037 

000074 

000100 

000014 

000052 

000066 

000032 

000034 


.LLA 
.LNG 
.LNO 
■  LPT 


L.LSA 


LSFD 

LSFI 

LTT 

MASQ 

MAST 

MASZ 

NIN 

NXN 

_.NXTH 

L.OPD 

L.OPDL 

L.REM 

L.RFC 

L.RLA 

L.RNO 

L.RTQ 

L.RTYD 

L.RTYJ 

L.SEC 

L.SEGZ 

L.STA 

L.TC 

L.TIC 
TJPD 
TIPI 
TM;-!D 
TMR] 

Typ 

USA 
USTA 
_.VER 
L.WIND 
MA. CI  = 
MA. DA  = 
MA. a  = 
MC.CC  = 
MC.CI  = 
MC.DC  = 
MC.DI  = 
MC.NO  = 
MC.fiC  = 
MD.8M  = 
MD.EM  = 
MD.ILS= 
MD.IM  = 
MF.ACK= 
MF.CTL= 
MF.DAT= 
MO$SAC= 
MO$SPR= 
MO$SSV= 
MO$25A= 


000002 
000124 
000026 
000065 
000030 
000046 
000044 
000062 
000070 
000073 
000072 
000020 
000016 
000010 
000103 
000102 
000006 
000050 
000004 
000022 
000060 
000055 
000057 
000064 
000076 
000000 
000042 
000043 
000013 
000012 
000054 
000056 
000001 
000024 
000036 
000015 
000040 
000040 
000000 
000020 
000040 
000020 
000100 
000060 
000000 
000140 
000040 
000100 
000040 
000020 
000004 
000010 
000000 
000016 
000012 
000014 
000006 


M0$25P= 

MO$25S= 

M0$29S= 

M$HIGH= 

M$$CRB= 

H$$CRX= 

M$$FCS= 

M$$MGE= 

M$$MUP= 

M$$NET= 

M$$0VR= 

M$3100= 

H$3101= 

M$3102= 

M$3103= 

NC.FM0= 

NC.FM1= 

NC.FM2= 

NF$BLK= 

NF$DM0= 

NF$M0U= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$T1M= 

NS$D0N= 

NS$SDI= 

NS$WDC= 

N$ACQ 

NSACTL 

N$C1R 

N$DLA 

N$DLY 

NSELEN 

N$ENC 

NSERRC 

N$FLG 

N$FNC 

NSGENQ 

N$GTM 

NSHIGH 

N$LLT 

NSLLTM 

N$LVC 

NSMBXQ 

NSPLLT 

NSSLA 

NSSNOD 

N$TIM 

N$VCB 

N$$ACC= 

N$$EVL= 

N$$LDV= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 


000002 
000004 
000010 
000003 
000124 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000002 
000003 
000000 
000001 
000002 
000100 
000010 
000040 
000002 
000020 
000004 
000200 
000000 
000002 
000004 
000000 
000032 
000034 
000020 
000014 
000054 
000042 
000022 
000005 
000006 
000052 
000015 
000033 
000026 
000024 
000036 
000050 
000030 
000016 
000012 
000004 
000010 
000001 
000001 
000001 
000001 
000010 
000001 
000001 


N$$SES= 
OP$INI= 
OP$TER= 
PH$HDE= 
PH$LOC= 
PH$MTS= 
PH$UMP= 
PH$WCS= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
RE$ADC= 
RE$ADF= 
RE$ADR= 
RE$BLK= 
RE$CAF= 
RE$DAT= 
RE$ORP= 
RE$LDT= 
RE$LSN= 
RE$NHL= 
RE$OPE= 
RE$OPR= 
RE$RCV= 
RE$SED= 
RE$SKU= 
RE$STA= 
RE$SUM= 
RE$SYN= 
RE$TME= 
RE$TMO= 
RE$TMR= 
RE$UPT= 
RE$URE= 
RE$VER= 
RE$VRQ= 
RT$INI= 
RT$OFF= 
RT$ON  = 
R$$OER= 
R$$K11= 
R$$SND= 
R$$11M= 
R$$11S= 
SC$OFF= 
SC$ON  = 
SC$RST= 
SC$SHU= 
ST$CC  = 
ST$CIR= 
ST$CIS= 
ST$DAT= 
ST$DIP= 
SnPND= 
S\/$DUM= 
SV$LOA= 
S$$WRG= 


000001 
000000 
000001 
000004 
000002 
000003 
000000 
000001 
000000 
000000 
000010 
000004 
000017 
000007 
000010 
000014 
000001 
000016 
000013 
000012 
000001 
000004 
000000 
000001 
00001 1 
000006 
000002 
000003 
000000 
000021 
000000 
000020 
000002 
000003 
000005 
000015 
000002 
000001 
000000 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000003 
000002 
000004 
000006 
000002 
000010 
000012 
000014 
000001 
000000 
000000 
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SESDAT    -    Session   control 
Local   data 
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local  MACRO  V05.03b  Friday  28-Jun-85  19:54  Page  7-1 


ins 

000054 

044 

110 

117 

HOST.-: 

.ASCII 

/SHOST  / 

000057 

123 

124 

040 

in«s 

000062 

044 

114 

117 

LOCAL:: 

.ASCII 

/SLOCAL/ 

000065 

103 

101 

114 

'  eserved  node  name  to  host  system 
Reserved  node  name  to  locat  system 


LiAC:  mu 
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SESDIS  -  Session  control  di'scon 
D'sconnect/abort  QIO  processing 

83 
8A 
85 
86 
87 


89 

90 

91 

92 

93 

9A 

95 

96 

97 

98  000000 

99 
100 
101 

102  000000 

103  000004 

104  000010 

105  000012 
106 

107  000016 
108 

109  000024 

110  000030 

111  000034 

112  000040 

113  000044 
114 

115  000050 

116  000054 
117 

118  000056 

119  000062 
120 

121  000072 

122 

123 


F  K 
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.SBTTL  Disconnect/abort  QIO  processing 

**-DSC-Disconnect  QIO  processing 
**-ABT-Abort  QIO  processing 

This  routine  processes  all  requests  for  disconnecting  a  logical  link, 
the  disconnect  request  will  be  delayed  until  all  pending  transmits 
have  completed. 

R1  =  Address  of  task's  header 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  window  block 

R5  =  Address  of  database  descriptor 


Inputs 


005067     OOOOOOG 
005764     000016 
001405 


012767  000011 

010364  000010 

116400  000003 

016403  000012 


DSC: 

OOOOOOG  AST: 
10$: 


004167     OOOOOOG 
OOOOOOG 

016403     000004 


.PSECT 

.ENABL 

CLR 
TST 
BEQ 
CALLR 

MOV 

MOV 

CALL 

MOVB 

MOV 

CALL 

JSR 
.WORD 

MOV 

CALLE 

CALLR 
.DSABL 


LS8 

SREASN 
W.SNDQ(R4) 
10$ 
lOREDO 

#ER$A8T,$REASN 

R3,W.TMP(R4) 

FLSHIO 

W.LUN(R4),R0 

W.M80X(R4),R3 

FLSHMB 

R1,CPY0PT 
I.PRM 

W.LLT(R4),R3 
ACCLLT 

SNDDIS 

LS6 


Set  reason  code  to  synchronous  disconnect  by  user 

Any  transmits  pending? 

If  EG,  no  . . .  continue  processing 

Re-queue  I/O  packet  for  later  processing 

Set  reason  code  to  user  abort 

Save  address  of  disconnect  I/O  packet 
Flush  away  pending  I/O  requests 
Get  LUN  for  this  link 
Get  address  of  mailbox 
Flush  events  from  mailbox 

Copy  optional  data  to  internal  buffer 


Gt  physical  address  of  LLT 
Ga.n  access  to  the  LLT 

Disconnect  the  link 


G  U 


L 


SESDMO  -  Session  control   dismou  MACRO  V05.03b 
Symbol    table 
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MOtSAC= 

000016 

NS$SDI= 

000002 

NSLLTM 

000024 

RE$ADR= 

000007 

SC$ON  = 

000000 

MOSSPR= 

000012 

NS$WDC= 

OOOOOA 

N$LVC 

000036 

RE$BLK= 

000010 

SC$RST= 

000003 

MO$SSV= 

OOOOU 

NT$AKD= 

000020 

N$nBXO 

000050 

RE$CAF= 

09251^ 

SC$SHU= 

000002 

MO$25A= 

000006 

NT$AKI= 

000022 

NSPLLT 

000030 

RE$DAT= 

000001 

ST$CC  = 

000004 

MO$25P= 

000002 

NT$CC  = 

000016 

NSSLA 

000016 

RE$DRP= 

000016 

ST$CIR= 

82899^ 

MO$25S= 

00000'!, 

NT$C0N= 

000000 

NSSNOD 

000012 

RE$LDT= 

5S9S]^ 

ST$CIS= 

000002 

M0$29S= 

000010 

NT$CTL= 

000000 

NSTIM 

000004 

RE$LSN= 

000012 

sr$DAT= 

000010 

*I$HIGH= 

000003 

NT$DAT= 

00000? 

N$VCB 

000010 

RE$NML= 

000001 

ST$DIP= 

000012 

M$$CRB= 

0001 2^ 

NTSDC  = 

000012 

N$$ACC= 

000001 

RE$OPE= 

000004 

ST$PND= 

000014 

M$$CRX= 

000000 

NT$DIS= 

oooou 

N$$ACK= 

000011 

RE$OPR= 

000000 

SV$DUH= 

000001 

f1$$FCS= 

000000 

NT$DLS= 

000006 

N$$EVL= 

000001 

RE$RCV= 

000001 

SV$LOA= 

000000 

M$$MGE= 

000000 

NT$ILS= 

000010 

N$$HDR= 

000007 

RE$SED= 

000011 

S$$WRG= 

000000 

M$$MUP= 

000000 

NT$IMS= 

000002 

N$$LDV= 

000001 

RE$SKU=: 

000006 

S$$YSZ= 

007600 

M$$NET= 

000000 

NT$INT= 

OOOOOA 

N$$MLL= 

000001 

RE$STA= 

000002 

T$$KMG= 

000000 

M$$OVR= 

000000 

NT$RET= 

000032 

N$$MOV= 

000010 

RE$SUM= 

000003 

T$$HIN= 

000000 

M$3100= 

000000 

NT$ROU= 

000024 

N$$NCT= 

000001 

RE$SYN= 

000000 

US$CNF= 

000002 

M$3101= 

000001 

NT$RTR= 

000030 

N$$0VR= 

000022 

RE$TME= 

000021 

US$DIS= 

000006 

M$3102= 

000002 

NT$TSP= 

000026 

N$$PEM= 

000001 

RE$TMO= 

000000 

US$DON= 

000000 

MS3103= 

000003 

N$ACQ 

000000 

N$$SES= 

000001 

RE$TMR= 

000020 

US$DSC= 

000004 

NC.FMO= 

000000 

NSACTL 

000032 

OP$INI= 

000000 

RE$UPT= 

000002 

US$EAC= 

000012 

NC.FM1= 

000001 

NSCIR 

000034 

0P$TER= 

000001 

RE$URE= 

000003 

US$WDS= 

000010 

NC.FM2= 

000002 

NSDLA 

000020 

PH$HDE= 

000004 

RE$VER= 

000005 

US.MDM= 

******  GX 

NF$BLK= 

000100 

NSDLY 

OOOOU 

PH$LOC= 

000002 

RE$VRQ= 

000015 

U.STS  = 

******  GX 

NF$DMO= 

000010 

NSELEN 

000054 

PH$MTS= 

000003 

RT$INI= 

000002 

V$$CTR= 

001000 

NF$MOU= 

000040 

N$ENC 

000042 

PH$UMP= 

000000 

RT$OFF= 

000001 

W0RD1  = 

000200 

NF$RST= 

000002 

NSERRC 

000022 

PH$WCS= 

000001 

RT$ON  = 

000000 

W0RD2  = 

000000 

NF$SCN= 

000020 

N$FLG 

000005 

P$$P45= 

000000 

R$$DER= 

000000 

X$$DBT= 

000000 

NF$SHU= 

OOOOOA 

N$FNC 

000006 

P$$URD= 

000000 

R$$K11= 

000001 

$CALLX= 

******  GX 

NF$TIM= 

000200 

NSGENQ 

000052 

Q$$OPT= 

000010 

R$$SND= 

000000 

SDMQIO 

OOOOOORG 

NM$ARA= 

176000 

NSGTM 

000015 

REJECT^ 

******  GX 

R$$11M= 

000000 

$UCB  = 

******  GX 

NM$NOD= 

001777 

NSHIGH 

000033 

RE$ADC= 

000004 

R$$11S= 

000000 

$$SHFT= 

000001 

NS$DON= 

000000 

NSLLT 

000026 

RE$ADF= 

000017 

SC$OFF= 

000001 

.  ABS. 

000216    000   (RW,I,GBL,ABS,DVR) 
000076    001    (RW,I,LCL,REL,CON) 

$HIGH 

000126    002   (RW,I,LCL,REL,CON) 

E-rors 

detected:  0 

«♦*  Assembler  statistics 


Work   file  reads:  86 

Work   file  writes:  70 

Size  of  work  file:  20627  Words 

Size  of  core  pool:  17608  Words 

Ooerating  system:  RSX-11M/PLUS 


(  81  Pages) 
(  67  Pages) 


SE 
Se 


002 


SYfs£SDMO1l's!v2,C13i,134]SESDMOllS/CR/-SP=Sy:Cl,1]RSXMCM.SML/ML,ri30,110]I^ETLIB/ML,[130,1O]RSXMCS/PA:l,[131,10]V2,  SESDMO 
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Session  control  4CP  idle  loop 


155 

156  000134 

017700 

OOOOOOG       60$: 

MOV 

aTKTCB,RO 

157  000140 

062700 

OOOOOOG 

ADD 

#T.fiCVL,RO 

158  000144 

CALL 

aORMVF 

159  000150 

160 

161  000152 

103447 

BCS 

90$ 

152765 

000200  000005 

BISB 

#NF$TIM,N$FLG(R5); 

162  000160 

010103 

MOV 

R1,R3 

163  000162 

164 

165  000166 

010367 

OOOOOOG 

MOV 

R3,$I0PKT         ;; 

016302 

OOOOOOG 

MOV 

I.rC8(R3),R2 

166  000172 

016202 

OOOOOOG 

MOV 

T.PC6(R2),R2 

167  000176 

016201 

OOOOOOG 

MOV 

P.HDR(R2),R1    ;; 

168 

169 

.IF  DF 

X$$HDR 

170 

171 

bn: 

70$ 

172 

1AP 

P.REL(R2) 

173 

MOV 

#1 40000. R1 

174 

70$: 

MOV 

aKSAR5,iHDRMP   ;; 

175 

176 

177 

178  000202 

.ENDC 

116302 

OOOOOOG 

M0V8 

I.FCN(R3),R2 

179  000206 

006202 

ASR 

R2 

180  000210 

006202 

ASR 

R2 

181  000212 

042702 

177761 

BK 

#*C<16>,R2     ;; 

182  000216 

116300 

000001 G 

M0V8 

I.FCNt1(R3),R0  ;; 

183  000222 

162700 

000010 

S')8 

#10, RO 

184  000225 

185 

186  000230 

187 

188  000234 

002402 

BLI 

80$ 

162700 

000023 

SUB 

#23,fi0 

006300 

80$: 

ASL 

RO 

189  000236 

017304 

OCOuOOG 

MOV 

ai.LN2(R3),R4   ;; 

190  000242 

042704 

000001 

BIC 

#1,R4 

191  000246 

RECMAP 

192  000254 

193 

194  000260 

CALL 

aQIODSP(RO)     ;• 

132765 

000100  000005 

BITS 

#NF$BLK,N$FLG{R5) 

195  000266 

196 

197  000270 

001671 

BEQ 

30$ 

132765 

000020  000005  90$: 

BITS 

*NF$SCN,N$FLG(R5) 

198  000276 

001260 

BNE 

20$ 

199 

200  000300 

RECMAP 

'   ^ 

201  000306 

CALL 

AUXISK 

202 

; ; 

203 

204 
205 
206 

.IF  DF 

N$$EXT 

MOV 

N$M8XQ(R5),R0 

207 

BIS 

N$GENQ(R5),R0 

208 

BISB 

N$ACrL(R5),R0   ;; 

209 

210 

BNE 
BITS 

95$           ;  ; 

*NF$DM0,N$FLG(R5) 

211 

BNE 

95$ 

Point  to  receive  listhead 

Dequeue  an  I/O  packet 
If  CS,  none  present 

;  Show  we  still  need  timer  support 
Copy  I/O  packet  address 
Save  I/O  packet  address  for  completions 

Get  tasks  TCB  address 

then  PCS  address  for  window  0 
Get  address  of  task  header 


If  NE,  header  is  in  primary  pool 
Map  to  the  task  header 
Set  up  virtual  address  of  task  header 
Save  neader  mapping 


Get  I/O  subfunction  code 
Form  word  index 
for  dispatch 
Remove  unwanted  bits 
Get  the  I/O  function  code 
Check  for  codes  6  and  7  (DM0,  CLN) 
If  LT,  ok 

Convert  to  ACP  function  code  set 

Form  word  index 

Get  address  of  window  block 

or  mailbox 
Recover  high  APR  mapping 
Dispatch  to  processing  routine 

;;  Is  I/O  packet  dequeuing  blocked? 
If  EQ,  no  ...  try  for  next  CCB 


If  NE,  force  extra  scan  of  general  delivery  queue 

Recover  high  APR  mapping 

Check  if  tFlere  any  general  task  requests 

to  be  serviced 


If  there  are  any  mailboxes 

general  delivery  queue  entries 

or  active  logical  links. 
Don't  exit  yet 

Normal  processing  if  network  marked  for  dismount 


ftJL6^ 
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AAAAAA 

XX      XX 

MM 

MM 

DDDDDDDD 

CCCCCCCC 

AAAAAA 

XX      XX 

MM 

MM 

DDDDDDDD 

CCCCCCCC 

AA      AA 

XX      XX 

MMMC 

MMMM 

DD 

DU 

AA      AA 

XX      XX 

MMMI* 

MMMM 

DD 

DD 

AA      AA 

XX   XX 

MM 

»IM  MM 

OD 

DD 

AA      AA 

XX   XX 

MM 

*1M  MM 

DD 

DD 

AA      AA 

XX 

MM 

MM 

DD 

DD 

A4      AA 

XX 

MM 

MM 

DD 

DD 

AMAAAAAAAA 

XX   XX 

MM 

MM 

DD 

DD 

AAAAAAAAAA 

XX   XX 

MM 

MM 

DD 

DD 

AA      AA 

aX      XX 

MM 

MM 

DD 

DD 

AA      AA 

XX      XX 

MM 

MM 

DD 

DD 

AA      AA 

XX      XX 

MM 

MM 

DDDDDDDD 

CCCCCCCC 

AA      AA 

XX      XX 

MM 

MM 

DDDDDDDD 

CCCCCCCC 

SSSSSS5S 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

J 

ss 

T 

ss 

X 

ss 

SS5SSS 

SSSSSS 

SS 

SS 

ss 

ss 

.LLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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AXMDt  -  AUX  MODEM  CONTROLLER 
ST.WRG  -  WAIT  FOR  RING  DETECT 


379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
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.SSTTL  ST.WRG  -  WAIT  FOR  RING  DETECT 

*-.WRNG-WAIT  FOR  RING  DETECT 

WAIT  UNTIL  THE  DEVICE  HAS  DETECTED  RING  TONE 

INPUTS: 

R2  -  POINTER  TO  SrSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


000446  132765  000004 

000454  001410 

000456  012703  000010 

000462  112702  000000 

000466  012701  011000 

000472 

000476 


000004 


.WRNG: 

SITS 

#MC.RNG,M.CSV(R5) 

BEQ 

20$ 

10$: 

MOV 

#CS.RNG,R3 

MOVB 

#ST.IDL,R2 

MOV 

#FS.RNG,R1 

CALLR 

$SCHPR 

20$: 

RETURN 

;  HAS  RING  BEEN  DETECTED? 
NO  ...  CONTINUE  WAITING 
SET  UP  COMPLETION  STATUS 
NEW  NEXT  STATE 
SUB-FUNCTION  TO  BE  USED 
AND  SCHEDULE  OLC  PROCESS 
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Symbol  table 
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ST.CER 

ST. DDL 

ST.IDL 

ST.WCN 

ST.WRG 

S$SWRG= 

S$tYSZ= 

S.COST 

S.FLG 

S.LEN 

S.MMST 

S.OUNR 

TM.ACT= 


OOOOU 
000016 
000000 
OOOOOA 
000002 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000002 


TM.CON= 
TM.DIS= 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
ZF.COU= 
ZF.DDM: 
ZF.DIA= 
ZF.DLC= 
ZF.DVP= 
ZF.INI: 


000002 
000002 
000000 
000000 
001000 
000000 
001000 
000001 
004000 
000002 
100000 
040000 


ZF.KHX= 

000020 

ZS.BSY= 

140000 

$PABO 

000216RG 

ZF.LLC= 

000004 

Z.AVL 

OOOOU 

SSCHPR 

001100RG 

ZF.LMC= 

000100 

Z.DAT 

000016 

$SCHP2 

001106RG 

ZF.MAN= 

020000 

Z.DSP 

000000 

.ACTD 

000720R 

ZF.MFL= 

000010 

Z.FLG 

000010 

.ACTV 

000642R 

ZF.MTM= 

000400 

Z.LEN  = 

000016 

.COND 

000554R 

ZF.MUX= 

000040 

Z.LLN 

000006 

.CONE 

001006R 

ZF.PSE= 

002000 

Z.MAP 

000020 

.DISD 

001040R 

ZF.SLI= 

010000 

Z.NAil 

000004 

.PABO 

001022R 

ZF.TIM=: 

000200 

Z.PCB 

000012 

.WCON 

000500R 

ZF.X3P= 

000000 

Z.SCH 

000007 

.WRNG 

000446R 

ZS.ASN= 

100000 

SMDCIN 

000244RG 

.$$$$.= 

000034 

.  ABS.   177776 
001142 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


*♦*  Assembler  statistics 


Vork  file  reads: 
Work  f 1 le  writes: 
Size  of  work  file: 
Size  of   core  pool 


35 

39 

17700  Uords 

17608  Words 


(  70  Pages) 
t  67  Pages) 


Operating      system:    RSX-IIM/PLUS 

Elapsed   time:   00:00:23.38 
SY:A)'MDC.V2,[131,1341AXMDC/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,C131,10]AXMDC 
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Symbol  table 


A$$CHK= 

000000 

CP.PSI= 

000200 

A$$CPS= 

000000 

CP.XCF= 

000100 

A$$PR!= 

000000 

CP.2FR= 

000030 

A$$TRP= 

000000 

CS.ABO= 

0001  DO 

CB.CCB= 

000002 

CS.BRO= 

000002 

CB.DDM= 

000040 

CS.BUF= 

000200 

CB.DLC= 

000020 

CS.CES= 

000002 

CB.RDB= 

OOOOOA 

CS.CHN= 

000010 

CB.SDB= 

000010 

CS.CMP= 

000200 

Ce.SLI= 

000100 

CS.DCR= 

000400 

CB.XLB= 

000001 

CS.DEF= 

000004 

CC.LLC= 

000200 

CS.DEV= 

000002 

CE.ABO= 

100362 

CS.DIS= 

000040 

CE.DAO= 

100346 

CS.ENA= 

000001 

CE.OIS= 

100366 

CS.ENB= 

000020 

CE.ERR= 

100370 

CS.ERR= 

100000 

CE.ILN= 

100350 

CS.FTL= 

001000 

CE.LTO= 

100356 

CS.HCR^ 

000001 

CE.MOP= 

100372 

CS.HFE= 

002000 

CE.NTE= 

100361 

CS.LST= 

040000 

CE.RTE= 

100376 

CS.MTL= 

004000 

CE.SRC= 

10036A 

CS.RNG= 

000010 

CE.STP= 

100352 

CS.ROV= 

000004 

CE.TME= 

100354 

CS.RSN= 

010000 

CE.TMO= 

100374 

CS.SHU= 

000001 

CE.UNS= 

100344 

CS.SID= 

000002 

CF.CHN= 

000001 

CS.STR= 

000004 

CF.DDM= 

000002 

CS.SUC= 

000001 

CF.DYN= 

000004 

CS.TMO^ 

020000 

CF.EIS= 

0000 10 

CS.XUR= 

000004 

CF.EOM= 

000004 

CXOPT  = 

*»♦♦**  GX 

CF.FR<= 

100000 

C$$CKP= 

000000 

CF.HDR= 

000020 

C$$0RE= 

000400 

CF.LB  = 

100000 

C$$RSH= 

177564 

CF.LIN= 

000002 

C.ADD 

000034 

CF.LOG= 

000020 

C.BID 

000003 

CF.MDM= 

000001 

C.BUF 

000014 

CF.SOM= 

000010 

C.BUFl 

000014 

CF.SYN= 

000040 

C.8UF2 

000024 

CF.TIM= 

000400 

C.CNT 

000020 

CF.TRN= 

000100 

C.CNT1 

000020 

CMFRK  = 

♦»♦*•♦  GX 

C.CNT2 

000030 

CM.CIR= 

000002 

C.FLG 

000022 

CM.FMT= 

100000 

C.FLGl 

000022 

CM.HRD= 

000002 

C.FLG2 

000032 

CM.LIN= 

000000 

C.FNC 

000010 

CM.LOO= 

000001 

C.LIN 

000006 

CM.XLO= 

000004 

C.LNK 

000000 

CP.DCF= 

000040 

C.MOD 

000011 

CP.HDL= 

000007 

C.NSP 

000004 

CP.es  = 

177400 

C.PRO 

000042 

.  ABS. 

177776    000 

(RW,I,GBL,ABS,OVR) 

000244    001 

(RW,I,LCL,REL,CON) 

Errors 

detected:  0 

Page  6-3 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

c.xrc 

C.X25 

D$$BUG= 

D$$]SK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.K1L= 

FC.MAN^ 

FC.MLD= 

FC.PCT= 

FC.PUR= 

FC.RCE= 

FC.RCP= 

FC.TJM= 

FC.XCP= 

FC.XME= 

FS.AST= 

FS.CJB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB- 

FS.EXI= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.K1L= 

FS.LCL= 

FS.LTM= 

F5.MNT= 

FS.HSN= 

FS.REA^ 

F5.RET= 

FS.REZ= 

FS.RLB^ 
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000002 
000007 
000012 
177776 
000004 
000035 
000044 
000040 
000034 
000042 
000037 
000036 
177514 
000000 
000001 
000000 
000000 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 


FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM^ 
FS.WLe= 
FS.XKL= 
FS.XOF= 
FS.X0N= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$URD= 
INTCT  = 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  ^ 
L$$ASG= 
L$$DRV= 
L$$P11= 
LS$11R= 
H$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
PDDSP  = 
PDSPL  = 


011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
******  GX 

000000 

ooocoo 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

******  GX 


PDVTA 

PR7 

PS 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

STDLC  = 

S$$URG= 

S$$YSZ= 

TKPS  = 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$OBT= 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KHX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM- 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSYr 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$FRKHD= 

SSQSRV 

.$$$$.= 


r  ******  GX 

=  ******  GX 
=  ******  GX 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

******  GX 

000000 

000000 

001000 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

******  GX 

OOOOOORG 

000034 
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SDEACX  -  DeallQcate  core  buffer  in  extended  pool 
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243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266  000150 

267 

268 

269 

270 

271 

272 

273  000150 

032700  000001 

274  000154 

001002 

275  000156 

276  000162 

277  000166 

010446 

278  000170 

010546 

279  000172 

010005 

280  000174 

010046 

281  000176 

282  000202 

012604 

283  000204 

284  000210 

012703  000000' 

285  000214 

061301 

286  000216 

042301 

287  000220 

001476 

288  000222 

017713  OOOOOOG 

289  000226 

005746 

290 

291  000230 

010316 

292  000232 

010346 

293  000234 

294  000240 

012602 

295  000242 

011203 

296  000244 

001402 

297  000246 

020503 

298  000250 

105367 

.sbttl  SDEACX  -  Deallocate  core  buffer  in  extended  pool 

♦♦-SDEACX-Deallocate  core  buffer  in  extended  pool 

Thi's  routine  is  called  to  deallocate  a  core  buffer  in  extended  pool, 
the  block  is  inserted  into  the  free  block  chain  by  core  address.  If 
an  adjacent  block  is  currently  free,  then  the  two  blocks  are  merged 
and  inserted  in  the  free  block  chain. 


Inputs: 


RO^address  of  the  core  buffer  to  be  deallocated. 
R1=size  oT  the  core  buffer  to  deallocate  in  bytes. 

Outputs: 

The  core  block  is  merged  into  the  free  core  chain  by  core 
address  and  is  merged  if  necessary  with  adjacent  blocks. 

Registers: 

R2,  R3  are  modified 

SDEACX:: 


5$! 


10$: 


.IF  NDF 

M$$MGE 

CALLR 

aDEACB 

.IFF 

BIT 

#1 ,  RO 

BNE 

5$ 

CALLR 

aDEACB 

SAVMAP 

MOV 

R4,-(5P) 

MOV 

R5,-(SP) 

MOV 

R0,R5 

MOV 

RO,-(SP) 

CALL 

aCEACC 

MOV 

(SP)+,R4 

SAVMAP 

MOV 

#XAVLL-2,R3 

ADD 

(R3),R1 

SIC 

(R3)'-,R1 

BEQ 

1001          ; 

i'lOV 

aXAVL,(R3) 

rsT 

-(SP) 

MOV 

R3,(SP) 

MOV 

R3,-(SP) 

CALL 

aCEACC 

MOV 

(SP)t,R2 

MOV 

(R2),R3 

BEO 

20$ 

CMP 

R5.R3 

loi 

BHIS 

deallocate  to  RSX  pool  in  umapped  systems 


is  the  block  in  extended  pool  ? 
if  ne,  yes 

else,  deallocate  RSX  core  block 
saue  current  APR  6  mapping 
save  some  registers 

copy  unmapped  address 

set  up  address  for  $CEACC 

map  extended  address 

copy  mapped  address 

saue  block  mapping 

point  to  allocation  mask  word 

round  to  next  boundary 

clear  excess 

if  eq,  nothing  to  return 

copy  CE<  allocation  listhead 

reserve  a  word  on  the  stack 

save  unnapped  address  in  resef-ved  word 

copy  address  of  current  block 

map  address  of  block 

save  mafped  address 

get  address  of  next  block 

1  f  eq  end  of  chain 

block  go  before  here? 

if  his  no 
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Table  ot  contents 

Macro  definitions 
ONCE-PER-SECOND  TIMER  SERVICE 
PERFORM  ONCE-PER-SECOND  OPERATIONS 
100  MSEC  TIMER  SERVICE 
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000530 

000532  ni6A64  000006  000004 

0005AO  0167CO  OOOOOOG 
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458 
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460 
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470 
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473 
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481 
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486 
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488 
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490 
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.SBTTL   START  SHORT  TIMER 

•*-$STSTM-START  SHORT  TIMER. 

START  A  SHORT  TIMER. 

INPUTS: 

R4  -  POINTER  TO  SHORT  TIMER  ENTRV 


isTSTM::SAVRG 
MOV 
MOV 


<R0>  ;  GET  A  FREE  REGISTER 

X.RTMR(R4),X.TMR(R4) 


10$: 


000544  011046 
000546 

000552  005726 

000554  001014 

000556 


000570 
000574 

000606 
OOOolO 


20$: 

30$: 
40$: 


000001 


T100Q,R0 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 


BIT 

BEQ 

BITB 

BEQ 

MOV 

.ENDC 
.ENDC 

MOV 
CALL 
TST 
BNE 


#F2.MP,SFMSK2 

10$ 

#XF.DLC!XF.DDM, 

10$ 

MIOOQ.RO 


(RO),-(SP) 
STALT 
(SP)  + 
40$ 


GET  ADDRESS  OF  GENERAL  SHORT  TIMER  LISTHEAD 


;;  IS  THIS  A  MULTI-PROCESSOR? 

;;  BR  IF  NO 

FLA6(R4) 
IF  EQ,  USE  GENERAL  TIMER 
USE  PROCESSOR  DEPENDANT  LISTHEAD 


SAVE  CURRENT  QUEUE  CONTENTS 
ADD  NEW  ENTRY  TO  THE  QUEUE 
WAS  THE  TIMER  PREVIOUSLY  ACTIVE? 
IF  NE,  YES 


SAVRG   <R1,R2,R3,R4,R5>;  SAVE  ALL  REGISTERS 

.IF  DF  RSSMPL 
.IF  NDF  R$$PRO 


BIT 

BEQ 

BITB 

BEQ 

MOV 

MOV 

CALL 

BR 

.ENDC 
.ENDC 

CALL 
RESRG 

RESRG 
RETURN 

.END 


#F2.MP,aFMSK2   ;  IS  THIS  A  MULTI-PROCESSOR? 

20$  ;  BR  IF  NO 

#XF.DLC!XF.DDM,X.FLAG(R4) 

20$  ;  IF  EQ,  GENERAL  TIMER 

*MP100M,C.SUB{R0);  SET  UP  ADDRESS  OF  PROCESSING  ROUTINE 


aTKl00,R2 

$SMPTM 

30$ 


$T100I        ; 
<R5,R4,R3,R2,R1>; 


GET  #  OF  CLOCK  TICKS  IN  100  MSEC 
START  PROCESSOR  DEPENDANT 
ENTER  COMMON  CODE 


INSERT  TIMER  ENTRY  IN  CLOCK  QUEUE 
RESTORE  REGISTTERS 


<R0> 
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169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18^. 

185 

186  000300 

187  00030A 

103422 

188 

189  000306 

004167  OOOOOOG 

190  000312 

000004G 

191 

192  0003U 

193  000320 

103411 

194  000322 

016702  OOOOOOG 

195  000326 

016362  000076 

196  000334 

197  000340 

000241 

198  000342 

199 

200  000344 

201 

202  000352 
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.SBTTL  Connect  accept  010  processing 

**-ACC-Connect  accept  request  processing 

This  routine  processes  outgoing  connect  accept  requests. 

Inputs: 

R1  =  Address  of  the  task's  header 

R2  =  I/O  subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  the  window  block 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Connection  successfully  accepted 
'C  Set   -  Accept  failed 


000006 


Check  for  valid  temporary  link  address 
If  CS,  invalid 

Copy  user  optional  data 


ACC:    CALL  TLACHK 

BCS  100$ 

JSR  R1,CPY0PT 

.WORD  I.PRM+4 

CALL  SNDACC         ;  Accept  the  connection 

BCS  10$  ;  If  CS,  resource  allocation  failure 

MOV  $W8LK,R2       ;  Copy  logical  link  segment  size  to  window  block 

MOV  L.SEGZ(R3),W.SEGZ(R2) 

CALL  lOSUC         ;  Complete  the  request  successfully 

CLC  ;  Indicate  success 

RETURN 

10$:    $IERRC  IE.RSU8377     ;  Return  resource  error 

100$:   $IERRC  IE.8AD&377     ;  Invalid  temporary  link  address 
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14- 

^00 

20- 

^85 

H     9 


SESCTL   -   Session  control   contro  MACRO  V05.03b   Friday  28-Jun-85   19:53     Page   5 


[ 


G  10 

SESCTL  -  Session  control  contro  MACRO  V05.03b  Friday  ?8-Jun-85  19:53  Page  13 
Connect  request  network  data  processing 
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470 
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.SBTTL  Connect  request  network  data  processing 

»*-C0N-Connect  request  network  data  processing 
**-VFY-Verif ication  request  network  data  processing 


Convert  the  pending  connect  block  into  the  format  expected  by  the 
user  task  and  copy  it  to  the  user's  buffer. 


Inputs: 

R1  =  Address  of  CCB 

R3  =  Address  of  I/O  packet 

R4  =  Virtual  address  of  user's  buffer 

User's  buffer  is  iiapped 
R5  =  Address  of  database  descriptor 
2(SP)  -  *  of  bytes  to  be  transferred 
4(SP)  -  High  byte:  Data  type  code 

Low  byte:   1/0  status  return  code 
6(SP)  -  Address  of  I/O  packet 

Registers  modified: 
RO,  R2,  R4 


000446  .PSECT 

000446  CON: 

000446  01660U  000002         VFY:    MOV 

000452  001413  BED 

000454  SAVRG 

000460  016102  000016  MOV 

000464  005001  CLR 

000466  016303  OOOOOOG  MOV 

000472  CALL 

000476  RESRG 

000502  116166  000032  000003  10$:    MOVB 
000510  RETURN 


2(SP),R0 
10$ 

<R1,R3> 

C.8UFt2(R1),R2 

R1 

I.PRM(R3),R3 

aSLXIO 

<fi3,R1> 


Get  #  of  byteo  to  transfer 
If  EQ,  none 

Save  some  registers 

Get  source  virtual  address 

No  addressing  bias 

Get  destination  bias 

Copy  the  data 

Recover  registers 


C.FLG2(R1),3(SP);  Set  verification  status  in  high  byte 
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YMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ABO 

ABT 

ACCLLT 

ADDGNQ 

ADOMAl 

BADERR 

BLXIO 

CLS 

CLSDON 

CLSTA 

CMPINT 

CM. CON 

CON 

CTLDSP 

ex. SMC 

CX.UNL 

C.BUF 

C.CNT 

C.CNT2 

C.FLG2 

C.FNC 

C.MOD 

C.NSP 

C.STS 

DEACB 

DECPT 

DISCMP 

DSC 

DSLNAM 

DSLNUM 

DSSEG 

ERSABO 

ERSACC 

ERSMLB 

ERSUOB 

EVT 

FLSHIO 

FLSHMB 

F NOMA  I 

FNDMBX 

GLN 

GND 

H.LUN 

H.NLUN 

H.NML 

IE. ABO 

IE. BAD 

IE. INS 

lE.NDA 

lE.RSU 

lE.SPC 


GX 
GX 
GX 

R 
GX 

R 

R 

R 
GX 

R 
R 


000540  R 
000550  R 
*** t ** 
****** 
****** 
001224 

000000 
000175 
000266 

****** 

000200 
000446 
000004 
000010 
000004 
000014 

000020 
000030 
000032 
000010 
000011 
000004 
000012 
****** 
****** 
****** 
000550  R 
000006 
000014 
000036 
000045 
000042 
000006 
:  000004 
000576  R 

:  ******   GX 
:  ******    GX 

000244  R 

:  ******    GX 

001232  R 
000302  R 

:  ******    GX 

:  ******   GX 

:  ******   GX 

:  ****** 

:  ****** 


GX 
GX 
GX 


****** 
****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

11-389 
11-388 
9-252 
18-688 
18-691 
19-723 
13-481 
7-90 
9-195 
9-235 
14-513 
8-137 
11-385 
7-83 
18-683 
10-321 
13-478 
19-767 
11-353 
18-663 
13-484 
8-137 
10-321 
8-13C 
♦18-6£4 
9-282 
20-801 
15-549 
11-337 
20-802 
20-822 
20-817 
9-234 
19-745 
8-156 
19-766 
11-390 
9-225 
9-192 
11-345 
18-685 
7-102 
7-92 
9-206 
9-205 
»9-278 
9-228 
19-777 
18-695 
11-379 
18-645 
18-641 


#15-539 
#15-542 


#19-777 
17-602 
#9-187 
#9-258 
#9-289 

19-743 
#13-473 
#7-89 

11-365 
17-595 

*18-648 

*19-727 
8-144 

*ll-365 
15-539 


20-816 
#15-543 

20-818 


#15-573 


#12-418 

#20-799 
7-93 
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18-554 


19-738 


12-424 
17-500 


19-748 
10-318 
12-424 


19-744 
18-652 


19-760 
11-363 
12-4  39 


18-553 


12-422 
14-511 


18-550 


*18-583 
15-548 


18-551 


•19-743 
♦19-744 


19-734 


19-735 


7-Q4 


#11-346 


cccrTiin;      rpcsTPn  Rv      MAfRn     ntM   ?R-iliw-R5   AT    19;54 
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Symbol  table 


S$$YSZ= 

007600 

TSLLDC 

000045 

TSLTPS 

000020 

TSNVR 

955891 

TSFLAG 

000044 

TSLLDL 

000012 

TSNAPL 

000004 

TSRPRI 

000040 

TSLIF 

000013 

TSLLDO 

000012 

T$NFE 

000000 

T$SVC 

000034 

TtLIFL 

000013 

TSLLDS 

000012 

TSNLEN 

9S9219 

T$T5 

000030 

TSLIFO 

000013 

TSLLEN 

000046 

TSNNUL 

000002 

T$T6 

000032 

T$LIFS 

000013 

TSLOPR 

000002 

TSNOPL 

000006 

T$$KI*IG= 

000000 

T$LIN 

000000 

TSLTCL 

000024 

TSNRNI 

000042 

T$$MIN= 

000000 

TSLIPS 

000006 

TSLTIM 

000026 

TSNRPL 

000005 

US$CNF= 

000002 

TSLLD 

000012 

TSLTPR 

000014 

TSNRUL 

000007 

US$DIS= 

000006 

.  ABS. 

177776 
000242 

OCO 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

US$DON=  000000 

US$DSC=  000004 

US$EAC=  000012 

US$WDS=  000010 

V$$CTR=  001000 

X$$DBT=  000000 

SBYTE  =  ♦♦*»**  GX 

$$$HFT=  000001 

.$$$$.=  000034 


*»♦  Assembler  statistics 


Work  file  reads:  107 

Work   f i le  writes:  102 

Size  of  work  file:  26175  Words  (  103  Pages) 

Size  of  core  oool:  17608  Words  (  67  Pages) 

Operating  sys'-em:  RSX-11M/PLUS 


SYtsESCTRlTs!v2?n31  J34]SESCTR11S/CR/-SP=SY:C1  J]RSXMCM.SI*IL/ML,C130J10]NETLIB/ML,[130J0]RSXMCS/PA:1,[131  JO:^ 


cccrTDin;   rDCATcn  bv   M/irDn  nu  ?R-lliw-R'i  AT  1Q:S4 
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SESDAT   -   Session   control    local 
Local   buffers 

108 
109 

no 

111 
112 

in  000070 

1U  000070 

115  000076 

116  000077 

117  000100 

118  000100 

119  000122 

120  000123 

121  00012A 

122  000K6 

123  000170 
12A  000202 

125  00022A  000000 

126  000226 
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.SSTTL  Local  buffers 
I- 
Note  that  the  buffers  defined  below  must  remain  in  the  same  order. 


SCNBLK 
SDSNOD 
SDSDFM 
SDSOBJ 
SWORK : 
SDSDSC 
SSRDFM 
$SR08J 
$SRDSC 
SREQID 
SPASSW 
JACCNT 
SOPLNG 
SOPDAT 


.SLK8 
.BLKB 
.BLK8 

.BLKB 
.8LKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.WORD 
.BLKB 


0 

16. 


Buffer  for  current  outgoing  connect  request 

Destination  node  address 

Destination  descriptor  format 

Destination  object  type 

Workspace  area 

Destination  ^jrocess  descriptor 

Source  descriptor  format 

Source  object  type 

Source  process  descriptor 

Requestor  ID 

Password 

Accounting  info 

Optional  data  length 

Optional  data  buffer 


i/nc  n7k  cr  r 
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125 
126 
127 
128 
129 
130 
151 
132 
133 
13A 
135 
136 
137 
138 
139 
KO 
HI 
K2 
K3 
14A 
1A5 
K6 
K7 
H8 
K9 
150 
151 
152 
153 
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.SBTTL  Connect  reject  QIO  processing 

♦*-REJ-Connect  reject  QIO  processing 

This  routine  is  called  to  reject  an  incoming  connect  request. 

Inputs: 

R1  =  Address  ot  task's  header 

R3  =  Address  of  I/O  packet 

M   =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 


000076  010467  OOOOOOG 

000102 

000106  1034U 

000110  10536A  000010 

0001 U  004167  OOOOOOG 

000120  000004G 
000122 

0U0126  005001 
000130 

000134 

000140 

000001 


REJ: 


100$: 


MOV 

CALL 

BCS 

R4,$MAIBX 

TLACHK 

100$ 

DECS 
JSR 

.WORD 
CALL 

M.USE(R4) 
R1,CPY0PT 
I.PRMt4 
SAVOPT 

CLR 
CALL 

R1 
BRKLNK 

CALLR 

lOSUC 

$1ERRC 

1E.8AD8377 

.END 

Set  up  mailbox  address 

Check  for  valid  temporary  link  address 

If  CS,  inualid 

Reduce  count  of  active/pending  links 
Copy  optional  data  to  LLT 

and  save  it  in  the  LLT 

Reason  =  reject  by  user 
Break  the  logical  link 

Complete  the  I/O  request 

Invalid  temporary  link  address 


H  U 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


ACCLLT 

ACSDNT 

AC$X25 

AESCIR 

AESLIN 

AESMOD 

BYTES 

CLtASZ 

CLSDLL 

CLSECL 
CLlLDN 
CLSMAN 
CLSPAZ 
CLSPLH 
CLSPLL 
CLSPRT 
CLSROU 
CLSSES 
CLSSGE 
CLSSSE 
CLSTRN 


****** 
000002 
000001 
000003 
000001 
000004 
000300 
010500 
000500 

000300 
010400 
000000 
034100 
054000 
000600 
034200 
010000 
000200 
035000 
035100 
000400 


GX 


CL$XL2 

=  013700 

CL$XL3 

=  013600 

CL$X2S 

=  013500 

)L$AST 

=  000002 

)L$HLT 

=  000000 

)L$IST 

=  000001 

)L$MA1 

=  000004 

)L$OfF 

=  000001 

)L$ON 

=  000000 

3L$RUN 

=  000003 

3L$SHU 

=  000002 

3L$SYN 

=  0C0005 

DM0  T  A 

000062  R 

EF$ACT 

=  000001 

ERSNSL 

=  000013 

ERSNSR 

=  000003 

EVLSES 

-   ***»^  * 

EVSACF 

=  000201 

EVSADR 

=  000420 

EVSADU 

=  000417 

EVSAPL 

=  000400 

EVSARC 

^  000421 

EVSAUC 

=  000010 

EVSAUS 

=  000003 

EVSCDF 

=  000520 

EVSCO/ 

-  000011 

EVSDBR 

=  000302 

EVSGAS 

=  035101 

GX 


REFERENCES 

8-126 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#7-74 
#6-48 
#6-48 

6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 

6-48 

6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 

8-130 
#6-48 

8-129 

7-98 

7-74 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 


7-74 

6-48 
6-48 
6-48 
6-48 
6-'i8 
6-48 
6-48 


6-48 
6-48 
6-48 
6-48 
6-48 
6-48 


6-48 
6-48 


#8-141 
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SE 
Se 


#7-74 
6-48 


6-48 
6-48 
6-48 


6-48 
6-48 
6-48 
6-48 
6-48 
6-48 


7-74 
6-48 

6-48 
6-48 


6-48 
6-48 
6-48 


#7-74 
6-48 


6-48 


6-48 
6-48 
6-48 


7-74 
6-48 


7-74 
6-48 


6-48 


6-48 


6-48 
6-48 


6-48 
6-48 


6-48 
6-48 


6-48 
6-48 
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Session  control  ACP  idle  loop 


212 
215 
2U 
215 
216 
217 
218 
219 
220 
221 


951 ! 


MOV  $UCB,R5 

CLR  U.ACP(R5) 

MOV  aTKTC8,R5 

CALLR  aCREXT 


000312 


.ENDC 
CALLR 


aSTPCT 


Get  address  of  NS:  UC8 
Mark  ACP  inactive 
Get  address  of  my  TC8 
and  exit 


Stop  ACP  until  we  have  some  work  to  do 
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SCHEDULE  DLC  PROCESS 


7- 

1?9 

H- 

166 

9- 

1H4 

in- 

?■?■? 

11- 

r'SV 

V- 

^H4 

IV 

<1i 

K- 

VM 

IS- 

•!49 

16- 

4V' 

V- 

SO, 

IH- 

S,',' 

19- 

S6« 

?0- 

')90 

?}- 

610 

■??- 

6')() 

?^- 

6S1 

2A- 

t/i 

1   1 
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ST.UCN  -  WAIT  FOR  CONMECT  DETECT 


399 
AGO 
401 
402 
403 
404 
405 
406 
407 
408 
409 

410  000500 

411  000504 
412 

413  000506 

414  000512 

415  000514 

416  000522 

417  000524 

418  000532 

419  000540 

420  000542 


421 


000550 
422  000552 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
4^4 
435 
4  56 


032712  001000 
001041 

132715  000001 

001013 

132765  000001     000004 

001406 

112765  000002  000002 

112765  000006  000003 

132765  000002  000004 
001017 


.SBTTL  ST.WCN  -  WAIT  FOR  CONNECT  DETECT 

.UCON-UAIT  FOR  CONNECT  DETECT 

WAIT  UNTIL  CARRIER  (ASYNC)  OR  DATASET  READY  tSYNC)  HAS  BEEN  ASSERTED. 

INPUTS: 

R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


.UCON: 


BIT     #LF.LPB,(R2) 
BNE     CNCMP 
.IF  NDF  X$$D52 


10$: 
20$: 


BITS 

BNE 

BITB 

BEQ 

MOVE 

MOVB 

RETURN 

BITB 

BNE 

RETURN 

.IFF 


*MS.SYN,(R5) 

20$ 

#MC.CAR,M.CSV(R5) 

10$ 

#TM.C0N,M.TIM(R5) 

#ST.CDL,M.STT(R5) 

#MC.DSR,M.CSV(R5) 
CNCMP 


IS  THIS  LINE  IN  LOOPBACK? 
IF  NE,  YES 

IS  THIS  A  SYNC  LINE? 

YES  ...  CHECK  FOR  DATASET  READY 

NO  ...  IS  CARRIER  ASSERTED? 

NO  ...  KEEP  WAITING 

YES  ...  SET  UP  TIMEOUT  CELL 

SET  UP  NEW  STATE 

AND  RETURN 
SYNC  LINE. ..IS  DATASET  READY  ASSERTED? 
YES  ...  COMPLETE  THE  CONNECT 


;  Wait  until  Data  Set  Ready  has  been  asserted. 


10$: 


BITB 

BEQ 

BITB 

BNE 

H0V6 

MOVB 

RETURN 

.ENDC 


#MC.DSR,  M.CSV(R5) 

10$ 

#MS.SWT,  M.STS(R5) 

CNCMP 

#Sr.CDL,  M.STT(R5) 

*TM.CHK,  M.TIM(R5) 


If  Data  Set  Ready  is  asserted 
then 

If  the  modem  switches  Carrier 
then  goto  complete  the  connect, 
else  Set  state  to  connect  delay 
and  start  timer. 


AXMDC  -  AUX  MODEM  CONTROLLER 
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SYMBOL  CROSS  REFERENCE 


PAGE 
CREF 


H  3 

0^.00 


SYMBOL  VALUE 


REFERENCES 


CCBGT 

CE.ABO 

CE.DIS 

CNCMP 

CS.DIS 

CS.ENB 

CS.FTL 

CS.RNG 

CTLDSP 

C.FNC 

C.LIN 

C.STA 

DDAST 

DDCCP 

DDMSN 

DISC 

DSABLE 

ENABLE 

FS.DIS 

FS.ENB 

FS.RNG 

I$$AS 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDV 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 


=  »•»«♦»   GX 
-  100362 
:=  100366 

000610  R 
=  OOOOAO 
=  000020 
=  001000 
=  000010 

000060  R 

000010 

000006 

000007 
=  *♦*•*♦  GX 
i  ♦»*»♦♦  GX 
=  »«*«*♦  GX 

000756  R 

000134  R 

0001  K  R 
=  013000 
=  012000 
=  011000 

=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  000003 
=  000001 
=  000000 
=,  000004 
=  000001 
=  000002 
=  000002 
=  000017 
=  000360 
=  000006 
000015 


24 
11 
20 
15' 
23 
17 
20 
14 
7- 

*24 
7- 
7- 
20 
24 
13 
18 
7- 
7- 
23 
11 
7- 
5 

*5 

#5 

ff5-i 

#5-1 

Its- 

115-' 

#5- 

#5- 

#5 

#5 

#5 

#5 

#5 

#5-1 

#5-1 

#5-1 

#5-i 

#5- 

#5 

#5 

#5 

#5 

#5- 

#5 

#5 

#5 

#5 

#5 

#5 

#5 


-692 

-275 

-603 
411 
664 
513 
603 
392 

156 

-695 

150 

155 

-604 

-698 
361 
547 

163 

162 
666 

-277 

156 

63 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 


15-421 


#7-161 

*24-696 
*24-697 


19-584 
#10-236 
#9-194 

17-515 
14-394 
12-283 


15-410 


16-454 


#17-513 


#20-602 


21-627 


18-535 


AXMDC 
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SDEACX  -  Deallocate  core  buffer  in  extended  pool 


H  5 


299 

300  000252 

20$:    SAVMAP 

301  000256 

MAP 

4(SP) 

302  000264 

010314 

MOV 

R3,(R4) 

303  000266 

RESMAP 

304  000272 

010546 

MOV 

R5,-(SP) 

305  000274 

060116 

ADD 

R1,(SP) 

306  000276 

020326 

CMP 

R3,(SP)+ 

307  000300 

001016 

BNE 

30$ 

308  000302 

SAVMAP 

309  000306 

010346 

MOV 

R3,-(SP) 

310  000310 

CALL 

aCEACC 

311  000314 

012600 

MOV 

(SP)+,RO 

312  000316 

012046 

MOV 

(RO)+,-(SP) 

313  000320 

061001 

ADD 

(R0),R1 

6(sp5 

314  000322 

MAP 

315  000330 

012614 

MOV 

(SP)+,(R4) 

316  000332 

RESMAP 

317  000336 

30$: 

318  000336 

010522 

MOV 

R5.(R2)+ 
(R2),(SP) 

319  000340 

061216 

ADD 

320  000342 

020526 

CMP 

R5,(SP)+ 
40i 

321  000344 

001015 

BNE 

322  000346 

061201 

ADD 

(R2),R1 

323  000350 

SAVMAP 

324  000354 

MAP 

2(SP) 

325  000362 

011446 

MOV 

(R4),-(SP) 

326  000364 

MAP 

2(SP) 

327  000372 

012642 

MOV 

(SP)+,-(R2) 

328  000374 

012616 

MOV 

(SP)+,<SP) 

329  000376 

010204 

MOV 

R2,P4 

330  000400 

40$:    MAP 

(SP) 

331  000404 

010164  000002               MOV 

R1,2(R4) 

332  000410 

333 

334  000416 

016777  177366  OOOOOOG        MOV 

XAVLL,aXAVL 

005726 

100$:   TST 

(SP)  + 

335  000420 

012605 

MOV 

(SP)*,R5 

336  000422 

012604 

MOV 

(SP)t,R4 

337  000424 

RESMAP 

338  000430 

RETURN 

339 

340 

.ENOC 

save  carrent  mapping 

map  block  being  released 

assume  blocks  not  adjacent 

restore  mapping 

calculate  address  of  new  block 

equal  to  next  in  chain? 

i  f  ne  no 

else,  save  mapping 

copy  block  address 

map  block 

get  mapped  address 

save  link  word 

merge  two  blocks 

map  block  being  released 

move  link  word  to  block  released 

restore  mapping 

address  of  previous  block  is  on  top  of  stack 

assume  no  aglomeration 

calculate  address  of  next  block 

equal  to  block  being  released? 

i  T  ne  no 

merge  two  blocks 

save  current  mapping 

map  to  block  being  released 

save  link  word 

restore  mapping 

move  link  word  to  previous  block 

replace  block  mapping 

set  new  address  of  block 

map  to  block  released 

set  size  of  block  released 

update  CEX  copy  of  listhead 

clean  up  stack 
restore  registers 

restore  APR  6  mapping 
and  return 


AXSUB 

Cut    r  ikib' 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 


.TITLE   AXTJM  -  AUXILLIARY  PROCESS  TIMER  SUPPORT 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  UITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
HADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

CEX  TIMER  SERVICE  ROUTINES  (RESIDENT  IN  AUX) 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

2.00  22-OCT-80 

RE-WRITE  FOR  NEW  MULTI-PROCESSOR  TIMER  SUPPORT 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Symbol  table 


A$$CHK= 

000000 

I$$RDN= 

000000 

L.CVA 

177776 

R$$DER= 

000000 

XF.LLC= 

000004 

AS$CPS= 

000000 

K$$CNT= 

177546 

L.DDM 

000002 

R$$Kn  = 

000001 

X$$DBT= 

000000 

A$$PRI= 

000000 

K$$CSR= 

177546 

L.DDS 

000004 

R$$SND= 

000000 

X.FLAG 

000003 

A$$TRP= 

000000 

K$$LDC= 

000000 

L.DLC 

000003 

R$$11M= 

000000 

X.ID 

000002 

CLCINS 

0OO0A2R 

K$$TPS= 

000074 

L.DLM 

000006 

SCANST 

000300R 

X.LINK 

000000 

CLINS  = 

******  Gx 

LDSLP  = 

000000 

L.DLS 

000010 

SF.ACT= 

005299 

X.RTMR 

000006 

C$$CKP= 

000000 

LF.ACT= 

100000 

L.FLG 

000000 

SF.ENA= 

000100 

X.TMR 

000004 

C$$0RE= 

000400 

LF.BRO= 

000400 

L.KRBA 

000016 

SF.LPB= 

000004 

ZF.C0U= 

001000 

C$$RSH= 

17756A 

LF.BUT= 

000007 

L.LEN  = 

000022 

SF.MFL= 

000040 

ZF.DDM= 

000001 

C.AR5 

OOOOU 

LF.ENA= 

002000 

L.MPF 

000022 

SF.PAC=: 

000020 

ZF.DIA= 

004000 

CAST 

000012 

LF.LPB= 

001000 

L.NMST 

000020 

SF.REA= 

000010 

ZF.DLC= 

000002 

C.CSTP= 

000012 

LF.MOC= 

000100 

L.NSTA 

000014 

SF.SER= 

000001 

ZF.DVP= 

100000 

COST 

000016 

LF.MFL= 

004000 

L.OWNR 

000021 

SF.SVC= 

000002 

ZF.INI= 

040000 

C.EFN 

000003 

LF.MTP= 

000020 

L.UNT 

000013 

SF.UNL= 

000040 

ZF.KMX= 

000020 

C.LGTH= 

000020 

LF.PAC= 

000200 

M$$CRB= 

000124 

SLTMA  = 

******  GX 

ZF.LLC= 

000004 

C.LNtC 

000000 

LF.RDY= 

040000 

M$$CRX^ 

000000 

SLTNM  = 

»*»*»»  GX 

ZF.LHC= 

000100 

C.MRKT= 

000000 

LF.REA= 

010000 

M$$FCS= 

000000 

STALT 

000476R 

ZF.MAN= 

020000 

C.RQT 

000002 

LF.SER= 

000040 

H$$MGE= 

000000 

STDD1  = 

******  GX 

ZF.MFL= 

000010 

C.RSI 

000012 

LF.TIM= 

000010 

H$$NET= 

000000 

STDL1  = 

******  GX 

ZF.MTM:= 

000400 

C.SCHD= 

000002 

LF.UNL= 

020000 

M$$OVR= 

000000 

STMFC  = 

******  GX 

ZF.MUX= 

000040 

C.5RC 

OOOOU 

LF.X2P= 

000000 

N$$ACC= 

000001 

S$$URG= 

000000 

ZF.PSE= 

002000 

C.SSHT= 

OOOOOA 

LN.CL0= 

000000 

N$$8UF= 

000001 

S$$YSZ= 

007600 

ZF.SLI= 

010000 

C.SUB 

000012 

LN.DUM= 

000005 

N$$LDV= 

000001 

S.COST 

000001 

ZF.TIM= 

000200 

C.SyST= 

000006 

LN.LOA= 

000004 

N$$MCP= 

000001 

S.FL6 

000000 

ZF.X3P= 

000000 

C.SYTK= 

000010 

LN.L00= 

000003 

N$$MLL= 

000001 

S.LEN 

0JOO04 

ZS.ASN= 

100000 

C.TCB 

000004 

LN.OAU= 

000003 

N$$MOV= 

000010 

S.NMST 

000002 

ZS.BSY= 

140000 

C.TIM 

000006 

LN.0FF= 

000001 

N$$NCT= 

000001 

S . OWNR 

000003 

ZTIM2  = 

******  GX 

C.UIC 

000016 

Ln.ON  = 

000000 

N$$PEM= 

000001 

TIMFLG 

000054R 

Z.AVL 

000014 

DSPTM  = 

******  GX 

LN.00P= 

000004 

ONESEC 

000056fi 

TKPS  = 

******  GX 

Z.DAT 

000016 

D$$BUG= 

1775U 

LN.OPE= 

000001 

PDDSP  = 

****** 

GX 

TK100  = 

******  GX 

Z.DSP 

000000 

D$SISK= 

000000 

LN.REF= 

000002 

PDSPL  = 

****** 

GX 

TSTIM  = 

******  GX 

Z.FLG 

000010 

D$$L11= 

000001 

LN.SER= 

000002 

PDVNM  = 

****** 

GX 

T$$KMG= 

000000 

Z.LEN  = 

000016 

0$$YNC= 

000000 

LN.STA= 

000017 

PDVTA  = 

****** 

GX 

T$$MIN= 

000000 

Z.LLN 

000006 

D$$YNM= 

000000 

LN.SUB= 

000360 

PR1SC 

OOOOOORG 

T1SCL  = 

»**«*•  GX 

Z.MAP 

000020 

E$$XPR= 

000000 

LN.TRI= 

000006 

PR100M 

000244RG 

T100C  = 

»**♦*»  GX 

Z.NAM 

000004 

F$$LVL= 

000001 

L$$ASG= 

000000 

PR7   = 

****** 

GX 

TIOOQ  = 

******  GX 

Z.PCB 

000012 

G$$TPP= 

000000 

L$$DRV= 

000000 

PS 

****** 

GX 

V$$CTR= 

001000 

Z.SCH 

000007 

GS$TSS= 

000000 

L$$pn  = 

000001 

PWRF1  = 

****** 

GX 

XF.CAN= 

000200 

SSTSTM 

000530RG 

G$$TTK= 

000000 

L$$11R= 

000000 

P$$P45= 

000000 

XF.DDM= 

000001 

STISIN 

000032RG 

G$$WR[)= 

000000 

L.COST 

000015 

P$$WRD= 

000000 

XF.DLC= 

000002 

STIOOI 

000254R 

I$$RAR= 

000000 

L.CTL 

000012 

Q$$OPT= 

000010 

.  ABS. 

177776    000 
000612    001 

(RW,I,G8L,ABS,0VR) 
(RW,',LCL,REL,C0N) 

Errors 

detected:  0 

♦**  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  ot  work  file:  12660  Words  (  50  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Ocerating  system:  RSX-11M/PLUS 
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Process  incoming  connect  request 


20^ 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2K 

215 

216 

217 

218 

219 

220 

221 

222 

223  000360 

22'^  000362 

225  000370 

226  000376 

227  000400 

228  000404 

229  000412 

230  000414 

231  000422 

232  000424 
233 

234 
235 
236 
237 
238 
239 

240  000432 

241  000436 

242  000442 

243  000444 

244  000452 

245  000454 
246 

247  000456 

248  000462 

249  000466 

250  000472 

251  000476 

252  000500 

253  000504 
254 

255  000510 

256  000514 

257  000520 

258  000524 

259  000526 

260  000532 


.SBTTL  Process  incoming  connect  request 

•*-USRCI-Process  incoming  connect  request 

Process  a  received  connect  initiate  message. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R4  =  Address  of  connect  pending  CCB 

R5  =  Address  of  database  descriptor 


Outputs: 

'C  Clear 
'C  Set 


Request  successfully  processed 
Error  processing  request 

N$ERRC(R5)  =  Reject  reason  code 


Registers  :;iodified: 
RO,  R1,  R2,  R4 


012765  000003  000022 

132765  000010  000005 

001144 

017700  OOOOOOG 

026064  000014  000032 

001404 

132765  000002     000005 

001132 

012765  000004  000022 


016400  000016 

105760  000005 

001022 

126027  000004  000002 

001001 

022020 

062700  000010 

005067  000002G 

010167  OOOOOOG 
103404 

010167  000002G 

016403  000016 

116301  000005 

103471 

016743  000002G 

016745  OOOOOOG 


USRCI: 


5$: 


10$: 


20$: 


.ENDC 

MOV 

TSTB 

BNE 

CMP8 

BNE 

CMP 

ADD 

CLR 

CALL 

MOV 

BCS 

CALL 

MOV 

MOV 
M0V8 
CALL 
BCS 

MOV 
MOV 


<R3>  ;  Get  a  free  register 

*ER$NSR,N$ERRC(R5)  ;  Set  up  'node  shutting  down'  error 

#NF$DM0,N$FLG(R5);  Is  this  node  shutting  down? 

100$  ;  If  NE,  yes  ...  disallow  incoming  connects 

aOECPT.RO      ;  Point  to  the  DEC  home  block 

D$LNUM(R0),C.FLG2(R4)  ;  Is  the  connect  from  ourselves 

5$  ;  If  EQ,  yes,  don't  restrict  from  ourselves 

#NF$RST,N$FLG(R5);  Is  this  node  in  restricted  state  ? 

100$  ;  If  NE,  yes,  return  'node  shutting  down' 

#ER$U0B,N$ERRC(R5) 


SAVRG 

MOV 

BITS 

BNE 

MOV 

CMP 

BEQ 

BITS 

BNE 

MOV 


.IF  DF  N$$MCP 
MOV     #1,$RQCPY 


C.8UFt2(R4),R0 

N.DOT(RO) 

20$ 

N.DFM(R0),#2 

10$ 

(RO)t,(RO)t 

#N.DDE,RO 

$RQNAM*2 

CATS 

R1,$RQNAM 

20i 

CATS 

R1,$R0NAM+2 

C.BUFt2(R4),R3 

N.D0T(R3),R1 

MAP08J 

100$ 

$RONAMt2,-'R3) 

$RQNAM,-(R3) 


Initialise  number  of  copies 


Get  address  of  connect  pending  block 

Is  this  a  connect  by  object  type 

If  NE,  yes 

Is  this  a  format  2  descriptor? 

If  NE,  no 

Skip  over  group  and  user 

Point  to  task  name  in  ascii 

In  case  task  name  <  3  characters  long 

Convert  ascii  to  RAD50 

Fill  in  first  3  chars  of  task  name 

If  CS,  task  name  finished 

Convert  ascii  to  RAD50 

Fill  in  second  3  chars  of  task  name 

Recover  pointer  to  pending  connect  block 

Get  destination  object  type 

Map  object  type  to  task  name 

If  CS,  no  mapping  present 

Fill  in  the  destination  task  name 
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1 

2 

I 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 

3-; 

35 
36 
37 
38 
39 
AO 


.TITLE  SESCTL  -  Session  control  control  qio  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 


The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibi  li  t);  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  control  QIO  processing 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Interrupt  message  network  data  processing 

.SBTTL  Interrupt  message  network  data  processing 
*»-INT-Interrupt  message  network  data  processing 

Copy  the  interrupt  message  into  the  user's  buffer. 
Inputs: 


487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 

507  000512 

508  000516 
509 

510  000520 

511  000524 

512  000532  010104 

513  000534 


016600  000002 
001402 


R1  =  Address  of  CCB 

R3  =  Address  of  I/O  packet 

R4  =  Virtual  address  of  user's  buffer 

User's  buffer  is  mapped 
R5  =  Address  of  database  descriptor 
2(SP)  -  #  of  bytes  to  be  transferred 
4(SP)  -  High  byte:  Data  type  code 

Low  byte:   I/O  status  return  code 
6(SP)  -  Address  of  I/O  packet 


Registers  modified: 
RO,  R2,  R4 


INT: 


116166  000011   000003  10$: 


MOV 
BEQ 

CALL 
MOVB 
MOV 
CALLR 


2(SP),R0 
10$ 

MOVDAT 

C.M0D(R1),3(SP) 

R1,R4 

CMPINT 


Get  #  or  bytes  to  transfer 
If  EQ,  none 

Copy  interrupt  message  to  user  buffer 

Put  LUN  in  high  byte  of  second  I/O  status  word 

Copy  the  CCB  address 

Return  interrupt  message  to  system 
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SESCTLllS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:54 
SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


REFERENCES 


INT 

lODUN 

lODUNl 

lOERR 

lOSUC 

IS.DAO 

IS. sue 

I.LN2 
I.PRM 


I.TCB 

KILLNK 

KISAR6 

LDBGT 

LDBRT 

L.DCR 

MAPBF 

MCVDAT 

M.MAIL 

M.MAX 

M.MBL 

M.NEXT 

M.SPA 

M.TASK 

M.USE 

NSSDON 

NSSSDI 

NT. CON 

NT.EVT 

NT.VFY 

NVP 

NSERRC 

NSGENQ 

NSMBXQ 

N$$ACC 

NSSEVL 

N$$PEM 

N$$SES 

N$$SMC 

N$$VCT 

N.CACC 

N.CIDC 

N.CTL 

OPN 

PEM 

OUETStC 

RDBS; 

REJECT 

RETRES 

RMVWND 


000512 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 


-  ******* 
=  ****** 
=   ****** 

r  ****** 

=     ****** 

000100 

000662  R 

000616  R 

000014 

000011 

000020 

000002 

000012 

000004 

000010 

=  000000 

=  000002 

=  000001 

=  000006 

=  000007 

001006  R 

000022 

000052 

000050 

=  000001 

=  000001 

=  000001 

=  000001 

=  ****** 
=  ****** 
000116 
000062 
000000 
000024 
000350 
=  ****** 

-  ****** 

-  ****** 
=   *♦♦♦** 

-  ****** 


GX 


R 

R 
GX 
GX 
GX 
GX 
GX 


11-386 

#14-507 

10-328 

11-377 

20-826 

9-229 

11-379 

18-641 

18-645 

8-167 

9-283 

18-692 

11-361 

20-812 

10-327 

11-351 

20-824 

9-277 

10-312 

11-358 

11-360 

13-480 

17-601 

18-638 

19-731 

19-732 

20-799 

20-825 

18-624 

9-236 

*11-370 

»18-660 

♦18-682 

18-643 

18-694 

*9-234 

18-656 

#18-660 

14-510 

15-545 

16-576 

8-124 

10-313 

12-418 

8-149 

8-151 

9-281 

•8-117 

9-259 

9-261 

♦9-187 

9-267 

♦10-312 

8-130 

8-15" 

*8-161 

9-194 

9-289 

9-290 

9-292 

9-294 

19-743 

8-144 

18-683 

8-137 

18-632 

#19-717 

*19-745 

♦19-766 

19-772 

8-121 

8-117 

♦8-118 

9-259 

7-96 

8-135 

18-620 

#4-2 

7-96 

8-142 

18-620 

#6-59 

18-684 

9-232 

11-370 

18-660 

19-737 

19-733 

19-736 

19-737 

19-719 

7-89 

#8-117 

7-97 

#18-624 

19-769 

18-659 

8-157 

19-773 

16-578 

9-240 

PAGE  2 
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00 

18-695 
19-740 

19-777 

11-370 
18-649 
20-800 

11-371 
18-650 
20-804 

12-432 
19-717 
20-806 

12-434 

19-718 

♦20-808 

12-437 

♦19-719 

20-813 

12-439 
19-727 
20-820 

♦  19-717 

♦20-799 

#17-594 

9-263 

9-266 

♦9-266 

♦9-241 

♦19-725 

18-628 

19-715 

18-628 

18-636 

18-682 

19-717 

20-799 
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SESCTRHS  CREATED  BV  MACRO  ON  28-JUN-85  AT  19:5A 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ACSDNT 

AC$X25 

AEICIR 

AEtLIN 

AE$MOD 

CELOG 

CLIASZ 

CLSDLL 

CLSECL 
CLSLDN 
CLSMAN 
CLSPAZ 
CLSPLH 
CLSPLL 
CLSPRT 
CLSROU 
CLISES 
CLSSGE 
CLSSSE 
CLSTRN 


CL$XL2 

CL$XL3 

CL$X2S 

CTRSES 

CTRTBL 

DLSAST 

DL$HLT 

DLSIST 

DLSMAI 

DLSOFF 

DLSON 

DLSRUN 

OLSSHU 

DLSSYN 

EFSACT 

ENCCIR 

ENCSR 

ENC1W 

ENC2W 

EVDSC 

EVLSES 

EVSACF 

EVSADR 

EVSADU 

EVSAPL 

EV$ARC 

EVSAUC 

EVSAUS 

EVSCDF 


GX 


=  000002 
=  000001 
=  000003 
=  000001 
=  OOOOOA 
-  *** t *♦ 
=  010500 
=  000500 

=  000300 
=  010400 
=  000000 
=  034100 
=  034000 
=  000600 
=  034200 
=  010000 
=  000200 
=  035000 
=  035100 
=  000400 


=  013700 

=  013600 

=  013500 
000000  RG 
000066  R 

=  000002 

=  000000 

=  000001 

=  000004 

=  000001 

=  000000 

=  000003 

=  000'  -? 

=  0C..J5 

=  000001 
000134  R 
000114  R 
000076  R 
000106  R 

=  »»**♦»  GX 
000150  RG 

=  000201 

=  000420 

=  000417 

=  000400 

=  000421 

=  000010 

=  000003 

=  000520 


REFERENCES 

#6-51 
#6-51 
#6-51 
#6-51 
#6-51 

9-192 
#6-51 
#6-51 

6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 

6-51 

6-51 
#6-51 
#6-51 
#6-51 
#7-72 

7-85 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 

7-100 

7-99 

7-97 

7-98 

9-178 
#9-176 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 


6-51 
6-51 
6-51 
6-51 
6-51 
6-51 
6-51 


6-51 
6-51 
6-51 
6-51 
6-51 
6-51 


6-51 
6-51 

#7-97 


#8-148 
#8-137 
#3-121 
#8-130 
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6-51 


6-51 


6-51 


6-51 


6-51 


6-51 


6-51 


6-51 
6-51 
6-51 

6-51 
6-51 

6-51 

6-51 
6-51 
6-51 
6-51 
6-51 
6-51 

6-51 
6-51 
6-51 

6-51 
6-51 

6-51 

6-51 
6-51 

6-51 
6-51 

6-51 
6-51 

6-51 
6-51 
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128 
129 

130  0OO2';6 

131  000246 

132  000250 

133  000252 
154  000254 

135  000256 

136  000260 

137  000262 

138  000264 

139  000266 

140  000270 

141  000272 

142  000274 

143  000276 
144 

145 
146 
147 
148 

149  000300 

150  000302 
151 

152 
153 
154 
155 

156  000304 

157  000306 

158  000310 

159  000312 

160  000314 

161  000316 

162  000320 

163  000322 
164 

165 

166  000324 

167  000326 
168 

169 

170  000330 

171  000332 

172  000334 

173  000336 

174  000340 

175  000342 

176  000344 

177  000346 

178  000350 

179  000352 

180  000354 

181  000356 

182  000360 

183  000362 

184  000364 


000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


SVECTB: 


.SBTTL  Executive  uector  table 


.UORD 

0 

KSAR6: 

:  .WORD 

KISAR6 

TLGTH: 

:  .UORD 

T.LGTH 

USAR6: 

:  .WORD 

UISAfi6 

ALOCB: 

:  .WORD 

SALOCB 

BLXIO: 

:  .WORD 

SBLXIO 

DEACB: 

:  .WORD 

$DEAC8 

DEVHD: 

:  .WORD 

SDEVHD 

DREXT: 

:  .WORD 

SDREXT 

FMASK: 

:  .WORD 

SFMASK 

lOFIN: 

:  .WORD 

SIOFIN 

QRMVF : 

:  .WORD 

SQRMVF 

QUEBF: 

:  .WORD 

$QUE8f 

.JF  DF 

R$$MPL 

SRPRO: 

:  .WORD 
.ENDC 

SSRPRO 

SRSTD: 

:  .WORD 

SSRSTD 

STPCT: 

:  .WORD 

SSTPCT 

.IF  OF 

N$$MCP 

TC8CP: 

:  .WORD 
.ENDC 

STCBCP 

TKTCB: 

:  .WORD 

STKTCB 

TSKRT: 

:  .WORD 

STSKRT 

TTNS:: 

.WORD 

STTNS 

CALLX: 

:  .WORD 

SCALLX 

CCBGT: 

:  .WORD 

SCCBGT 

CC6RT: 

:  .WORD 

SCCBRT 

CEACC: 

:  .WORD 

SCEACC 

CELOG: 

:  .WORD 

SCELOG 

.IF  NDF 

R$$EIS 

CEDIV: 

:  .WORD 

SCEDIV 

CEMUL: 

:  .WORD 
.ENDC 

SCEMUL 

CMPDV: 

:  .WORD 

SCMPDV 

CSBGT: 

:  .WORD 

SCSBGT 

CSBRT: 

:  .WORD 

$CSBRT 

DECPT: 

:  .WORD 

SDECPT 

EVDSC: 

:  .WORD 

SEVDSC 

LDBGT: 

:  .WORD 

SLDBGT 

LDBRl: 

:  .WORD 

$LD8RT 

LLCRS: 

:  .WORD 

SLLCRS 

MVFBF: 

:  .WORD 

SMVFBF 

NMCLH: 

;  .WORD 

SNMCLH 

OBJHD. 

:  .WORD 

SOBJHD 

PDVID: 

;  .WORD 

SPDVID 

PDVTA. 

:  .WORD 

SPDVTA 

RDBRT. 

:  .WORD 

IRDBRT 

RDBSZ 

:  .WORD 

SRDBSZ 

Flag  for  vector  not  yet  filled 
RSX  exec  references 


Comm  exec  references 
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Symbol  table 


ABT 

ACCLLT= 
A$$CHK= 
A$SCPS= 
A$$PRI= 
A$$TRP= 
BRKLN<= 
CL$MFL= 
CL$SFL= 
CLSTYP= 
L.MU1= 
:  .MU2= 
Cl.RES= 
CM.CON= 
CPYOPT= 
CV$HS<= 
CV$31  = 
CV$32  = 
CVSAO  = 
CX.GDQ= 
CX.REM= 
CX.REQ= 
CX.RUI= 
CX.SMC= 
CX.UNL= 
C$$ORE= 
C$$RSH= 
DISTBL 
DSC 

D$$BUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
ERSABM= 
ER$ABO= 
ER$ABT= 
ERSACC= 
ER$CDI= 
ER$COM= 
ER$FMT= 
ER$MLB= 
ER$NNF= 
ER$NOD= 
ER$NSL= 
ER$NSR= 
ER$RES= 
ER$STA= 
ER$UOB= 
E$$XPR= 
FL5HI0= 
FLSHMB= 
F$$L\/L  = 
G$$TPP= 
G$$TSS= 
G$$TTK= 
GtIWflD= 


00001 6R 

••♦*»*  GX 

000000 

000000 

000000 

000000 

««*»*»  5x 

000010 
000004 
000001 
000001 
000002 
17777A 
000200 
»*.*♦♦  GX 

000003 

000001 

000000 

000002 

000001 

000020 

000002 

OOOOAO 

000010 

000004 

000400 

177564 

00001 4R 

OOOOOOR 

177514 

000000 

000001 

000000 

000000 

000010 

000046 

oooon 

000042 

000052 

000047 

000005 

000006 

000012 

000002 

000013 

000003 

000001 

000051 

000004 

000000 

»♦»»«*  GX 

♦♦*»♦♦  GX 

000001 

000000 

000000 

000000 

000000 


1E.BAD= 
IN.DAT= 
IN.ILS= 
lOERR  = 
I0RED0= 
lOSUC  = 
I$$RAR= 
I$$RDN= 
I.PRM  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LA.ACK= 
LA.CRS= 
LA.MSK= 
LA.NAK= 
LA.NMS= 
LA.RES= 
LA.UND= 
LD$LP  = 
LF.DRD= 
LF.FRC= 
LF.HFO= 
LF.HMF= 
LF.HSF^ 
LF.IRD= 
002  LF.MMF= 
LF.MSF= 
LS.DLS= 
LS.FCC= 
LS.FCO= 
LS.FC1= 
LS.ILS= 
LS.MAK= 
iS.mK= 
LS.RES= 
LS.RSV= 
LT.CCA= 
LT.DIR= 
LT.LCL= 
LT.LPL= 
LT.NOT= 
LT.RSU= 
LT.SLI= 
LT.TDA= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.CSTA 
L.CTR 
L.DCR 
L.FLAG 
L.ILSO 
L.ILTF 
L.LDA 


GX 


000400 

000001 

******  GX 

******  GX 

******  GX 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

000000 

000004 

000001 

000010 

000040 

000020 

000002 

000200 

000100 

100000 

000004 

000001 

000002 

100000 

000020 

000040 

000360 

000300 

000020 

000010 

000001 

000002 

000040 

000200 

000004 

000100 

000000 

000000 

000001 

000000 

000037 

000074 

000100 

000014 

000052 

000066 

000032 
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L.LIA 

000034 

M$$MGE= 

000000 

L.LLA 

000002 

M$$HUP= 

000000 

L.LNG 

000124 

H$$NET= 

000000 

L.LNO 

000026 

M$$OVR= 

000000 

L.LPT 

000065 

M.MAIL 

000014 

L.LSA 

000030 

M.MAX 

000011 

L.LSFD 

000046 

M.MBL 

000020 

L.LSFI 

000044 

H.NAST 

000007 

L.LTT 

000062 

M.NEXT 

000002 

L.MASQ 

000070 

M.RESP 

000016 

L.MAST 

000073 

M.SPA 

000012 

L.MASZ 

000072 

M.TASK 

000004 

L.NIN 

000020 

M.USE 

000010 

L.NXN 

000016 

NC.FMO= 

000000 

L.NXTH 

000010 

NC.FM1= 

000001 

L.OPD 

000103 

NC.FM2= 

000002 

L.OPDL 

000102 

NF$BLK= 

000100 

L.REM 

000006 

NF$DMO= 

000010 

L.RFC 

000050 

NF$MOU= 

000040 

L.RLA 

000004 

NF$RST= 

000002 

L.RNO 

000022 

NF$SCN= 

000020 

L.RTQ 

000060 

NF$SHU= 

000004 

L.RTYD 

000055 

NF$TIM= 

000200 

L.RTYJ 

000057 

NS$DON= 

000000 

L.SEC 

000064 

NS$SDI= 

000002 

L.SEGZ 

000076 

NS$WDC= 

000004 

L.STA 

000000 

NSACQ 

000000 

L.TC 

000042 

NSACTL 

000032 

L.TJC 

000043 

NSCIR 

000034 

L.TIPD 

000013 

N$DLA 

000020 

L.TIPI 

000012 

N$DLY 

000014 

L.TMRD 

000054 

NSELEN 

000054 

L.TMRI 

000056 

NSENC 

000042 

L.TYP 

000001 

NSERRC 

000022 

L.USA 

000024 

N$FLG 

000005 

L.USTA 

000036 

NIFNC 

000006 

L.VER 

000015 

NSGENQ 

000052 

L.UIND 

000040 

N$GTM 

000015 

MA. CI  = 

000040 

NSHIGH 

000033 

MA. DA  : 

000000 

N$LLT 

000026 

MA.IL  = 

000020 

NSLLTM 

000024 

MC.CC  = 

000040 

N$LVC 

000036 

MC.CI  = 

000020 

NSMBXQ 

000050 

MC.DC  = 

000100 

NSPLLT 

000030 

MC.DI  = 

000060 

N$SLA 

000016 

MC.NO  = 

000000 

NSSNOD 

000012 

MC.RC  = 

000140 

N$TIM 

000004 

MD.8M  = 

000040 

NSVCB 

000010 

MD.EM  = 

000100 

N$$ACC= 

000001 

MD.ILS= 

000040 

N$$EVL= 

00000 

MD.IM  = 

000020 

N$$LD\/= 

00000- 

MF.ACK= 

000004 

N$$MLL= 

000001 

MF.CTL= 

000010 

N$$MOV= 

000010 

MF.DAT= 

000000 

N$$NCT= 

000001 

M$$CR8= 

000124 

N$$PEM= 

000001 

M$$CRX= 

000000 

N$$SES^ 

000001 

M$$FCS= 

000000 

P$$P45= 

000000 

P$$WRD= 

Q$$OPT= 

REJ 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

SAVOPT= 

SNDDIS= 

ST$CC  = 

SI$CIR= 

ST$CIS= 

ST$DAT= 

ST$DIP= 

ST$PND= 

S$$WRG= 

S$$YSZ= 

TLACHK= 

T$$KMG= 

T$$M1N= 

US$CNF= 

US$DIS= 

US$DON= 

US$DSC= 

US$EAC= 

US$WDS= 

V$$CTR= 

WK.ACK= 

UK.AST= 

WK.DIS= 

WK.INT= 

UK.RCV= 

WK.SND= 

US.DIP= 

US.INT= 

US.KAS= 

WS.STA= 

U.CINT 

W.CSND 

U.CTL 

U.KAST 

U.LLT 

W.LUN 

W.MBOX 

W.RCVQ 

U.SEGZ 

W.SNDQ 

U.STAT 

U.TMP 

U.W6L 

X$$DBT= 

$CALLX= 

SDSQIO 

$MAIBX= 

$REASN= 

$$SHFT= 


000000 

000010 

000076R 

000000 

000001 

000000 

000000 

000000 

******  GX 

******  GX 

000004 

000006 

000002 

000010 

000012 

000014 

000000 

007600 

******  GX 

000000 

000000 

000002 

000006 

000000 

000004 

000012 

000010 

001000 

000001 

000200 

000010 

000020 

OC  ^04 

000002 

000010 

000002 

000004 

000001 

000022 

000020 

000000 

000014 

000004 

000003 

000012 

000024 

000006 

000016 

000002 

000010 

000026 

000000 

******  GX 

OOOOOORG 

******  GX 

***♦•»  GX 

000001 


002 


I  K 


L 


SESDM011S  CREATED  BY 

MACRO  ON  2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

EV$HCE 

=  0351U 

#6-48 

;v$HCl 

=  035113 

#6-48 

EVSHFE 

=  000506 

#6-48 

EVtlFL 

=  OO0A13 

#6-48 

EVSIFO 

=  000415 

#6-48 

EVSIFS 

=  OOO'i.U 

#0-48 

EVSINF 

=  000515 

#6-48 

EVSLDL 

=  000407 

#6-48 

EV$LDN 

=  010416 

#6-48 

EV$LDO 

=  000411 

#6-48 

EV$LDS 

=  000410 

#6-48 

EV$LSC 

=  000500 

#6-48 

EVSLUP 

=  000412 

#6-48 

EVtNOL 

=  000402 

#6-48 

EVSNRC 

=  000416 

#6-48 

EVSNSC 

=  000200 

#6-48 

EVSNUL 

=  000401 

#6-48 

EVSNVR 

=  000406 

#6-48 

EV$OPL 

=:  000403 

#6-48 

EVSPCC 

=  034000 

#6-48 

EVSPCl 

=  034001 

#6-48 

EVSPCM 

=  034002 

#6-48 

EVSPFE 

=  000404 

#6-48 

EVSPPC 

=  034003 

#6-48 

EVSRCF 

=  000517 

#6-48 

EVSRDC 

=  010001 

#6-48 

EVSRDR 

=  010002 

#6-48 

EVSRJE 

=  035106 

#6-48 

EVSRSC 

=  000501 

#6-48 

EVSRUL 

=  000405 

#6-43 

EVSSNA 

=  035000 

#6-43 

EVSSNF 

=  000516 

#6-43 

EVSSPE 

=  035001 

#6-48 

EVSXCE 

=  034110 

#6-48 

EVSXDI 

=  013600 

#6-48 

EVSXGW 

=  034111 

#6-48 

EVSXMX 

=  000514 

#6-48 

EVSXRS 

=  000512 

#6-48 

EVSXSC 

=  000513 

#6-48 

EV$X2S 

=  013500 

#6-48 

EV.CCB 

=  000001 

#6-48 

EV.CIR 

=  000020 

#6-48 

EV.LCB 

=  000100 

#6-48 

EV.LIN 

=  000004 

#6-48 

EV.MAP 

=  000002 

#6-48 

EV.MOD 

=  000040 

#6-48 

EV.NOD 

=  000010 

#6-48 

EV.PRT 

=  000200 

#6-48 

ESDATA 

000020 

#6-48 

ESEvrs 

000000 

#6-48 

E$LC^ 

000016 

#6-48 

ESLIN 

oooooc 

#6-48 

ON  28-JUN-85  AT  19:55 


H  15 

PAGE  2 

CREf   04.00 


SE 
Sc 


1  15 


r 


SESDSP  -  Session  control  dispat 
Scan  general  delivery  queue 

225 

225 

226 

227 

22B 

229 

230 

231 

232 

233 

23A 

235  000034 

236 

237  000034 

238  000042 

239  000044 
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240 

241  000050 

242  000052 
243 

244  000054 

245  000060 

246  000062 

247  000066 

248  000074 

249  000076 

250  000102 

251  000104 

252  000110 

253  000114 

254  000116 
255 

256  000122 

257  000124 

258  000126 

259  000134 

260  000136 
261 

262  000142 

263  000144 
264 

265  000146 

266  000152 

267  000154 
268 

269  000162 


142765     000020 

010502 

062702     000052 

011204 
001443 


105365     000015 

001020 

017700  OOOOOOG 

116065  000042  000015 

011412 

105764     000010 

100005 

012701  000046 


000402 


011204 

001410 

132764     000002 

001402 


010402 
000766 

005765  000052 

001403 

152765  000200 


000011 


.SBTTL  Scan  general  deliuery  queue 
•♦-SCNGNQ-Scan  general  delivery  queue 

Scan  the  general  delivery  queue  for  tasks  which  must  be  requested. 


Inputs: 
R5 


Registers  modi  tied: 
RO,  Rl,  R2,  R3 


Address  of  database  descriptor 
R4 


000005   SCNGNQ: 


10$: 


000005 


15$: 
20$: 


30$: 
40$: 

50$: 


.PSECT   $H]GH 


BIC8 

MOV 

ADD 

MOV 
BEQ 

DECS 

BNE 

MOV 

MOVB 

MOV 

TST8 

BPL 

MOV 

CALL 

BR 

CALL 

MOV 

BEQ 

BITS 

BEQ 

CALL 

MOV 
BR 

TST 
BEQ 
BIS8 

RETURM 


#NF$SCN,N$FLG(R5) 

R5,R2 

#N$GENQ,R2 

(fi2),R4 
50$ 


N$GTM(R5) 

20$ 

aDECPT,RO 


Compute  address  of  general  delivery 
queue  listhead 

Get  first  entry  on  the  queue 
If  EQ,  queue  is  empty 

Decrement  timeout 

If  NE,  timer  still  active 

Get  address  of  DEC  home  block 


D$INCT(R0),N$GTM(R5)  ;  Restart  the  general  delivery  timer 


(R4),(R2) 

C.FNC(R4) 

15$ 

#ER$AB0,R1      ; 

REJECT         ; 

20$ 

aRDBRT 

(R2),R4 

40$  ; 

#CX.REC,C.M0D(R4) 

30$ 

REQISK 

R4,R2 
20i 


Unlink  CCB  from  the  queue 

Is  it  a  connect/verification  type 

If  PL,  no  -its  a  PEM 

Set  reason  for  rejection 

Reject  the  connection 

Just  return  the  buffer 

Get  next  entry  in  queue 

If  EO,  no  more 

;  Does  this  entry  need  requesting? 

If  EQ,  no 

Request  task  tr  run 

Move  down  queue 
and  keep  looking 


N$GENQ(R5)      ;  Anything  still  in  general  delivery  queue? 

50$  ;  If  EQ,  no 

*NF$TIM,N$FLG(R5);  Show  we  still  need  timer  support 
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8 
9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 


2^ 
25 
26 
27 
28 
29 
30 
31 


18 
39 
40 
41 

'<Z 
43 
44 
45 

'S 
48 
49 

§0 

51 


.TITLE 
.IDENT 


AXMDC  -  AUX  MODEM  CONTROLLER 
/V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 


MODULE  DESCRIPTION 

AUX  MODEM  CONTROLLER  AND  AUTODIAL  INITIATOR 
DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 
1.00 


10-FEB-78 

VERSION  2.0  RELEASE 


2.00  K-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-HM  V3.1 
DECNET-HM-PLUS   VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI .0 


Av,1Dr  -  AUX  MODEM  CONTROLLER 
I'.acro  definitions 
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00055A  132765     000001 

000562  OOUO^ 

00056A  105765     000002 

000570  00U07 

000572 

00057A  105065     000002 

000600  112765     OOOOOA 

000606 


AXMDC  -  AUX  MODEM  CONTROLLER 
ST.CDL  -  CONNECT  DELAY 


^58 

439 

^.^O 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 
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.SBTTL   ST.CDL  -  CONNECT  DELAY 
I- 
**-.C0ND-C0NNECT  DELAY 


000003 


ON  ASYNCHRONOUS  LINES  WITH  CARRIER  CHECK  THAT  CARRIER  STAYS  ASSERTED 
FOR  A  MINIMUM  LENGTH  OF  TIME. 


INPUTS: 


R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


000004   .COND: 


.IF  NDF  X$$D52 


10$: 
20$: 


BITB 

BEQ 

TSTB 

BEQ 

RETURN 

CLRB 

HOVB 

RETURN 

.IFF 


#MC.CAR,M.CSV(R5) 

10$ 

M.TIM(R5) 

CNCMP 

M.TIM(R5)      , 
#ST.WCN,M.STT(R5) 


;  IS  CARRIER  STILL  ASSERTED? 

NO  ...  GO  BACK  TO  LOOKING 

HAS  THE  TIMER  EXPIRED? 

YES  ...  COMPLETE  THE  CONNECT 

NO  ...  KEEP  WAITING 

CARRIER  HAS  BEEN  LOST 

;  RETURN  TO  WAIT  FOR  CONNECT  STATE 


When  interfacing  with  a  modem  which  generates  continuous  carrier, 
wait  until  both  Carrier  Detect  and  Clear  To  Send  are  asserted. 


.COND: 
5$: 


TSTB 

BEQ 

RETURN 

MOVB 

HOVB 


M.TIM(R5) 
5$ 


If  timer  has  expired 
then 


#<TM.CON-TM.CHK>,  M.TIM(R5) 
#ST.DLY,  M.STT(R5) 


Start  non-data  call  timer 


Carrier  and  Clear  to  Send  must  become  asserted  with  in  a  certain 
amount  of  time,  else  a  disconnect  is  posted. 


.C0ND2:  BITB 

BEQ 

BITB 

BEQ 

BITB 

BECl 

CLRB 

BR 


10$: 

20$: 
25$: 


TSTB 

BEQ 

RETURN 

CLRB 
MOVB 


#MC.DSR,  M.CSV(R5) 

20$ 

#MC.CAR,  M.CSV(R5) 

10$ 

*MC.CTS,  M.CSV(R5) 

10$ 

M.nM(R5) 

CNCMP 

M.TIM(R5) 
25$ 


m.tim;R5) 
#st.cfl,  m.stt{r5) 


If  Data  Set  Ready  still  asserted 
then 

If  Carrier  is  asserted 

and 
If  Clear  To  Send  is  asserted 
then 
Stop  connect  timer  and 
Goto  complete  the  connect 
else 

If  timer  has  expired 

then  Goto  post  disconnect 
else  Return  and  wait 
else  (DSR  no  longer  asserted) 
Abort  the  non-data  call  timer 
Set  state  to  Connect  Failure 
Fall  thru  to  post  disconnect 


The  connect  attempt  has  tailed.  Post  an  Enable  Complete  followed  by  an 
immediate  Asynchronous  Disconnect  Detect. 


.CONFL:  CALL 


CNCMP 


Post  an  Enable  Complete 
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<;t  _rni  -  rnwN/FrT  nFi  ay 
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AXMDC  CREATED  BY     MACRO     ON  28-JUN-85  AT   18:30 

SYMBOL  CROSS  REFERENCE 


I     3 

PAGE  2 

CREF       04.00 


SYMBOL  VALUE 


L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

MC.CAR 

MC.CCB 

MC.OSR 

MC.RNG 

MDMCTL 

MDMSCN 

MDMSRV 

MS.SCA 

MS.SYN 

M.CSV 

M.LEN 
M.LiN 
M.PSV 
M.STA 
M.STT 

M.TIM 

N$$1LN 

PDVTA 

RING 

R$$MPL 

R$$PRO 

R$$11D 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 


000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000001 

000200 

000002 

000004 

000022  RG 

000310  RG 

000000  R 

000002 

000001 

000004 

000010 
000001 
000005 
000006 
000003 

000002 

****** 
******  GX 
000066  R 


=  000000 

r  ****** 

=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  00000! 
=  000002 
=  000040 


GX 


REFERENCES 

#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 

15-415 

10-255 

15-420 

14-390 
#7-148 
#13-323 
#6-114 

13-327 

15-413 
*8-180 

15-420 

7-152 

7-150 
»8-179 
♦7-155 

8-176 
•15-418 
♦10-236 

23-662 

13-331 

12-297 

7-161 

13-348 

5-59 

5-63 

5-65 

5-63 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-'j6 
#5-66 

1  -'40 


16-451 
13-373 
18-545 

7-153 

13-375 

13-371 

18-538 
•9-201 
16-451 
12-304 
12-302 
♦9-200 
24-697 
•8-178 
♦16-457 
13-363 


#8-176 

9-202 
12-283 


18-540 
17-518 


♦12-306 

♦17-518 

13-374 

13-329 

♦10-255 

♦9-199 

♦18-543 

♦13-365 


19-580 
20-606 


•13-362 
18-540 

13-369 
13-367 

10-237 
♦19-586 
♦15-417 


21-625 


13-367 
18-545 

24-696 
♦13-372 

10-239 

♦20-602 

16-453 


22-645 


13-372 
19-580 


21-625 

♦10-245 
♦24-694 
♦16-456 


23-669 


♦13-373 
♦20-606 


♦10-254 
•18-542 


14-390 
♦22-645 


13-325 
19-582 


15-415 
•23-669 


13-370 
♦19-585 


AXMDC 
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AXSCH      CREATED  BY  MACRO  ON  tS-JUN-85  AT  18:30 
SYMBOL  CROSS  REFERENCE 


I  4 

PAGE  1 

CREF   01.00 


SYMBOL 

VALUE 

REFcr;Li\CE 

5 

CF.DDM 

=  000002 

#5-61 

CF.DYN 

=  OOOOOA 

#5-61 

CF.EIS 

=  000010 

#5-61 

CF.FRK 

=  100000 

#5-61 

6-96 

6-215 

CF.LOG 

=  000020 

#5-61 

CF.MDM 

=  000001 

#5-61 

CF.TIM 

=  000400 

#5-61 

CMFRK 

r  **■♦*** 

GX 

6-98 

6-194 

CS.LST 

=   040000 

6-138 

6-158 

CXOPT 

=  ****t* 

GX 

6-96 

6-215 

C.BID 

000003 

6-166 

*6-170 

C.FNC 

000010 

6-173 

C.LIN 

0O00C6 

6-159 

*6-168 

C.STS 

000012 

6-138 

»6-158 

INTCT 

=   ****** 

GX 

6-112 

I$$AS 

=   ****** 

5-62 

PDDSP 

=   ****** 

GX 

6-178 

PDSPL 

-   ****** 

GX 

6-186 

PDVTA 

=   ****** 

GX 

6-175 

PR7 

r:  ****** 

GX 

6-100 

PS 

-  ****** 

GX 

♦6-100 

*6-156 

•6-187 

•6-227 

R$$MPL 

::  ****** 

5-64 

6-102 

6-118 

6-146 

R$$11D 

~      ****** 

5-62 

R$$11M 

-  000000 

5-62 

R$$11S 

-  ****** 

5-62 

STDLC 

=:  ****** 

GX 

6-185 

TKPS 

-  ****** 

GX 

6-112 

X$$MCB 

-  ****** 

5-62 

5-62 

ZF.COU 

=  001000 

#5-62 

ZF.DDM 

=  000001 

#5-62 

ZF.DIA 

=  004000 

#5-62 

ZF.DLC 

=  000002 

#5-62 

ZF.DVP 

=  100000 

#5-62 

ZF.INl 

=  040000 

#5-62 

ZF.KMX 

=  000020 

#5-62 

ZF.LLC 

=  000004 

#5-62 

ZF.LMC 

=  000100 

#5-62 

ZF.MAN 

=  020000 

#5-62 

ZF.MFL 

=  000010 

#5-62 

ZF.MTM 

=  000400 

#5-62 

ZF.MUX 

=  000040 

#5-62 

ZF.PSE 

=  002000 

#5-62 

ZF.SLI 

=  010000 

#5-62 

ZF.TIM 

=  000200 

#5-62 

ZF. X5P 

=  000000 

#5-62 

ZS.ASN 

=  100000 

#5-62 

ZS.B5Y 

=  140000 

#5-62 

Z.AVL 

000014 

#5-62 

Z.DAT 

000016 

#5-62 

6-177 

Z.DSP 

000000 

#5-62 

5-62 

Z.FLG 

000010 

#5-62 

Z.LEN 

=  000016 

#5-62 

6-197 


6-217 
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AXSUB 
tXLINK  - 

342 

3« 

34A 

345 

346 

347 

548 

349 

350 

351 

352 

353 

354 

555 

356 

357 

358 

359 

360 

361 

362 

363 

564 

365 

566 

367 

368 

569 

370 

571 

572 

575 

574 

575 

576 

577 

378 

579 

380 

381 

382 

583 

384 

58'^ 

586 

387 

588 

389 

390 

591 

392 

393 

594 

395 

396 

397 

X9R 
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.SBTTL  SXLINK  -  Link/unli'nk  block  in  extended  pool 

**-$XLINK-Link/unlink  block  in  extended  pool 

This  routine  is  called  to  link  or  unlink  a  block  in  a  list  that  may 
include  allocations  from  extended  pool. 

Inputs: 

to  link  block  into  list: 

MOV  X,-(SP)  ;  address  of  block  to  be  linked  into  list 
MOV  Y,-(SP)  ;  address  of  previous  block  in  list 
CALLX  SXLINK, AUX 

to  unlink  block  from  list: 

MOV  X,-(SP)  ;  address  of  previous  block  in  list 

MOV  Y,-(SP)  ;  address  of  block  to  be  unlinked  from  list 

CALLX  SXLINK, AUX 

Outputs: 

Block  is  linked/unlinked,  addresses  are  removed  from  the  stack. 

Registers: 

No  registers  are  modified 


000452 

000432  010046 


SXLINK: 


000434  032777  OOOOOOG  OOOOOOG 

000442  001403 

000444  016646  000014 

000450  000402 

000452  016646  000012 


000456 

000462  012600 

000464  Oil '^46 

000466  052777  OOOOOOG  OOOOOOG 

000474  001403 

000476  016610  000020 

000502  000402 

000504  016610  000016 


000510 
000512 
000516 
000520 
000522 


011046 

012600 
012610 
012600 


MOV 

RO,-CSP) 

.IF  DF 

MSSMGE 

BIT 
BEG 
MOV 
BR 

#F2.DAS,aFMSK2 
10S 

14(SP),-(SP) 
20$ 

10$: 

MOV 

12(SP),-(SP) 

20S: 

CALL 

MOV 

MOV 

aCEACC 

(SP)+,R0 

(RO),-(SP) 

BIT 
BED 
MOV 
BR 

#F2.DAS,aFMSK2 
50$ 

20(SP),(R0) 
40$ 

30$: 

MOV 

16(SP),(R0) 

40S: 

MOV 

(RO),-(SP) 

000524  032777  OOOOOOG  OOOOOOG 
000532  C01405 


CALL  aCEACC 

MOV  (SP)+,RO 

MOV  (SP)+,(RO) 

MOV  (SP)+,RO 

BIT  *F2.DAS,afMSK2 

SEQ  50$ 


save  RO 


is  data  space  enabled? 

br  if  no 

set  block  address  for  SCEACC 


set  block  address  for  SCEACC 


map  to  block 

get  mapped  iddress 

save  address  of  next  block  in  list 

is  data  space  enabled? 

br  if  no 

set  new  link  word  into  block 


set  new  Link  word  into  block 

copy  address  of  block  for  SCEACC 

map  to  block 

get  mapped  address 

set  new  link  word 

restore  RO 

data  space  enabled? 
br  it  no 
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Macro  definitions 


50 
51 
52 
53 
54 
55 
56 
57 
58 

59  000000 

60  000000 

61  000000 

62  000000 


.SBTTL  Macro  definitions 
MACRO  LIBRARY  CALLS 


.MCALL   INHI8$,ENABL$,SAVRG,RESRG 
.MCALL   SLIDES, PDVDF$,CLKDF$,STMDF$ 


SLTDFS 
PDVDFS 
CLKDFS 
STMDFS 


DEFINE  SLT  OFFSETS 

DEFINE  PDV  OFFSETS 

DEFINE  CLOCK  BLOCK  OFFSETS 

DEFINE  SHORT  TIMER  OFFSETS 
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PAGE   1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

r  CINS 

000042  R 

#6-93 

9-299 

LlINS 

=  **«»♦«  GX 

6-101 

C.SYST 

=  000006 

6-98„ 

DSPTM 

=  »*»*»♦  GX 

8-258 

I$$AS 

=  ****** 

5-60 

LF.ACT 

=  100000 

#5-59 

8-192 

LF.BRO 

=  000400 

#5-59 

LF.BWT 

=  000007 

#5-59 

LF.ENA 

=  002000 

#5-59 

LF.LPB 

=  001000 

#5-59 

LF.MDC 

=  000100 

#5-59 

LF.MFL 

=  004000 

#5-59 

LF.MTP 

=  000020 

#5-59 

LF.PAC 

=  000200 

#5-59 

LF.RDY 

=  040000 

#5-59 

LF.REA 

=  010000 

#5-59 

LF.SER 

=  000040 

#5-59 

LF.TIM 

=  000010 

#5-59 

8-194 

LF.UNL 

=  020000 

#5-59 

LF.X2P 

=  000000 

#5-59 

LN.CLO 

=  000000 

#5-59 

LN.DUM 

=  000005 

#5-59 

LN.LOA 

=  000004 

#5-59 

LN.LOO 

=  000003 

#5-59 

LN.OAU 

=  000003 

#5-59 

LN.OFF 

=  000001 

#5-59 

IN.  ON 

=  000000 

#5-59 

LN.OOP 

=  000004 

#5-59 

LN.OPE 

=  000001 

#5-59 

LN.REF 

=  000002 

#5-59 

LN.SER 

=  000002 

#5-59 

LN.STA 

=  000017 

#5-59 

LN.SUB 

=  000360 

#5-59 

LN.TRI 

=  000006 

#5-59 

L$$SI1 

-  ****** 

12-430 

12-455 

L.COST 

000015 

#5-59 

L.CTL 

000012 

#5-59 

L.CVA 

177776 

#5-59 

L.DDM 

000002 

#5-59 

8-211 

8-215 

L.DDS 

000004 

#5-59 

8-210 

L.DLC 

000003 

#5-59 

8-215 

8-218 

L.DLM 

000006 

#5-59 

L.DLS 

000010 

#5-59 

8-217 

L.FLG 

000000 

#5-59 

L.KRBA 

000016 

#5-59 

L.LEN 

=  000022 

#5-59 

L.MPF 

000022 

#5-59 

L.NMST 

000020 

#5-59 

L.NSTA 

000014 

#5-59 

L.OWNR 

000021 

#5-59 

L.UNT 

000015 

#5-59 

N$$1lN 

r  *♦ t •*  * 

8-221 

AXTIM 
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Process  incoming  connect  request 

261 

262 

263 

264 

265 

266 

267 

268  000536 

269 

270 

271 

272 

273 

27A 

275 

276 

277 

278  000544 

279  000550 

280  000552 
281 

282  000560 
283 

284  000560 

285  000564 

286  000570 

287  000574 

288  000576 

289  000602 
290 
"'"  000604 
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132701  000100 

001403 

152764  000040  000011 


016700  OOOOOOG 

016000  OOOOOOG 

032700  000001 
001423 

032700  100000 


30$: 


40$: 


291 
292 
293 

294  000610 

295  000614 
296 

297 

298  000616 

299  000620 

300  000626 

301  000632 

302  000640 
303 

304 

305 

306 

307  000644 

308 

309 

310  000644 

311  000650 
312 

313 
314 

315  000652 

316  000660 
317 


001420 

042701   177774 


020127  000002 
001413 


006301 

016564  000012  000030 

110164  000033 

112764  000207  000010 

012703  OOOOOOG 


50$: 


103020 


122764  000201  000010 
001413 


.IF  OF 

M0V8 

.ENDC 

MOV 

.IF  DF 

BITS 

BEO 

BISB 

.ENDC 

BITS 

BEQ 

BISB 


N$$MCP 

$RC)CPY,C.STS(R4);  And  the  max  #  of  copies  aUowed 

#NT.C0fJ!CM.C0N,C.FNC(R4) 

N$$MCP 

#0F.SMC,R1      ;  Spawn  multiple  copies  of  this  task? 

30$  ;  If  EQ,  no 

#CX.SMC,C.M0D(R4) 


MOV 
MOV 
BIT 
BEQ 
SIT 
BEQ 

BIC 

.IF 
CMP 
BEQ 
.ENDC 

ASL 

MOV 

M0V8 

M0V8 

MOV 

.IF 
MOV 
.ENDC 

.ENDC 

CALL 
BCC 


CMP8 
BEQ 


#0F.RLU,R1 

40$  ; 

#CX.RUI,C.M0D(R4) 


.IF  DF  N$$ACC 


Run  task  under  login  UIC? 
If  EO,  no 


Get  address  of  UCB 

Get  device  features  mask 

Is  access  control  supported  in  this  system? 

If  EQ,  no 

Is  access  control  enabled? 

If  EQ,  no 

Isolate  verification  level 

Always  call  login  for  P/OS 
Is  verification  required? 
If  EQ,  no 


$UC8,R0 

U.CU3(R0),R0 

#NF.ACC,RO 

50$ 

#NF$ACC,RO 

50$ 

#"C<3>,R1 

NDF  R$$PR0 

R1,*2 

50i 

;  NDF  R$$PRO 

Rl  ;  Form  word  index 

N$SNOD(R5),C.CNT2(R4)  ;  Pass  node  number  to  NVP 

R1,C.FLG2+1(R4)  ;   and  save  for  later 

#NT.VFYICM.C0N,C.FNC(R4) 

#VFYNAM,R3     ;  Point  to  verification  task  name 

DF  R$$PRO 

$C0PT,C.PR0(R4)  ;  Run  NVP  under  CO: 

;  DF  R$$PRO 


QUETSK 
110$ 


Queue  request  to  task 

If  CC,  request  successfully  queued 


.IF   DF     N$$ACC 


#NT.C0N:CM.C0N,C.fNC(R4) 

100$  ;    If   EQ,    the  connect   request    failed 
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43 
A4 
45 
46 
47 
48 

49  000000 

50  000000 

51  000000 

52  000000 
55  000000 

54  000000 

55  000000 

56  000000 

57  000000 
58 

59 


.SBTTL  Macro  definitions 


.MCALL 
.MCALL 
.MCALL 
.MCALL 

CCBDFS 
ECDDBS 
MBXDFS 
LLWDFS 
CNBDFS 
NSSYMS 
MSGDFS 
LLTDFS 
DHBDFS 


000001 


N$$SES  =  1 


SAVRG,RESRG,MAP,CALLE,SAVMAP,RESMAP,RECMAP,MAPLLT 
$ JERRC 

CCBDF$,ECDDB$,MBXDF$,LLUDF$, CNBDFS, NSSYMS, MSGDFS 
LLTDFS, DHBDFS 

Define  CCB  offsets 

Define  ECL  database  offsets 

Define  mailbox  offsets 

Define  window  block  offsets 

Define  connect  pending  block  offsets 

Define  NS:  symbols 

Define  message  flags 

Define  LLT  offsets 

Define  DEC  home  block  offsets 

This  module  is  part  of  session  control 
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User/network  abort  and  disconnect  data  processing 


515 

516 

517 

518 

519 

520 

521 

522 

525 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

5«4 

545 

546 

547 

548 

549 

550 

551 


.SBTTL  User/network  abort  and  disconnect  data  processing 

**-AB0-Network  disconnect 
**-A8T-User  abort 
♦»-DSC-User  disconnect 


Process  the  disconnect/abort  event. 


Inputs: 

R1  =  Address  of  CCB 

R3  =  Address  of  I/O  packet 

R4  =  Virtual  address  of  user's  buffer 

User's  buffer  is  mapped 
R5  =  Address  of  database  descriptor 
2(SP)  -  It  of   bytes  to  be  transferred 
4(SP)  -  High  byte:  Data  type  code 

Low  byte:   I/O  status  return  code 
6(SP)  -  Address  of  I/O  packet 

Registers  modified; 
RO,  R2,  R4 

.ENABL  LSB 


000540  116166  000004 

000546  000405 

000550 

000550  016600  000002 

000554  001402 

000556 

000562  010104 

000564  116466  000011 

000572 


000002 


000003 


ABO: 

MOVB 
BR 

C.NSP(R1),2(SP)  ; 
10$ 

AST: 
DSC: 

MOV 
BEQ 
CALL 

2(SP),R0 

10$ 

HOVDAT 

10$: 

MOV 

M0V8 

CALLR 

R1,R4         ; 
C.M0D(R'.),3(SP)  ; 
DISCMP 

.  Fill  in  disconnect  error  code 
;  Enter  common  code 


Get  *  of  bytes  to  transfer 

If  EQ,  none 

Copy  optional  data  to  user  buffer 


Change  register  conventions 

Put  CUN  *  in  high  byte  of  second  I/O  status  word 

Complete  the  disconnect 


.DSABL  LS8 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

R$$MPL 

-  ****** 

18-674 

R$$PRO 

r  ****** 

18-670 

19-747 

SPA 

000172 

R 

7-91 

#10-312 

SRSTD 

=  ****** 

r,x 

18-678 

TDISP 

000A30 

R 

11-373 

#11-385 

TLACHK 

=  ****** 

fix 

19-722 

T.NAM 

=  ****** 

GX 

18-625 

18-626 

UISAR6 

=  ****** 

GX 

18-682 

USSDON 

=  000000 

9-289 

9-290 

USSDSC 

=  00000^ 

9-294 

VFY 

0004A6 

R 

11-391 

#13-474 

W.LLT 

00000^ 

9-223 

W.TMP 

000010 

9-226 

XSSHDR 

=  ****** 

9-199 

9-208 

SCALLX 

r  ****** 

GX 

9-232 

$CLQIO 

000000 

RH 

#9-186 

SCTQIC 

000000 

RG 

#7-83 

SIOPKT 

r  ****** 

GX 

*9-226 

*9-268 

SMAIBX 

-  ****** 

GX 

♦19-721 

SRQNAM 

r  ****** 

GX 

*18-625 

•18-626 

sues 

r  ****** 

GX 

9-214 

9-292 


9-271 


9-293 


19-726 

18-630    18-667 


18-668 
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SYMBOL  VALUE 


REFERENCES 


EVSCOZ 

=  000011 

#6-51 

EVSDBR 

=  000302 

#6-51 

EVSGAS 

=  035101 

#6-51 

EVINCE 

=  0551U 

#6-51 

EVSHCI 

=  035113 

#6-51 

EVSHFE 

=  000506 

#6-51 

EVSIFL 

=  0O0A13 

#6-51 

EVSIFO 

=  OO0A15 

#6-51 

EVSIFS 

=  0004U 

#6-51 

EVSINF 

=  000515 

#6-51 

EV$LDL 

=  000407 

#6-51 

EVSLDN 

=  010416 

#6-51 

EVSLDO 

=  000411 

#6-51 

evsld: 

=  000410 

#6-51 

EVSLSC 

=  000500 

#6-51 

EVSLUP 

=  000412 

#6-51 

EVSNOL 

=  000402 

#6-51 

EVSNRC 

=  000416 

#6-51 

EVSNSC 

=  000200 

#6-51 

EVSNUL 

=  000401 

#6-51 

EVSNVR 

=  000406 

#6-51 

EVSDPL 

=  000403 

#6-51 

EVSPCC 

=  034000 

#6-51 

EVSPCI 

=  034001 

#6-51 

EVSPCM 

=  034002 

#6-51 

EVSPFE 

=  000404 

#6-51 

EVSPPC 

=  034003 

#6-51 

EVSRCF 

=  000517 

#6-51 

EVSRDC 

=  010001 

#6-51 

EVSRDR 

=  010002 

#6-51 

EVSRJE 

=  035106 

#6-51 

EVSRSC 

=  000501 

#6-51 

EVSRUL 

=  000405 

#6-51 

EVSSNA 

=  035000 

#6-51 

EVSSNF 

=  000516 

#6-51 

EVSSPE 

=  035001 

#6-51 

EVSXCE 

=  034110 

#6-51 

EV$XDI 

=  013600 

#6-51 

EVSXGW 

=  034111 

#6-51 

EVSXMX 

=  000514 

#6-51 

EVSXRS 

=  000512 

#6-51 

EVSXSC 

=  000513 

#6-51 

EV$X2S 

=  013500 

#6-51 

EV.CCB 

=  000001 

#6-51 

EV.CIR 

=  000020 

#6-51 

EV.LCB 

=  000100 

#6-51 

EV.LIN 

=  000004 

#6-51 

EV.MAP 

=  000002 

#6-51 

EV.MOD 

=  000040 

#6-51 

EV.NOD 

=  0O0O10 

#6-51 

EV.PR'' 

=  000200 

#6-51 

ESDATA 

000020 

#6-51 

I  12 

PAGE  2 

CREF   04.00 


SF^jrTRllS      rRFATFn   RY      MACRO      ON   28-JUN-85    AT    19:54 


PAGE   3 


J  12 


I  13 

SESDAT  -  Session  control  local  MACRO  V05.03b  Friday  28-Jun-85  19:5A  Page  9-1 
Executive  vector  table 

185  .IF  DF  R$$PRO 

186  ZriM2::  .WORD   $ZTIMEt2 

187  .IFF    ;  DF  R$$PRO 

188  000366  OOOOOOG  ZTIM2::  .WORD   $ZTIM2 

189  .ENDC   ;  DF  R$$PRO 

190  000051  SVECLN  ==  .-$VECTB/2 
191 
192       000001  .END 
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Symbol    table 


.    ABS. 

0001 2A 

000 

(RW, 

,r.Ri 

ABS 

OVR) 

000146 

001 

(RU, 

,1  (1 

,RH 

(.UN  J 

$H1GH 

000022 

002 

(RW. 

,LCL 

,RtL 

VM) 

Errors 

detected: 

0 

***   nssembler   statistics 


Work      file      reads:  0 

Work      file   writes:  C 

Size  of  "ork   file:  15488  Words 

Size  of  core  pool:  16552  Words 

Operating     system:  RSX-11M/PLUS 


(  61  Pages) 
(  65  Pages) 


SY:SESDIsns;v2?n3l!n4]SESDIS11S/CR/-SP=SY:[1  J]RSXMCM.SML/ML,[130J10]NETLIB/ML,[130JO]RSXMCS/PA:1,[131,10]V 


cccrMCIIc       rDt.Mcn    Dv       MATDn       nM    5R-MIM-SS    AT    IQ-'iS 


PAflF    1 


J    14 


J      L 


5ESDM011S      CREATED  BY     MACRO     ON  ?8-JUN-85   AT    19:55 
SYMBOL    CROSS   REFERENCE 


1  15 

PAGE   5 

CREF        04.00 


SE 


SYMBOL 

VALUE 

REFERENCES 

E$MOD 

000012 

#6-48 

ESNOD 

000010 

#6-48 

ESPORT 

OOOOU 

#6-48 

E$PRM 

000002 

#6-48 

ESSTAT 

000006 

#6-48 

EITCB 

000004 

#6-48 

E.CTL 

000020 

#6-48 

E.DATA 

000046 

#6-48 

E.EVT 

000002 

#6-48 

E.LCN 

000042 

#6-48 

E.LEN 

000216 

#6-48 

E.LIN 

000024 

#6-48 

E.LN< 

000000 

#6-48 

E.MOD 

000036 

#6-48 

E.NOD 

000034 

#6-48 

E.PDV 

000021 

#6-48 

E.PORT 

000040 

#6-48 

E.PRM 

000026 

#6-48 

E.PVC 

000044 

#6-48 

E.SIZ 

000022 

#6-48 

E.TIME 

000004 

#6-48 

FLSLNK 

000000  R 

7-104 

FRSBCC 

=  000007 

#6-48 

rRSCCF 

=  000001 

#6-48 

RSCDF 

=  OOOOOZ 

#6-48 

FRSDAQ 

=  000011 

#6-48 

FRSEXC 

=  000000 

#6-48 

FRSFRM 

=  000010 

#6-48 

FRSFTL 

=  000005 

#6-48 

FRSOPN 

=  000004 

#6-48 

FRSRFD 

=  000006 

#6-48 

FRSSBU 

=  000012 

#6-48 

FRSSHO 

=  000003 

#6-48 

FRSUBU 

=  000013 

#6-48 

FRSUPT 

=  000014 

#6-48 

lOSUC 

=   »»♦**»     GX 

7-91 

I.FCN 

=   ......     GX 

7-70 

KILLNK 

r  »«»»»«   GX 

8-131 

L.DCR 

000100 

•8-129 

MOSSAC 

=  000016 

#6-48 

MOSSPR 

=  000012 

#6-48 

MDSSSV 

=  000014 

#6-48 

MOS25A 

=  000006 

#6-48 

MO$25P 

=  000002 

#6-48 

MO$25S 

•^  000004 

#6-48 

M0$29S 

=  000010 

#6-48 

MSHIGH 

=  000003 

#6-48 

M$3100 

=  000000 

#6-48 

M$3101 

=  000001 

#6-48 

M$3102 

=  000002 

#6-48 

M$3103 

=  000003 

#6-48 

NFSDMO 

=    .jOOTO 

7-68 

#8-120 


6-48 


^  rct>.     D  V 


_0Q  AT   1  Q.  t;t; 


J  15 


r 
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Scan  general  delivery  queue 


271 

272 

273 

27^ 

275 

276 

277 

278 

279 

280 

281 

282 

285 

284 

285 

286  000164 

287 

288  000164 

289  000170 

290  000172 

291  000174 

292  000176 

293  000202 

294  000204 

295  000206 
296 

297 

298 

299 

300  000212 

301 

302 

303  000216 

304  000222 

305  000230 

306  000236 

307  000244 

308  000250 
309 

310  000252 

311  000254 

312  000256 

313  000262 

314  000266 

315  000270 

316  000274 

317  000302 

318  000304 

319  000310 

320  000312 

321  000316 

322  00032C 

323  000324 

324  000326 

325  000330 
326 

327  000332 


.S8TTL  Request  task  to  run  (from  AUX  request) 

*»-AUXTSK-Request  task  to  run 

Look  for  task  requests  from  AUX  by  scanning  the 
network  management  completion  list 


Inputs : 

none 


Registers  modified: 
all 

.PSECT  SHIGH 


016704  OOOOOOG 

010402 

011404 

001465 

005764  000034 

001053 

010403 

062703  000036 


012713  131574 


012743 
152764 
012767 
016764 

103030 

011412 
001005 
016746 
062716 
010236 
016446 
122764 
001003 

000402 

010204 
032726 
001321 
011404 
000750 


032764  040000  000012  40$: 


046166 

000010  000011 
OOOOOOG  OOOOOOG 
OOOOOOG  000042 


OOOOOOG 
000002 

000012 

000002  000003 


040000 


AUXTSK. 

MOV 

NMCLH,R4 

10$: 

MOV 

R4,R2 

MOV 

(R4),R4 

BEQ 

50$ 

TST 

C.ADD(R4) 

BNE 

40$ 

MOV 

R4,R3 

ADD 

#C.ADDt2,R3 

.JF  DF 

N$$MCP 

MOV 

#*R$$$,(R3) 

.IFF 

MOV 

#*fi...,(R3) 

.ENDC 

MOV 

#"RLIN,-(R3)    ; 

B]S8 

#CX.SMC,C.M0D(R4) 

MOV 

#N$$SMC,$RQCPY  ; 

MOV 

$C0PT,C.PR0(R4)  ; 

CALL 

REOTSi 

BCC 

40$ 

15$: 

MOV 

(R4),(R2) 

BNE 

25$ 

MOV 

NMCLH,-(SP) 

ADD 

#2,(SP) 

MOV 

R2,a(SP)t 

25$: 

MOV 

C.STS(R4),-(SP)  ; 

CMP8 

#CB.CCB,C.BID(R45 

BNE 

30$ 

CALL 

aCCBRT 

BR 

35$ 

30$: 

CALL 

aRDBRT 

35$: 

MOV 

R2,R4 

BIT 

#CS.LST,(SP)+   . 

BNE 

10$ 

MOV 

(R4),R4 

BR 

15$ 

Get  the  first  element  in  the  list 

Save  the  previous  link  word  address 

Get  next  element 

If  EQ,  end  of  list 

Is  this  for  NETACP  ? 

If  NE,  no 

Copy  the  CCB  address 

Set  up  the  task  name  pointer  for  REOTSI 


and  make  task  name  LIN$$$ 
and  make  task  name  LIN... 


;  Always  treat  line  watcher  as  multi  copy 
Set  up  maximum  number  of  copies 
Run  LINiSI  under  CO: 
Request  the  task 
If  CC,  continue 

Else,  remove  this  CCB  or  RDB  from  the  list 
If  NE,  its  not  at  the  end  of  the  list 
Else,  update  the  tail  pointer 

Save  the  chained  buffer  flag 

;  Roturn  the  CCB  or  RDB  to  the  free  list 

If  NE,  its  an  RDB 

Return  the  CCB 

Continue  searching  the  list 

Return  the  RDB 

Copy  the  'previous'  element 

Was  this  the  last  one  in  the  chain  ? 

If  NE,  yes 

Get  next  element  in  chain 

Continue  returning  this  chain 


#CS.LST,C.STS(R4)  ;  Is  this  the  last  one 


J  16 


n 
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56 
57 
58 
59 

60 
61 
62 

63  000000 

64  000000 

65  000000 

66  000000 
67 
68 
69 

70  OOOOOA 

71  000000 

72  000000 

73  000002 

74  000004 

75  000006 
76 

n 

78 
79 

80  000010 

81  000012 

82  OOOOU 

83  000016 

84  000020 
85 

86  000000 
87 
88 

M 

95 

%s 

98 

99 

100 

101 
102 
103 
104 
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.S8TTL  Macro  definitions 


000002 
000002 
000002 


.MCALL 

PDVDFS, CCBDFS, MDC 

.IF  DF 

RSSPRO 

.MCALL 

LINDFS 

LINDFS 

; 

.ENDC 

PDVDFS 

; 

CCBDFS 

; 

MDCDFS 

• 

SLTDFS 

; 

DEFINE 

LOCAL  STATE  VALUES 

.ASECT 

.=0 

ST.IDL 

:.BLKU 

ST.UR6 

.-.BLKU 

ST.WCN 

:.BLKW 

ST.CDL 

:.BLKW 

.IF  DF 

XSSD52 

ST.DLY 

:.BLKW 

ST.CFL 

:.BLKW 
.ENDC 

ST. ACT 

:.BLKW 

ST.ADL 

:.BLKU 

ST.CER 

:.BLKW 

ST. DDL 

:.BLKW 

ST. ABO 

:  RLKU 
.PSECT 

TIMER  VALUES 

.IF  NDF 

XSSD52 

TM.DIS 

=2 

TM.COM 

=2 

TM.ACT 

=2 

DEFINE  PRO/DECnet  LINE  DESCRIPTOR 

DEFINE  PDV  OFFSETS 

DEFINE  CCB  OFFSETS 

DEFINE  MODEM  CONTROLLER  CONSTANTS 

DEFINE  SYSTEM  LINE  TABLE  OFFSETS 


LINE  IDLE 

WAITING  FOR  RING 

WAITING  FOR  CONNECT 

CARRIER  DELAY  TO  SEE  IF  CONNECTED 

Delay  for  Carrier  and  Clear  to  Send 
Connect  failure 

LINE  IS  ACTIVE 

CARRIER  DELAY  TO  SEE  IF  LINE  IS  ACTIVE 
LOST  CARRIER  OR  DSR  WHILE  ACTIVE 
DISCONNECT  DELAY  TO  ALLOW  CIRCUITS  TO  RESET 
POST  ABORT  TO  DLC  LEVEL 


TIMER  FOR  DISCONNECT  DELAY 
TIMER  FOR  CARRIER  CONNECT  DELAY 
TIMER  FOR  CARRIER  ACTIVE  DELAY 


.IFF 


All  timer  values  are  N  +  1  since  a  request  for  1  second  timer 
service  result"  in  a  timer  dispatch  occurring  in  0  to  1  second. 


TM.CHK 

=  1 

TM.CON 

=  30. 

TM.ACT 

=  2 

TM.DIS 

=  5 

.ENDC 

+  1 
t  1 


Timer  for  delay  before  checking  CTS  %   CD 

Timer  to  protect  against  non-data  calls 

Timer  for  lost  Carrier  delay 

Timer  for  disconnect  delay 


K     1 
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AXMDC  -  AUX  MODEM  CONTROLLER 
ST.CDL  -  CONNECT  DELAY 

A95 
496 
497 
498 

499 

500 
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30$: 


BCC 

RETURN 

MOVB 

CALLR 

.ENDC 


30$ 

M.LIN(R5), 
DISC 


R4 


CCB  aH.ocation  successful? 
No  . . .  Try  again  next  timeout 
Yes  ...  Pass  line  number 

Goto  post  disconnect 
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AXMDC      CREATED  BY  MACRO  ON  28-JUN-85  AT  18:30 
SYMBOL  CROSS  REFERENCE 
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PAGE  3 

CREF   OA.OO 


SYMBOL  VALUE 


ST. ABO 

ST. ACT 

ST.ADL 

ST.CDL 

ST.CER 

ST. DDL 

ST.IDL 

ST.WCN 

ST.WRG 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TM.ACT 

TM.CON 

TM.DIS 

X$tD52 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCM 

SMDCIN 

SPABQ 

SSCHPR 

$SCHP? 


000020 
000010 
000012 
000006 
OOOOU 

oooo-i^ 

000000 

OOOOOA 

000002 

000001 

000000 

000004 

000002 

000003 
=  000002 
=  000002 
=  000002 

=:  ****** 
r  ****** 

=  001000 
=  000001 
=  OOAOOO 
=  000002 
=  100000 
=  OAOOOO 
=  000020 
=  OOOOOA 
=  000100 
=  020000 
=  000010 
=  OOOAOO 
=  OOOOAO 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 

000014 

000016 

000000 

000010 
=  000016 

000006 

000020 

000004 

000012 

000007 

000244  RG 

000216  RG 

001100  RG 

001106  RG 


REFERENCES 

#5-84 
#5-80 
#5-81 
#5-75 
#5-82 
#5-83 
#5-72 
#5-74 
#5-73 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-93 
#5-92 
#5-91 

5-76 

5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#12-296 

10-248 

11-278 
#24-694 


10-254 

17-514 

18-543 

10-239 

20-602 

10-245 

14-393 

9-199 

8-178 


18-542 

15-417 

10-236 

5-90 

5-63 


19-586 

15-418 

11-276 
23-665 
10-237 


16-457 


6-1 1i 


10-241 


15-412 


16-450 


18-537 


12-299 
5-63 


#11-274 
14-395 


22-645 

17-516 


25-b67 


#24-692 


AXMDC 
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SYMBOL 

VALUE 

REFERENCES 

Z.LLN 

000006 

#5-62 

Z.MAP 

000020 

#5-62 

Z.NAM 

000004 

#5-62 

Z.PCB 

000012 

#5-62 

Z.SCh 

000007 

#5-62 

$FR<HD 

~      *■**♦** 

fix 

6-203 

SSQSRV 

000000 

RG 

#6-96 

•6-204 
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599 
400 
A01 
402 
403 
40A 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 


000534  016666  000010  000014 

000542  016666  000006  000012  50$: 

000550  016666  000004  000010 

000556  012666  000002 

000562  012666  000002 


000566 


MOV 

10(SP 

,14(SP) 

MOV 

6(SP) 

12(SP) 

MOV 

4(SP) 

10(SP) 

MOV 

(SP)  + 

2(SP) 

MOV 

(SP)  + 

2(SP) 

.IFF 

MOV 

4(SP) 

RO 

MOV 

(RO),- 

■(SP) 

MOV 

10(SP 

,(R0) 

MOV 

(RO), 

^0 

MOV 

(SP)  + 

(RO) 

MOV 

(SP)  + 

RO 

MOV 

(SP)  + 

(SP) 

MOV 

(SP)  + 

,(SP) 

.ENDC 

RETURN 

shuffle  around  stack 

...  and  clean  addresses  off 


get  block  address 

saue  address  of  next  block  in  list 

set  new  link  word  into  block 

point  to  next  block 

set  new  link  word 

restore  RO 

clean  off  stack  (saving  return 

...  address) 


AXSUB 
c  r  M  t  ht  r 
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AXTIM  -  AUXILLIARY  PROCESS  TIME 
ONCE-PER-SECOND  TIMER  SERVICE 


6A 

65 

66 

67 

68 

69 

70 

71 

72  000000 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82  000000 

83  OOOOOA 

84  000010 

85  000012 

86  000016 

87  000024 

88  000026 
89 

90  000032 

91  000036 
92 

93  000042 

94 

95 

96 

97 

98  000044 

99 
100 

101  000050 
102 
103 
104 
105 
106  000054 


J  6 

MACRO  V05.03b  Friday  28-Jun-85  18:31  Page  6 

.SBTTL  ONCE-PER-SECOND  TIMER  SERVICE 

♦*-PRlSC-0NCE-PER-SECOND  TIMER  SERVICE 

THIS  ROUTINE  IS  ENTERED  ONCE  EVERY  SECOND  AND  WILL  DISPATCH 
TIMEOUT  CALLS  TO  COMM/EXEC  PROCESSES. 


PR1SC: 


10$; 


.IF  DF  R$$MPL 
.IF  NDF  R$$PR0 


005167  000044 

001010 

005277  OOOOOOG 

022777  124300  OOOOOOG 

001002 

005077  OOOOOOG 

016700  OOOOOOG 

017702  OOOOOOG 


BIT 
BED 
CLR 

.ENDC 
.ENDC 

CALL 

COM 

8NE 

INC 

CMP 

BNE 

CLR 


$T1SIN::M0V 
MOV 


#F2.MP,aFMSK2 

10$ 

R5 


ONESEC 

TIMFLG 

$T1S1N 

aZTIM2 

#43200. 

$T1SIN 

aZTIM2 


,aZTIM2 


005001 


012704  000006 


CLCINS:  CLR 


.IF  DF 

MOV 

.IFF 

MOV 

.ENDC 


TISCL.RO 
aTKPS,R2 

R1 

R$$MPL 
#C.SrTK,R4 

#C.SVST,R4 


CALLR   aCLINS 

LOCAL  TIMER  FLAG 
TIMFLG:  .8LKW   1 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

SHOW  GENERAL  TIMER  SCAN 


PERFORM  ONCE-PER-SECOND  OPERATIONS 

TOGGLE  EVERY  SECOND 

ONLY  DO  NEXT  INSTRUCTION  EVERY  2  SECONDS 

INCREMENT  SECS/2  SINCE  MIDNIGHT 

WRAPAROUND? 

IF  NOT  -  BR 

ELSE  -  ZERO 

GET  ADDRESS  OF  CLOCK  QUEUE  ENTRY 
GET  #  OF  TICKS  PER  SECOND 

NO  HIGH  ORDER  NUMBER  OF  TICKS 


SET  SYSTEM  REQUEST  INDICATOR 
SET  SYSTEM  REQUEST  INDICATOR 

AND  INSERT  ENTRY  INTO  CLOCK  QUEUE 


K  6 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

ONE  SEC 

000056 

R 

6-82 

#8-163 

PDDSP 

=   ****** 

GX 

11-397 

PDSPL 

=   ****** 

GX 

11-408 

PDVNM 

=   ****** 

GX 

8-230 

PDVTA 

r  ****** 

GX 

8-229 

8-256 

11-393 

PR1SC 

000000 

RG 

#6-72 

PR100M 

00024A 

RG 

#9-291 

PR7 

::  ****** 

GX 

11-347 

12-430 

PS 

=  ****** 

GX 

♦11-347 

♦  11-373 

•11-416 

12-430 

♦12-430 

♦12-455 

PURFl 

=      ****** 

GX 

8-163 

11-344 

R$$MPL 

-  ****** 

6-72 

6-95 

7-108 

8-166 

8-180 

8:19''„ 

11-349 

11-363 

12-432 

12-445 

13-471 

13-490 

R$$PR0 

=     ****** 

8-263 

R$$110 

~     ****** 

5-60 

R$$11M 

=  000000 

5-60 

R$$115 

=  ****** 

5-60 

SCANST 

000300 

R 

9-292 

#11-344 

SF.ACT 

=  000200 

#5-59 

SF.ENA 

=  000100 

#5-59 

SF.LPB 

=  000004 

#5-59 

SF.MFL 

=  000040 

#5-59 

SF.PAC 

=  000020 

#5-59 

SF.REA 

=  000010 

#5-59 

SF.SER 

=  000001 

#5-59 

SF.SVC 

=  000002 

#5-59 

5F.UNL 

=  000040 

#5-59 

SLTMA 

=  ****** 

GX 

8-176 

SLTNM 

=  ****** 

GX 

8-177 

STALT 

000A76 

R 

11-384 

11-411 

#12-429 

13-484 

STDD1 

=   ****** 

GX 

11-406 

STDLl 

:::  ****** 

GX 

11-403 

STMFC 

=:  ****** 

GX 

11-396 

11-407 

S.COST 

000001 

#5-59 

S.FLG 

000000 

#5-59 

S.LEN 

000004 

#5-59 

S.NMST 

000002 

#5-59 

S.OWNR 

000003 

#5-59 

TIMFLG 

000054 

R 

*6-83 

#6-106 

TKPS 

-   ****** 

GX 

6-91 

TKIOO 

r   ****** 

GX 

9-298 

TSTI«1 

-   ****** 

GX 

8-212 

8-219 

v 

T1SCL 

-      ****** 

GX 

6-90 

T100C 

r  ****** 

GX 

9-297 

T1000 

—  ****** 

GX 

9-291 

9-294 

13-469 

XF.CAN 

=  000200 

#5-62 

XF.DDM 

=  000001 

#5-62 

XF.DLC 

=  000002 

#5-62 

11-400 

XF.LLC 

=  000004 

#5-62 

11-389 

X$$MCB 

::  ****** 

5-60 

5-60 

X.FLAG 

000003 

#5-62 

11-382 

X.ID 

000002 

#5-62 

11-387 

X.LIW 

000000 

#5-62 

8-238 


8-264 


10-303 


AXTIM 
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Process  incoming  connect  request 


518 

319  000662 

320  000670 

321  000674 

322  000700 
323 

324 

325  000702 

326 

327 

328 

329  000710 

330  000712 

331  0007U 


112764 
016A03 
10576A 
001361 


000201 
000026 
000033 


000010 


012765  000042  000022 


000261 


100$: 
110$: 


.IF 

M0V8 

MOV 

TSTS 

8NE 

.ENDC 

MOV 

.ENDC 

SEC 

RESRG 

RETURN 


NDF  R$$PR0 

#NT.CONICM.CON,C 

C.euF2+2(R4),R3 

C.FLG2+1(R4) 

50$ 

;  NDF  R$$PRO 


#ER$ACC,N$ERRC(R5) 


;  Dont  retry  if  P/OS  login  failed. 

,FNC(R4) 

;  Recover  pointer  to  task  name 

;  Verification  level  other  than  0? 

;  If  NE,  yes  ...  retry  the  connect 


<R3> 


Indicate  connect  error 
Restore  register 
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Network  control  QIO  processing 


61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83  000000 

8A 

85 

86 

87 

QQ 

89  000004 

90  000006 

91  000010 

92  000012 

93  000014 

94  000016 
95 

96 

97  000020 

98 

99 
100 
101 
102  00C022 


000000 


000024- 
000000' 
000172' 
000302' 
000302' 
000302' 


000350' 


001232' 


.SBTTL  Network  control  QIO  processing 

**-$CTQIO-Network  control  QIO  processing 

This  routine  process  all  network  control  QIO's. 

Inputs; 

R1  =  Address  of  the  task's  header 

R2  =  I/O  subfunction  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

Outputs:  (to  processing  routines) 

Rl  =  Address  of  the  task's  header 

R2  =  Subfunction  code 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

.PSECT  $HIGH 

SCTQIO: :CALLR   aCTLDSP(R2)     ;  Dispatch  to  processing  routine 

Network  control  subfunction  dispatch 


CTLDSP:  .WORD  OPN 

.WORD  CLS 

.WORD  SPA 

.WORD  GND 

.WORD  GND 

.WORD  GND 


.IF  DF  N$$PEM1N$$ACC 

.WORD  PEM 

.IFF 

.WORD  .+1 

.ENDC 

.WORD  "IJLN 


Network  access  (sub  fcn=  0) 

Network  deaccess  (sub  fnc=  10) 

Specify  network  data  AST  (sub  fcn=  20) 

Get  network  data  (sub  fcn=30> 

Get  network  data  length  and  type  (sub  fcn=40) 

Get  network  data  specific  type  (sub  fen  =50) 


Post  euent  on  mailbox 

Unsupported  (filtered  out  by  driuer) 


Get  local  node  information 
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SESCTL  -  Session  control  contro  MACRO 
Network  event  data  processing 

553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 

573  000576  016600  000002 

574  000602  001402 
575 

576  000604 

577  000610  010104 

578  000612 
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.SBTTL  Network  event  data  processing 
**-EVT-Network  event  data  processing 
Process  the  network  event. 


Inputs: 


R1  =  Address  of  CCB 

R3  =  Address  of  I/O  packet 

R4  =  Virtual  address  of  user's  buffer 

User's  buffer  is  mapped 
R5  =  Address  of  database  descriptor 
2(SP)  -  #  of  bytes  to  be  transferred 
4(SP)  -  High  byte:  Data  type  code 

Low  byte:   I/O  status  return  code 
6(SP)  -  Address  of  I/O  packet 


Registers  modi  f ied: 
RO,  R2,  R4 


EVT: 


10$: 


MOV 
BEQ 

CALL 

MOV 

CALLR 


2(SP),R0 
10$ 

MOVDAT 

R1,fi4 

RETRES 


Get  *  ot  bytes  to  transfer 
If  EQ,  none 

Copy  the  event  data 
Copy  CCB  address 
Return  the  resources 
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SESCTLllS 

CREATED  BY  MACRO  ON  28- 

-JUN-85  AT  19 

54     PAGE 

4 

MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

8-157 

9-192 

9-225 

9-229 

9-236 

lA-510 

15-545 

16-576 

17-602 

18-643 

18-69A 

19-722 

19-738 

19-740 

19-769 

CALLE 

#6-A4 

9-232 

CALLR 

7-83 

8-167 

9-283 

10-328 

11-377 

CALLX 

#9-232 

9-232 

CCBDFS 

#6-';6 

6-49 

CNBDFS 

#6-!.6 

6-53 

DHBDFS 

#6-'i7 

6-57 

ECDDBS 

#6-A6 

6-50 

LLTDFS 

#6-A7 

6-56 

LLWDFS 

#6-46 

6-52 

MAP 

#6-44 

11-370 

18-660 

19-717 

20-799 

MAPLLT 

#6-44 

MBXDFS 

#6-46 

6-51 

MSGDFS 

#6-46 

6-55 

NSSYMS 

#6-46 

6-54 

RECMAP 

#6-44 

18-682 

RESMAP 

#6-44 

RESRG 

#6-44 

8-158 

9-238 

9-269 

13-482 

RETURN 

12-^44 

13-485 

17-604 

19-775 

SAVMAP 

#6-44 

SAVRG 

#6-44 

8-154 

9-188 

9-222 

13-477 

SOB 

20-810 

SIERRC 

#6-45 

11-379 

18-641 

18-645 

18-695 

9-240 

18-654 

19-773 

14-513 


9-282 
18-678 


15-549 


11-346 
18-685 


16-578 


n-373 
18-688 


18-692 


13-481 
18-691 


20-826 


17-603 

17-594 
19-777 


18-655 
18-647 


»*FII  E«MD««SESCTR 
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SESCTRIIS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:5A     PAGE  3 

SYMBOL  CROSS  REFERENCE  CREF   0^.00 


SYMBOL  VALUE 


ESEVTS 

EILCN 

ESLIN 

EtMOD 

ESNBR 

E$NBS 

E$NCR 

ESNCS 

EINIC 

ESNLEN 

ESNLLA 

ESNLNK 

ESNML 

ESNMR 

E$NMS 

ESNNOD 

ESNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESPORT 

E$PRM 

ESSTAT 

ESSTRT 

E$TCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FRSBCC 

FRSCCF 

FRSCDF 

FRSDAO 

FRSEXC 

FRSFRM 

FRSFTL 

FRJOPN 

FRSRFD 

FRSSBU 


000000 
000016 
000000 
000012 

oooou 

000020 

000034 

000036 

0000A4 

000050 

000012 

000000 

000040 

00002A 

000030 

000002 

000010 

000042 

000005 

000010 

000046 

000004 

000014 

000002 

000006 

000006 

000004 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

=  000007 

=  000001 

=  000002 

=  000011 

=  000000 

=  000010 

=  000005 

=  000004 

=  000006 

=  000012 


REFERENCES 

#6-51 
#6-51 
#6-51 
#6-51 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-51 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-51 
#6-51 
#6-51 
#6-48 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 
#6-51 


»9-184 


♦9-187 
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SESDAT   -   Session  control    local 
Symbol   table 
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ALOCB 

000256RG 

K1SAR6= 

«****«  GX 

N.RND 

000000 

X$$D8T= 

000000 

SMAIBX 

00001 6RG 

ASiCHK= 

000000 

KSAR6 

000250RG 

N.RNM 

000016 

ZTIM2 

000366RG 

$MENU 

000030RG 

A$tCPS= 

000000 

K$$CNT= 

177546 

N.RNMC 

000014 

SACCNT 

000202RG 

$MVFBF= 

******  GX 

A$$PRI= 

000000 

<$$CSR= 

177546 

N.ROT 

000007 

$ALOCB= 

«*♦***  GX 

$NMCLH= 

**♦«**  GX 

A$$TRP= 

000000 

K$$LDC= 

000000 

N.RPS 

000056 

$BLXIO= 

*»«**♦  GX 

$0BJHD= 

******  GX 

BLXIO 

000260RG 

K$$TPS= 

000074 

N.RPSC 

000054 

$BYTE 

000020RG 

SOPDAT 

000226RG 

CALLX 

00031 2RG 

LDBGT 

000342RG 

N.RQL  = 

000110 

$CALLX= 

»«*»»*  GX 

SOPLNG 

000224RG 

CCBGT 

0003URG 

LDBRT 

000344RG 

N.RUS 

000012 

$CC8GT= 

******  GX 

SPASSW 

0001 70RG 

CCBRT 

000316RG 

LD$LP  = 

000000 

OBJHD 

000354RG 

$CC8RT= 

******  GX 

$PDVID= 

******  GX 

CEACC 

000320RG 

LLCRS 

000346RG 

PDVID 

000356RG 

$CEACC= 

******  GX 

$PDVTA= 

******  GX 

CEDIV 

000324RG 

LOCAL 

000062RG 

PDVTA 

000360RG 

$CEDIV= 

******  GX 

$QRMVF= 

******  GX 

CELOG 

000322RG 

L$$ASG= 

000000 

P$$P45= 

000000 

$CELOG= 

******  GX 

$QUEBF= 

******  GX 

CEMUL 

000326RG 

L$$DRV= 

000000 

P$$URD= 

000000 

$CEMUL= 

******  GX 

$RCCB 

000022RG 

CMPDV 

000330RG 

L$$P11= 

000001 

QRHVF 

000274RG 

$CMPDV= 

******  GX 

$RDBRT= 

******  GX 

CSBGT 

000332RG 

L$$11R= 

000000 

QUEBF 

000276RG 

SCNBLK 

000070RG 

$RDBSZ= 

******  GX 

CSBRT 

000334RG 

MVFBF 

000350RG 

Q$$OPT= 

000010 

$CSB6T= 

******  GX 

SREASN 

000034RG 

C$$ORE= 

OOO'.OO 

M$$CRB= 

000124 

RDBRT 

000362RG 

$CSBRT= 

******  GX 

SREQID 

000146RG 

C$$RSH= 

177564 

M$$CRX= 

000000 

RD8SZ 

000364RG 

$DEACB= 

******  GX 

SROCPY 

000014RG 

DEACB 

000252RG 

M$$FCS= 

000000 

R$$DER= 

000000 

$DECPT= 

******  GX 

SRQNAM 

00001  ORG 

DECPT 

000336RG 

M$$HGE= 

000000 

R$$K11= 

000001 

$DEVHD= 

******  GX 

SRQTCB 

000006RG 

DEVHD 

000264RG 

M$$MUP= 

000000 

R$$SND= 

000000 

$DREXT=: 

******  GX 

SSEGMT 

000026RG 

DREXT 

000266RG 

M$$NET= 

000000 

R$$11|V|= 

000000 

SDSDFM 

000076RG 

SSESDB 

OOOOOORG 

D$$BUG= 

1775K 

M$$0\/R= 

000000 

R$$11S= 

000000 

SDSDSC 

000100RG 

SSESPO 

000002RG 

D$$ISK= 

000000 

NMCLH 

000352RG 

SRSTD 

000300RG 

SDSNOD 

000070RG 

SSRDFH 

000122RG 

D$$L11= 

000001 

N$$ACC= 

000001 

STPCT 

000302RG 

SDSOBJ 

000077RG 

SSRDSC 

000124RG 

0$$YNC= 

000000 

N$$EVL= 

000001 

S$$WRG= 

000000 

SENCOD 

000036RG 

SSROBJ 

0001 23RG 

D$$yNM= 

000000 

N$$LDV= 

000001 

S$$VSZ= 

007600 

$EVDSC= 

******  GX 

$SRSTD= 

******  GX 

EVDSC 

000340RG 

N$$MLL= 

000001 

TKTCB 

000304RC 

SFLAGS 

000047RG 

SSRVCS 

000024RG 

E$$XPR= 

000000 

N$$M0V= 

000010 

TLGTH 

000252RG 

SFLOW 

000046R6 

$STPCT= 

******  GX 

FMASK 

000270RG 

N$$NCT= 

000001 

TSKRT 

000306RG 

$FMASK= 

******  GX 

$TKTCB= 

******  GX 

F$$LVL= 

000001 

N$$PEM= 

000001 

TTNS 

000310RG 

$JNFO 

000025RG 

$TSKRT= 

******  GX 

G$$TPP= 

000000 

N.RAC 

000070 

T$$KMG= 

000000 

$]OFIN= 

******  GX 

STTNS  = 

******  GX 

G$$TSS= 

000000 

N.RACC 

000066 

T$$MIN= 

000000 

SIOPKT 

000042RG 

$UCB 

000004RG 

G$$TTK= 

000000 

N.RDE 

000012 

T.LGTH= 

******  GX 

SLADDR 

000032RG 

$VECLN= 

000051  G 

G$$WRD= 

000000 

N.RDEC 

000010 

U]SAR6= 

»«*»«♦  GX 

$LDBGT= 

******  GX 

SVECTB 

000246RG 

HOST 

000054RG 

N.RFM 

000006 

USAR6 

000254RG 

$LDBRT= 

******  GX 

$WBLK 

000040RG 

lOFIN 

000272RG 

N.RGP 

000010 

VFYNAM 

000050RG 

$LLCRS= 

******  GX 

$W0RK 

000100RG 

I$$RAR= 

000000 

N.RID 

000034 

V$$CTR= 

001000 

$LTM 

000044RG 

$ZTIM2= 

******  GX 

I$$RDN= 

000000 

N.RIDC 

000032 

.  ABS. 

000110 
000370 

000  (RW,I,GBL,ABS,0VR) 

001  (RW,I,LCL,REL,C0N) 

Errors 

detected: 

0 

*•♦  Assembler  statistics 

1,/ork   f 

lie  reads 

0 

Work   1 

ile  writes 

0 

Size  01 

work  file 

9468  Words 

(  37  Pages) 

Size  of 

core  DOOl 

U4A0  Words 

(  55  Pages) 

Ooerating  system 

RSX-11M/PLUS 

SY?SESDAflTs;v2,il3i,154]SESDAT11S/CR/-SP=SY:[1,1]RSXMCM.SML/ML,n30,110]NETLIB/ML,[130,10]RSXMCS/PA:1,[131,10]V2,SESDAT 
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SESDIS1 

15 

CREATED   BY 

MACRO     ON  28-JUN-85   AT   19:55 

SYMBOL 

CROSS  REFERE^JCE 

SYMBOL 

VALUE 

REFERENCES 

ABT 

000016 

R 

6-80 

#7-107 

ACCLLT 

= 

****** 

GX 

7-119 

BRKLNK 

= 

****** 

fix 

8-K7 

CPYOPT 

= 

****** 

fix 

7-115 

8-142 

DISTBL 

oooou 

R 

6-71 

#6-79 

DSC 

000000 

R 

6-79 

#7-102 

ERSABT 

= 

000011 

7-107 

FLSHIO 

r 

****** 

fix 

7-110 

FLSHMB 

- 

****** 

GX 

7-113 

IE. BAD 

= 

****** 

GX 

8-151 

lOERR 

= 

GX 

8-151 

lOREDO 

r 

****** 

fix 

7-105 

lOSUC 

= 

****** 

fix 

6-73 

8-149 

I.PRM 

- 

****** 

GX 

7-116 

8-143 

M.USE 

000010 

*8-U1 

NSSEVL 

~ 

000001 

#4-2 

N$$SES 

= 

000001 

#5-52 

N$$VCT 

- 

****** 

7-119 

REJ 

000076 

R 

6-81 

#8-137 

SAVOPT 

- 

****** 

GX 

8-144 

SNDDIS 

= 

****** 

GX 

7-121 

TLACHK 

r: 

****** 

fix 

8-138 

U.LLT 

000004 

7-118 

W.LUN 

000003 

7-111 

W.MBOX 

000012 

7-112 

W.SNDQ 

000016 

7-103 

W.TMP 

000010 

•7-109 

SCALLX 

r 

****** 

GX 

7-119 

SDSQIO 

000000 

Hfi 

#6-69 

SMAIBX 

r 

****** 

GX 

•8-137 

SREASN 

****** 

GX 

•7-102 

•7-107 

J  u 
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SESDM011S  CREATED  Bv  MACRO  ON  28-JUN-85  AT  19:55 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


NFSSHU 

NStDON 

N$FLG 

NtGENQ 

N$LVC 

N$$BUF 

N$$ECL 

NSSEVL 

N$$SES 

N$$VCT 

OPSIN! 

OPITER 

PHSHDE 

PHSLOC 

PHSMTS 

PHSUMP 

PHSUCS 

REJECT 

RESADC 

RESADF 

RESADR 

RESBLK 

RESCAF 

RESDAT 

RESDRP 

RESLDT 

RESLSN 

RESNML 

RESOPE 

RESOPR 

RESRCV 

RESSED 

RESSKW 

RE$STA 

RESSUM 

RESSVN 

RESTME 

RESTMO 

RESTMR 

RESUPT 

RESURE 

RESVER 

RESVRQ 

RTSINI 

RTSOFF 

RTSON 

SCSOFF 

SCSON 

SCSRST 

SCSSHU 

SVSDUM 

SVSLOA 


=  000004 

=  000000 

000005 

000052 

000036 

=  ****** 
=   ****** 

=  000001 
=  000001 

=  ****** 

=  000000 
=  000001 
=  000004 
=  000002 
=  000003 
=  000000 
=  000001 

=  ****** 

=  000004 
=  000017 
=  000007 
=  000010 
=  000014 
=  000001 
=  000016 
=  000013 
=  000012 
=  000001 
=  000004 
=  000000 
=  000001 

=  oooon 

=  000006 
=  000002 
=  000003 
=  000000 
=  000021 
=  000000 
=  000020 
=  000002 
=  000003 
=  000005 
=  000015 
=  000002 
=  000001 
=  000000 
=  000001 
=  000000 
=  000003 
=  000002 
=  000001 
-  000000 


GX 


REFERENCES 

7-69 

8-141 
*7-68 

7-94 

8-120 

7-77 

7-74 
#4-2 
#6-52 

8-126 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 

7-99 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 
#6-48 


7-75 
8-142 
•  7-69 
*7-96 
8-121 


7-74 
7-74 


7-102 
8-U4 
•  7-75 
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CREf       04.00 


8-146 
7-102 


SE 

Re 


7-74 


7-74 
7-74 
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SESDSP  -  Session  control  dispat  MACRO  V05.03b  Friday  28-Jun-85  19:56  Page  10-1 
Request  task  to  run  (from  AUX  request) 

328  0005A0  001315                    BNE  10$          ;  If  NE,  yes  -  check  next  chain      . 

329  0003A2  01U04                    MOV  (R4),R'.       ;  Else,  skip  over  the  rest  of  this  chain 

330  0003AA  00U01                    BEQ  50$          ;  Just  in  case    .   ,  . 

331  000346  000771                    BR  A0$          ;  Continue  with  this  chain 

332  000550  50$: 

353  000350                     RET:    RETURN  ;  Main  line  SWSTK  return  point 
354 
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AXMDC  -  AUX  MODEM  CONTROLLER    MACRO  V05.03b  Friday  28-Jun-85  18:30  Page  6 
TIMER  SERVICE  -  STATE  D'.SPATCH  TABLE 


106 

107 

108 

109 

110 

111 

112 

113 

lU  000000 

115  000002 

lib  000004 

117  000006 

118 

119 

120 

121 

122  000010 

123  000012 
12^  OOOOK 

125  000016 

126  000020 
127 


000001 • 
0004A6' 
000500' 
000554' 


000642' 
000720' 
001006' 
001040' 
001022' 


.SBTTL  TIMER  SERVICE  -  STATE  DISPATCH  TABLE 

••-MDMSRV-STATE  DISPATCH  TABLE 

THIS  TABLE  IS  USED  TO  DISPATCH  PROCESSING  ON  EACH  ACTIVE  IINE 
ON  THE  ONCE-PER-SECOND  TIMER. 


MDMSRV:  .WORD 
.WORD 
.WORD 
.WORD 


.+1 
.WRNG 
.WCON 
.COND 
.IF  DF  X$$D52 
.WORD   .C0ND2 


.WORD 
.ENDC 
.WORD 
.WORD 
.WORD 
.WORD 
.'JORD 


.CONFL 

.ACTV 
.ACTD 
.CONE 
.DISn 
.PABu 


IDLE  LINE  (SHOULD  NEVER  DISPATCH  HERE) 

WAITING  FOR  RING 

WAITING  FOR  CONNECT 

CARRIER  DELAY  TO  SEE  IF  CONNECTED 

Waiting  for  Carrier  and  Clear  To  Send 
Connect  failure 

LINE  IS  ACTIVE 

CARRIER  DELAY  TO  SEE  IF  LINE  IS  ACTIVE 
LOST  CARRIER  OR  DSR  WHILE  ACTIVE 
DISCONNECT  DELAY  TO  ALLOW  CIRCUITS  TO  RESET 
POST  ABORT  TO  DLC  LEVEL 


AXMi^C  -  AUX  MODEM  CONTROLLER 
CON..<OL  ENABLE  SERVICE 


L  1 
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AXMDC   -   AUX  MODEM  CONTROLLER         MACRO  V05.03b  Friday  28-Jun-85   18:30     Page   17 
CNCMP   -   COMPLETE    THE    CONNECTION 


502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 


000610 
000614 
000620 
000624 
000630 
000632 
000640 


012^03 
112702 
012701 

103003 
152765 


000020 
000010 
012000 


000200  000004 


.SBTTL  CNCMP  -  COMPLETE  THE  CONNECTION 
**-CNCMP-COMPLETE  THE  CONNECTION 

THE  MODEM  IS  NOW  READY  TO  USE.  POST  A  COMPLETION  THE  THE  DLC  LEVEL. 


CNCMP: 


10$: 


INPUTS: 


MOV 

M0V8 

MOV 

CALL 

BCC 

BISB 

RETURN 


R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


#CS.ENB,R3 

#ST.ACT,R2 

#FS.EN8,R1 

SSCHPR 

10$ 

#MC.CCB,  M.CSV(R5) 


SET  SUCCESSFUL  STATUS 

SET  NEW  STATE  ...  LINE  ACTIVE 

SET  SUBFUNCTION  CODE 

AND  SCHEDULE  DLC  PROCESS 
CCB  ALLOCATION  SUCCESSFUL? 
NO  ...  MARK  ALLOCATION  FAILURE 


AXMDC  -  AUX  MODEM  CONTROLLER 
ST. ACT  -  LINE  ACTIVE 
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SYMBOL    CROSS  REFERENCE  CREF        0^.00 


#19-580 
*18-535 
#16-451 
#21-625 
22-644  #23-662 
#22-643 
#15-410 
#14-390 


SYMBOL 

VALUE 

REFERENCES 

.ACTD 

000720  R 

6-123 

.ACTV 

000642  R 

6-122 

.COND 

000554  R 

6-117 

.CONE 

001006  R 

6-124 

-f^ISD 

001040  R 

6-125 

.  'ABO 

001022  R 

6-126 

.WCON 

000500  R 

6-116 

.yRNG 

000446  R 

6-115 
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MACRO  CROSS  REFERENCE  CREF   04.00 

6-186 
6-187     6-22? 


MACRO  NAME 

REFERENCES 

CALL 

6-178 

6-185 

CCBDFS 

#5-59 

5-60 

ENABLS 

#5-58 

INHIBt 

#5-58 

MTPS 

6-100 

6-156 

OPTDFS 

#5-59 

5-61 

PDVDF$ 

#5-59 

5-62 

RESRG 

#5-58 

RETURN 

6-228 

SAVRG 

#5-58 
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A22 
425 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 

447  000570 

448  000574 

449  000600 
450 

451  000602 

452  000606 
453 

454  000612 

455  000616 

456  000620 

457  000624 

458  000630 

459  000634 

460  000636 

461  000642 

462  000646 
463 

464 


016700 
105260 
000404 

016700 
105360 

116001 
001413 
116101 
017700 
167700 
006300 


110077  OOOOOOG 


OOOOOOG 
000001 


OOOOOOG 
000001 

000001 

000005' 
OOOOOOG 
OOOOOOG 


.SBTTL  $CMINI  -  Component  buffer  limit  (ini't) 
y 

*»-$CMINl-Component  buffer  limit  (init) 

*«-$CMEXI-Component  buffer  limit  (exit) 

This  routine  is  called  bx   a  component  (ie.DECnet,X.25)  when 

it  is  initializing  or  exiting.  In  a  combined  system  each  component  is 

allowed  to  use  buffers  up  to  the  'square  root  limit'. 

That  is  (#total  buf fer?)/(SQRT  (^components) ) . 

Each  component  is  responsible  for  staying  below  that  limit. 

SCMINI  is  called  at  component  startup, 

SCMEXI  is  called  at  component  shutdown. 

Inputs: 

None 

Outputs: 

SSQRCM  (byte)  is  updated  with  the  new  buffer 
limit  for  each  component 

Registers  modified: 
R0,R1 


.ENA8L  LSB 


SCMINI. 

:MOV 

SQRCM.RO 

INCB 

1  (RO) 

BR 

5$ 

SCMEXI 

:MOV 

SQRCM.RO 

DECS 

1  (RO) 

5$: 

M0V8 

1(R0),R1 

BEQ 

20$ 

Move 

$SQRTB-1(R1),R1  ; 

MOV 

aRDBNM.RO 

SUB 

aRDBTH.RO 

ASL 

RO 

CALL 

aCEDIV 

MOVB 

RO.aSQRCM 

20$: 

RETURN 

.DSABL 

LSB 

get  address  of  square  root  factor  cell 
component  startup  entry  point 


get  address  of  square  root  factor  cell 
component  shutdown  entry  point 

copy  number  coresident  components 

if  eq,  no  components  left 

get  the  SORT  (r1*2)  from  table 

copy  number  of  LDBs  in  system 

reduce  it  by  (#  reserved  for  device  receives) 

scale  RO  (scale  factor=2) 

compute  new  buffer  limit 

and  store  it 


AXSUB 
tRn«;Ti 
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ONCE-PER-SECOND  TIMER  SERVICE 


108 

109 

110 

111 

112 

113 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 

'*»-MP1SC-0f;CE-PER-SEC0ND  TIMER  SERVICE  (MULTI-PROCESSOR  SUPPORT) 
•*-$SMP1S-START  PROCESSOR  DEPENDANT  ONE  SECOND  TIMER 
**-$SMPTM-START  PROCESSOR  DEPENDANT  TIMER 

THIS  ROUTINE  IS  ENTERED  ONCE  PER  SECOND  ON  EVERY  PROCESSOR  WHICH 
HAS  ACTIVE  LINES. 


.ENABL  LSa 


MP1SC: 


SSMPIS: 


M0V8 
ADD 
MOV 
MOV 

CALL 

TST 
BEQ 

:MOVB 
ADD 
MOV 
INC 
BNE 

MOV 


MOV 
SSMPTM: :MOV 

CLR 
MOV 
CALLR 


aPROC2,R5 
.1SCTB,R5 
(R5),r5 
#-1,-2(R5) 

ONESEC 

SACTLN 
10$ 

aPROC2,R0 

.ISCTB.RO 

(RO),RO 

-2(R0) 

10$ 

aTKPS,R2 

#MP1SC,C.SUB(R0) 
aCP8IT,C.URM(R0) 


10$: 


RETURN 

.DSA8L 

.ENDC 

.ENDC 


R1 

#C.SYST 

aCLINS 


LS8 


GET  PROCESSOR  NUMBER  *2 

GET  ADDRESS  OF  TIMER  QUEUE  ELEMENT 

SHOW  TIMER  CELL  IS  FREE 

PERFORM  ONCE-PER-SECOND  OPERATIONS 

ANY  ACTIVE  LINES  LEFT  ON  THIS  PROCESSOR? 
IF  EQ,  NO 

GET  PROCESSOR  NUMBER  *2 

GET  ADDRESS  OF  TIMER  QUEUE  ELEMENT 

is' THE  TIMER  ALREADY  RUNNING? 
IF  NE,  YES 

GET  #  OF  TICKS  PER  SECOND 

SET  UP  ADDRESS  OF  PROCESSING  ROUTINE 
SET  UP  URM  OF  DESTINATION  PROCESSOR 


NO  HIGH  ORDER  TICKS 
100000, R4  ;  SET  SYSTEM  REQUEST  INDICATOR 
INSERT  ENTRY  IN  CLOCK  QUEUE 


AXTIM 
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AXTIM 

CREATED  BY 

MACRO  ON  28 

-JUN-85  AT 

18:31 

PAGE  3 

SYMBOL 

CROSS  REFERENCE 

CREF   04. OC 

SYMBOL 

VALUE 

REFERENCES 

X.RTMR 

000006 

#5-62 

n-380 

13-468 

X.TMR 

000004 

#5-62 

♦11-378 

*11-380 

♦13-468 

ZF.COU 

=  001000 

#5-60 

ZF.DDM 

=  000001 

#5-60 

ZF.DIA 

=  004000 

#5-60 

ZF.DLC 

=  000002 

#5-60 

ZF.DVP 

=  100000 

#5-60 

ZF.lNl 

=  040000 

#5-60 

ZF.KMX 

=  000020 

#5-60 

ZF.LLC 

=  000004 

#5-60 

ZF.LMC 

=  000100 

#5-60 

ZF.MAN 

=  020000 

#5-60 

ZF.MFL 

=  000010 

#5-60 

ZF.MTM 

=  000400 

#5-60 

ZF.MUX 

=  000040 

#5-60 

ZF.PSE 

=  002000 

#5-60 

ZF.SLI 

=  010000 

#5-60 

ZF.TIM 

=  000200 

#5-60 

8-235 

ZF.X3P 

=  000000 

#5-60 

ZS.ASN 

=  100000 

#5-60 

ZS.8SY 

=  140000 

#5-60 

ZTIM2 

=  ****** 

GX 

6-85 

6-86 

6-88 

Z.AVL 

000014 

#5-60 

Z.DAT 

000016 

#5-60 

8-254 

11-395 

Z.DSP 

000000 

#5-60 

5-60 

Z.FLG 

000010 

#5-60 

8-235 

Z.LEN 

=  000016 

#5-60 

Z.LLN 

000006 

#5-60 

Z.MAP 

000020 

#5-60 

Z.NAM 

000004 

#5-60 

Z.PCB 

000012 

#5-60 

8-233 

Z.5CH 

000007 

#5-60 

SSTSTM 

000530 

RG 

#13-467 

STlSiN 

000032 

RG 

6-84 

6-87 

#6-90 

STIOOI 

000254 

R 

#9-294 

13-505 

AXTIM 
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SESCON  -  Session  control  connec 
Queue  connect  request  to  task 

353 

33A 

335 

336 

337 

338 

339 

3A0 

3^1 

342 

3A3 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353  000716 

354 

355 

356 

357 

358 

359  000716 

360 

361 

362 

365 

364 
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.SBTTL  Queue  connect  request  to  task 

♦*-0UETSK-Oueue  connect  request  to  task 

If  the  destination  task  is  already  active  place  the  connect  request 
on  it's  mailbox  and  fire  off  an  AST.  If  it  is  not  active,  request 
the  task  to  run  and  queue  the  request  on  the  general  delivery  queue. 

Inputs: 

R3  =  Pointer  to  task  name  (in  RAD50) 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


Outputs: 

'C  Clear 
'C  Set 


Request  successfully  queued 
Failed  to  queue  request 


Registers  modified: 
RO,  R1 


QUETSK: 


:.IF  DF 
CALL 
.IFF 
CALL 
.ENDC 
.IF  DF 


565 

BCC 

366 

MOV 

567 

368 

.IF  DF 

369 

570 

CMPB 

571 

BEQ 

572 

575 

.ENDC 

574 

575 

CALLR 

376 

10$: 

577 
378 

379  000722 

.IFF 

105443 

BCS 

580 

381 
382 
583  000724 

.ENDC 

010501 

MOV 

584  000726 

062701 

000046 

ADD 

585  000732 

016101 

000002 

20$: 

MOV 

386  000756 

001432 

BEQ 

587  000740 

020061 

000004 

CMP 

388  000744 

001372 

BNE 

389 

R$$MPL 
aSRPRO 

aSRSTD 

N$$SLI 

10$  ; 

#ER$U0a,N$ERRC(R5) 

N$$ACC 


*NT.VFY!CM.C0N,C.FNC(R4) 
100$ 


Scan  STD  for  task's  TCB 


Scan  STD  for  task's  TCB 


If  CC,  task  found 
;  Reason  is  'object  not  installed' 


QUESLI 


100$ 


R5,H1         ; 

#N$I»IBXQ-M.NEXT,R1 

M.NEXT(R1),R1 

40$ 

R0,M.TASK(R1) 

20i 


Can't  verify  using  the  SLI 
Try  to  queue  request  via  SLI 
If  CS,  task  not  installed 

Compute  address  of  mailbox  listhead 

Get  address  of  next  mailbox 
If  EQ,  end  of  list 
Is  this  the  right  mailbox? 
If  NE,  no 
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SESCTL  -  Session  control  contro 
Network  access 


10.. 
105 
106 
107 
108 
109 
110 
111 
112 
113 
IH 
115 
116 

117  00002^ 
^  000032 
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.SBTTL  Network  access 

**-OPN-Network  access 

This  routine  establishes  a  mailbox  for  use  by  the  networl  software. 

Inputs: 

R1  =  Address  of  the  task's  header 

R2  =  Subfunction  code/4 

R3  =  Address  of  I/O  packet 

RA  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 


11 
119 

120  000036 

121  000040 
122 

123  000044 

124  000046 
125 

126  000052 

127  000054 

128  000056 
129 

130  000060 

131  000066 

132  000070 

133  000072 
134 

135 
136 

137  000074 

138  000102 
139 

140 
141 
142 
143 

144  000104 

145  000112 
146 

147 
148 

149  000114 

150  000120 

151  000122 

152  000130 
153 

154  000132 

155  000134 

156  000136 

157  000142 

158  000146 

159  000150 
160 


016564 
010465 

010502 
062702 

010400 
062700 

010203 
011202 
001443 

026264 
001371 
011213 
005012 


122762 
001423 


122762 
001421 


105764 
001414 
126464 
103410 


010204 
012701 


000404 


000050 
000050 


000052 
000014 


000002  OPN: 


10$: 


000004  000004 


000207  000010 


000006  000010 


000011 
000010 

000006 


000011 


MOV 
MOV 

MOV 
ADD 

MOV 
ADD 

MOV 
MOV 
BEQ 

CMP 
BNE 
MOV 
CLR 


CMPB 
BEQ 

.ENDC 

.IF  DF 

CMPB 
BEQ 

.ENDC 

TST8 
BEQ 
CMPB 
BLO 

SAVRG 

MOV 

MOV 

CALL 

RESRG 

BR 


N$MBXQ(R5),M.NEXT(R4) 


R4,N$MBXQ(R5) 

R5,R2 
#N$6EN0,R2 

R4,R0 
#M.MAIL,RO 

R2,R3 

(r5),R2 

50$ 


Link  mailbox  into  rrailbox  queue 

Point  at  general  delivery  queue  listhead 

Point  to  network  data  listhead 


Save  current  position  in  list 
Get  next  entry  in  the  list 
If  EQ,  none 


C.NSP(R2),M.TASK(R4) 

10$ 

(R2),(R3) 

(R2) 


If  NE,  not  for  this  task 

Unlink  entry  from  queue 

and  clear  link  pointer 


.IF  DF   N$$ACC 


#nt.vfy:cm.con,c.fnc(R2) 

20$  ;  Always  allow  verification  requests  to  pass 


N$$PEM 

#NT.EVT,C.FNC(R2) 
30$ 


Always  allow  PEM$  requests  to  pass 


M.MAX(R4) 
20$ 


M.USE(R4),M.MAX(R4) 


Has  user  restricted  max  #  of  links? 
If  EQ,  no 


20$ 

<R4> 

R2,R4 

*ER$MLB,R1 

REJECT 

<R4> 

40$ 


If  LO,  we  can  accept  this  link 

Save  address  of  mailbox 
Copy  CCB  address 
Reason  =  object  too  busy 
Reject  the  connection 
Recover  mailbox  address 
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Moue  data  to  user  buffer 


580 
581 
582 
583 
58A 
585 
586 
587 
588 
589 
590 
591 
592 
595 

594  000616 

595  000622 

596  000626 

597  000632 

598  000634 
599 

600  0006A0 

601  000644 

602  000650 

603  000654 

604  000660 


.SBTTL  Moue  data  to  user  buffer 

h 

»*-MOVDAT-Mo\/e  data  to  user  buffer 

Copy  data  from  a  mapped  buffer  to  the  user  specified  buffer. 

Inputs: 

RO  =  *  of  bytes  to  transfer 

R1  =  Address  of  fCB 

R3  =  Address  of  I/O  packet 

Registers  modified: 
RO,  R2,  R'. 


016102  000016 
020227 
103402 
162702 


140000 
020000 


016101 
016303 


000014 
OCOOOOG 


MOVDAT: 


10$: 


SAVRG 

MOV 

CMP 

BLO 

SUB 

MOV 

MOV 

CALL 

RESRG 

RETURN 


<R1,R3> 

C.6UF+2(R1),R2 

R2,#140000 

lOi 

#20000, R2 

C.8UF(R1),R1 
I.PRM(R3),R3 
aSLXIO 
<R3,R1> 


Save  some  registers 

Get  source  virtual  address 

Is  virtual  address  in  APR6? 

If  LO,  no 

Convert  to  APRS 

Get  source  bias 
Get  destination  bias 
Copy  the  data 
Recover  the  registers 
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SESCTR11S  CREATED  BY 

MACRO  ON  28-JUN-8 

SYMBOL 

:R0SS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

FRSSHO 

=  000003 

#6-51 

FRSUBU 

=  000013 

#6-51 

FRSUPT 

=  OOOOU 

#6-51 

KISAR6 

=  *«««♦♦   QX 

7-73     .7-74 

L.CTR 

00007A 

7-n 

MOSSAC 

=  000016 

#6-51 

MOSSPR 

=  000012 

#6-51 

MOSSSV 

=  OOOOK 

#6-51 

MO$25A 

=  000006 

#6-51 

MO$25P 

=  000002 

#6-51 

MO$25S 

=  000004 

#6-51 

MO$29S 

=  000010 

#6-51 

MSHIGH 

=  000003 

#6-51 

M$3100 

=  000000 

#6-51 

M$3101 

=  000001 

#6-51 

MS3102 

=  000002 

#6-51 

M$3103 

=  000003 

#6-51      6-51 

NSCIR 

000034 

♦8-148    •8-150 

N$ENC 

000042 

7-81 

NSLLTM 

000024 

7-74 

N$$EVL 

=  000001 

#4-2       9-157 

NSSMLL 

=  000001 

7-74 

N$$NCT 

=  000001 

7-55 

N$$SE5 

=  000001 

#6-53 

N$$VCT 

-  ♦♦**•* 

7-71               7-7k 

OPSINI 

=  000000 

#6-51 

OPSTER 

=  000001 

#6-51 

PHSHDE 

=  000004 

#6-51 

PHSLOC 

=  000002 

#6-51 

PHSMTS 

=  000003 

#6-51 

PHSUMP 

=  000000 

#6-51 

PHSWCS 

=■  000001 

#6-51 

RESADC 

=  000004 

#6-51 

RESADF 

=  000017 

#6-51 

RESADR 

=  000007 

#6-51 

RESBLK 

=  000010 

#6-51 

RESCAF 

=  000014 

#6-51 

RESDAT 

=  000001 

#6-51 

RESDRP 

=  000016 

#6-51 

RESLDT 

=  000013 

#6-51 

RESLSN 

=   000012 

#6-51 

RESNML 

=  000001 

#6-51 

RESOPE 

=  000004 

#6-51 

RESOPR 

=  000000 

#6-51 

RESRCV 

=  000001 

#6-51 

RESSED 

=  000011 

#6-51 

RE$S<W 

=  000006 

#6-51 

RESSTA 

=  000002 

#6-51 

RESSUM 

=  000003 

#6-51 

RESSYN 

=   000000 

#6-51 

RESTME 

=:  000021 

#6-51 

RESTMO 

=  ooooco 

#6-51 

19:54 


*7-81 
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CREF   04.00 


*7-87 


7-81 


7-87 


SESCTRIIS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:54 


PAGE  5 


L  12 


SESDATllS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:55 
SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   OA.OO 


SYMBOL   VALUE 


ALOCB 

BLXIO 

CALLX 

CCBGT 

CCBRT 

CEACC 

CEDIV 

CELOG 

CEMUL 

CMPDV 

CSBGT 

CSBRT 

DEACB 

DECPT 

DEVHD 

DREXT 

EVOSC 

FMASK 

HOST 

lOFIN 

KISAR6 

KSAR6 

LDBGT 

LDBRT 

LLCRS 

LOCAL 

MVFBF 

NMCLH 

N$$ACC 

N$$EVL 

NSSMCP 

N$$SLI 

OBJHD 

PDVID 

PDVTA 

QRMVF 

QUEBF 

RDBRT 

RDBSZ 

R$$E1S 

R$$MPL 

RtSPRO 

SRSTD 

STPCT 

TKTCB 

TLGTH 

TSKRT 

TTNS 

T.LGTH 

UISAR6 

USAR6 

VFYNAM 


000256  RG 
000260  RG 
000312  RG 
0003U  RG 
000316  RG 
000320  RG 
000324  RG 
000322  RG 
000326  RG 
000330  RG 
000332  RG 
000334  RG 
000262  RG 
000336  RG 
000264  RG 
000266  RG 
000340  RG 
000270  RG 
000054  RG 
000272  RG 

-  *»«»*«  GX 
000250  RG 
000342  RG 
000344  RG 
000346  RG 
000062  RG 
000350  RG 
000352  RG 

=  000001 
=  000001 

-  ****** 
=  ****** 

000354  RG 
000356  RG 
000360  RG 
000274  RG 
000276  RG 
000362  RG 
000364  RG 

-  ****** 

-  ****** 

-  ****** 

000300  RG 

000302  RG 

000304  RG 

000252  RG 

000306  RG 

000310  RG 
=  ******  GX 
r  ******  GX 

000254  RG 

000050  RG 


REFERENCES 

#9-135 
#9-136 
#9-159 
#9-160 
#9-161 
#9-162 
#9-166 
#9-163 
#9-167 
#9-170 
#9-171 
#9-172 
#9-137 
#9-173 
#9-138 
#9-139 
#9-174 
#9-140 
#7-105 
#9-141 

9-132 
#9-132 
#9-175 
#9-176 
#9-177 
#7-106 
#9-178 
#9-179 

7-99 
#4-2 

9-152 

7-81 
#9-180 
#9-181 
#9-182 
#9-142 
#9-143 
#9-183 
#9-184 

9-165 

9-145 

9-185 
#9-149 
#9-150 
#9-156 
#9-133 
#9-157 
#9-158 

9-133 

9-134 
#9-134 
#7-101 


•^FSnATIlS      fRFATFD   BY      MACRO      ON   28-JUN-85    AT    19:55 
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K  14 


SESD1S11S 

CREAIED  Bv 

MACRO     ON  28 

-JUN-85   AT    19:55 

PAGE 

2 

MACRO  CROSS 

RE 

ERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

7-110 

7-113 

8-138            8-144 

8-147 

CALLE 

#5-A3 

7-119 

CALLR 

6-71 

6-73 

7-105             7-121 

8-149 

CALLX 

#7-119 

7-119 

ECDDBS 

#5-A5 

5-49 

LLTDFS 

#5-45 

5-50 

LLUDFS 

#5-A5 

5-47 

MAP 

#5-43 

MAPLL^ 

#5-43 

MBXDFt 

#5-45 

5-48 

RESRG 

#5-43 

SAVRG 

#5-43 

SIERRC 

#5-44 

8-151 

•  .p  II  F«t  int.QFQnwn 


L  14 


L 


SESDM011S      CREATED   BY 
SYMBOL    CROSS  REFERENCE 
SYMBOL      VALUE 


MACRO     ON  ?8-JUN-85   AT    19:55 


USSCNF 

=  000002 

UStDlS 

=  000006 

iJStDSC 

=  OOOOOA 

US.MDM 

r  ****** 

GX 

U.STS 

::  ****** 

(,X 

W0RD1 

=  000200 

W0R02 

=  000000 

SCALLX 

~    ****** 

GX 

SDMQIO 

000000 

RG 

$UCB 

::   ****** 

GX 

K  15 

PAGE   5 

CREF       OA.OO 


Sf 
R( 


REFERENCES 

8-U1 

8-U2 

8-U6 

7-73 
♦  7-73 
It?-?', 
»?-?', 

8-126 
#7-68 

7-72 


8-1« 


7-7A 
?-?', 


^QQ    AT  1  Q .  i;"; 


L  15 


L 


SESDSP  - 
Request 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 


K  16 
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task  to  run  (from  AUX  request) 


000316 


000316 

000316 
000322 
000326 
000330 

000334 


000334 


000340 
000342 


116401  000010 
042701  177760 
006301 


.PSECT 

.S8TTL  Request  task  to  run 

**-REQTSK-Request  task  to  run 

Check  that  the  specified  task  is  installed  and  request  it  to  run. 
If  necessary,  spawn  a  new  copy  of  a  multi-copy  task  (one  whose  task 
name  ends  with  '$$$'  or  whose  prototype  TCB  is  in  secondary  pool). 

Inputs: 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Task  requested  successfully 

'C  Set   -  Failed  to  find  TCB  or  request  task 

Registers  modified: 
RO,  R1,  R3 

.PSECT 

Get  the  function  code 

Isolate  useful  bits 

Form  word  offset 

Get  pointer  to  task  name  string 

alternate  entry  for  task  requesting  (AUX) 

Search  prototype  TCB  list 

Search  prototype  TCB  list 


103441 

142764  000020  000011 


000350  010067  OOOOOOG 


REQTSK: 

M0V8 
BIC 
ASL 
CALL 

C.FNC(R4),R1    ; 

#»C<17>,R1 

R1 

aNDISP-2(R1) 

RE0TS1: 

.IF  DF 

R$$MPL 

CALL 

aSRPRO         ; 

.IFF 

CALL 

aSRSTD 

.ENDC 

BCS 

Bice 

60$           ; 
#CX.REM,C.M0D(R4) 

MOV 

R0,$RQTCB 

.IF  DF 

R$$MPL8N$$MCP 

BIT 
BEQ 
MAP 
MOV 
CMP 

#1,R0         ; 

10$ 

-KRC) 

#140000, RO     ; 

T.NAM+2(R0),#"R$$$ 

If  CS,  task  not  installed 

;  Indicate  no  new  TCB  generated 

Save  address  of  TCB 


Is  TCB  in  secondary  pool? 

If  EQ,  no 

Map  to  the  TCB 

Set  up  virtual  address  of  TCB 

Is  it  a  valid  multi  copy  installed  name? 


5$: 


BNE  5$  ;  If  NE,  No  -  allow  only  1  copy 

BIT8  #CX.SMC,C.M0D(R4)  ;  Spawn  multiple  copies? 

BNE  20$  ;  If  NE,  yes  -  leave  copy  count  as  is 

MOV  #1,$R0CPY      ;  Else,  allow  only  one  c-jpy 

BR  20$  ;  Always  copy  the  TCB  from  secondary  pool 


L  16 


AXMl-C    -   AUX  MODEM   CONTROLLER 
COM'iUl    ENABLE    SERVICE 


129 

i?0 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

KG 

U1 

K2 

143 

K4 

U5 

K6 

147 

K8  000022 

U9  000024 

150  000025 

151  000034 

152  000036 
1';3  000042 

154  000044 

155  000046 

156  000054 
157 

lii 

160 

161  000060 

162  000062 
155  000064 
"64 


L  1 
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.SBTTL  CONTROL  ENABLE  SERVICE 
■*-MDMCTL-:ONTROL  ENABLE  SERVICE 


000005 


105715 

100407 

126564  000001 

001404 

062705     000010 

000767 

116455  000007  000006 


000066" 

000114' 
000134' 


THIS  ROUTINE  IS  ENTERED  FROM  THE  COMM/EXEC  DURING  CERTAIN  CONTROL 
ENABLE  REQUESTS  FROM  THE  DLC  TO  THE  DDM.  ON  RETURN  FROM  THIS  ROUTINE 
THE  CONTROL  ENABLE  REQUEST  WILL  BE  ROUTED  TO  THE  DDM  PROCESS. 


INPUTS: 


R3  -  SUB-FUNCTION  lujE: 

FS.RNG  -  LOOK  FOR  RING 
FS.ENB  -  ENABLE  LINE 
FS.DIS  -  DISABLE  LINE 

R4  -  CCB 

R5  -  POINTER  TO  MDC  DATABASE 


OUTPUTS: 


ONLY  R4  WILL  BE  GUARANTEED  TO  BE  PRESERVED 


MDMCTL::TST8 
BMI 
CMPB 
BEQ 
ADD 
BR 

RETURN 
M0V8 
CALLR 


;  HAVE  UE  SCANNED  ALL  OF  THE  TABLE? 
;  YES  ...  IGNORE  THIS  REQUEST 
.LIN(R4)  ;  IS  IT  FC  THIS  LINE? 

;  YES  ...  DISf   CH  TO  PROCESSOR 
;  NO  ...  MOVE  UN  TO  NEXT  ENTRY 


10$: 
20$: 


(R5) 

10$ 

M.LIN(R5), 

20$ 

/rM.LEN,R5 

MDMCTL 

;  LINE  NOT  IN  DATABASE  ...  REQUEST  IGNORED 
C.STA(R4),M.STA(R5)  ;  SAVE  STATION  ADDRESS 
aCTLDSP-<FS.RNG/400>(R3) 


FUNCTION  DISPATCH  TABLE 


CTLDSP:  .WORD   RING 

.WORD   ENABLE 
.WORD   DSA8LE 


LOOK  FOR  RING 
ENABLE  LINE 
DISABLE  LINE 


H\.,     -   Av'   *tULf*l   iON'RCllFR 
LOOK   fOR  RING 


N  1 
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AXMDC  -  AUX  MODEM  CONTROLLER 
ST. ACT  -  LINE  ACTIVE 


522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 

535  000642 

536  000646 
537 

538  000650 

539  000654 

540  000656 


541  000664 

542  000666 

543  000674 

544  000702 

545  000704 

546  000712 

547  000714 
548 

549 
550 
5:1 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
'^64 
565 
566 


L    2 
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.SBTTL      ST. ACT   -   LINE   ACTIVE 
♦♦-.ACTV-LINE   ACTIVE 


032712     001000 
001015 

132715  000001 

001013 

132765  000001 

001006 

112765  000002 

112765  000012 

132765  000002 
001373 


THE  LINE  IS  ACTIVE  (IN  USE  BY  THE  NETWORK),  MONITOR  THE  STATE  OF 
CARRIER  (ASYMC)  OR  DATASET  Ri-ADY  ;SYNC)  TO  CHECK  FOR  POSSIBLE 
LINE  FAILURES. 


INPUTS: 


R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


.ACTV: 


000004 

000002 
000003 

000004 


10$: 
20$: 


BIT     #LF.LPB,(R2) 

BNE     10$ 

.IF  NDF  X$$D52 

BITB  #MS.SYN,(R5)  : 
20$  ; 

#MC.CAR,M.CSV(ri5) 
10$  ; 

#TM.ACT,M.T1M(R5) 
#ST.ADL,M.STT(R5) 


BNE 

BITB 

BNE 

MOVB 

MOVB 

RETURN 

BITS 

BNE 

CALLR 

.IFF 


#MC.DSR,M.CSV(R5) 

10$ 

DISC 


IS  THIS  LINE  IN  LOOPBACK? 
IF  NE,  YES 

IS  THIS  A  SYNCHRONOUS  LINE? 

YES 

;  NO  ...  IS  CARRIER  STILL  ASSERTED? 

YES  ...  LINE  IS  STILL  ACTIVE 

;  NO  ...  START  TIMER  TO  CHECK  FOR  CARRIER 

;  SET  STATE  TO  ACTIVE  DELAY 

;  SYNC  LINE  ...  IS  DATASET  READY  ASSERTED? 
YES  ...  LINE  IS  STILL  ACTIVE 
POST  ASYNCHRONOUS  DISCONNECT 


Monitor  the  state  of  Data  Set  Ready. 

If  the  modem  generates  continuous  carrier,  monitor  Carrier  Detect  also. 


10$: 


20J.: 


BITB 

#MC.DSR, 

M 

CSV(R5) 

If  Data  Set  Ready  not  asserted 

BNE 

10$ 

then 

CALLR 

DISC 

Goto  post  async  disconnect 
else 

BITB 

(KMS.SWT, 

M 

STS(R5) 

If  carrier  is  continuous 

BNE 

20$ 

then 

BITS 

#MC.CAR, 

M 

CSV(R5) 

If  Carrier  not  asserted 

BNE 

20$ 

then 

MOVB 

#TM.ACT, 

M 

TIM(R5) 

Start  delay  timer 

M0V8 

tfST.ADL, 

M 

STT(R5) 

Set  state  to  delay 

RETURN 

.ENDC 

AXMDC  ■ 
ST.ADL 


AUX  MODEM  CONTROLLER 
-  ACTIVE  DELAY 


M  2 
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AXmC 

CREATED   BV     MACRO     ON  28- 

-JUN-85  AT 

18 

30           PAG'3 

5       '     ' 

MACRO   CROSS 

RE 

ERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

10-248 

11-278 

13-361 

13-371 

17-516 

20-604 

22-643 

23-667 

24-692 

24-698 

CALLR 

#5-58 

7-156 

14-395 

18-547 

19-584 

21-627 

CCSDFS 

#5-58 

5-64 

MDCDFS 

#5-58 

5-65 

PDVDFS 
RETURN 

#5-58 

7-15A 

5-63 
S-181 

9-219 

10-246 

10-256 

11-280 

12-308 

13-376 

14-396 

15-419 

15-422 

16-455 

16-458 

17-519 

18-544 

■9-587 

20-607 

22-646 

23-670 

24-700 

SLTDFS 

#5-58 

5-66 

L  4 


•*F!LE«*1D«»AXSUB 


AAAAAA 

XX 

XX 

ssssssss 

uu 

uu 

BSBBBSeB 

AAAAAA 

XX 

XX 

ssssssss 

uu 

uu 

BBBBBBBB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB      BB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB      BB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AA      AA 

XX 

ssssss 

uu 

uu 

BBBBBBBB 

AA      AA 

XX 

ssssss 

uu 

uu 

BBBBBBBB 

AAAAAAAAAA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AAAAAAAAAA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AA      AA 

XX 

XX 

ss 

uu 

uu 

BB     BB 

AA      AA 

XX 

XX 

ssssssss 

uuuuuuuuuu 

BBBBBBBB 

AA      AA 

XX 

XX 

ssssssss 

uuuuuuuuuu 

BBBBBBBB 

LL 

ssssssss 

ITTTT 

TTTT 

LL 

ssssssss 

TTTTT 

Mil 

LL 

ss 

.L 

ss 

lL 

ss 

_L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLlLLLLLLL 

ssssssss 
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L  5 


466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 

488  000650 

489  000652 

490  000654 
491 

492  000656 

493  000662 

494  000666 

495  000670 

496  000672 

497  000676 
498 

499  000700 

500  000702 

501  000706 

502  000710 

503  000714 

504  000716 

505  000722 
506 

507 
508 

509  000724 

510  000730 

511  000734 
512 

513 

514 

515  000740 

516 

517  0007^4 

518  000746 

519  000750 
520 

521  000754 

522  000760 


.S8TTL  SRQSTL  -  Request  System  Microcode  Loader 
♦♦-SRQSTL-  Request  System  Microcode  Loader 
Function: 


010046 
010146 
010346 

012703  000014' 


103437 
010403 

103433 

010401 
062704 
010324 
012724 
005024 
012724 
011603 


042703 
052703 


000006 
002026 
000006 


160000 
140000 


012702  000006 

112324 

001402 


160261  000014 


Call  Format: 
Inputs: 

Outputs: 

Registers: 

SRQSTL: :MOV 
MOV 
MOV 

MOV 

CALL 

BCS 

MOV 

CALL 

BCS 

MOV 
ADD 
MOV 
MOV 
CLR 
MOV 
MOV 

.IF 

BK 
BIS 
MAP 

.ENDC 

MOV 


10S: 


2US: 


Move 

BEO 
SOB 

SUB 
CALL 


To  allocate  a  CCB,  initialize  it  for  a  microcode  load 
request,  queue  it  to  the  microcode  loader,  and  request 
the  loader  for  execution. 


CALL 


SRJSTL 


R2  =  mapping  bias  of  an  ASCIZ  microcode  filename  (RSX-11M/M+) 

=  mapping  bias  of  an  ASCIZ  microcode  partition  (RSX-11S) 
R3  =  address  of  ASCIZ  string 
R4  =  system  line  number 

R3  =  completion  status 

C-bit  set  -     Request  failed,  R3  =  CS.ERRtCS.ABO 

C-bit  clear  -   Request  succeeded,  R3  =  0 

R2  and  R4  destroyed 


RO,-(SP) 
R1,-(SP) 
R3,-(SP) 

#MLDTSK,R3 

aSRSTD 

30$ 

R4,R3 

aCCBGT 

30$ 

R4,R1 

#C.LIN,R4 

R3,(R4)+ 

#FC.MLD+FS.RLB,(R4)+ 

(R4)*- 

*MAXLEN,(R4)+ 

(SP),R3 


DF 


MSSMGE 


#160000, R3 
*1',0000,R3 
R2 


*MAXLEN,R2 

(R3)+,(R4)t 

20$ 

R2,10$ 

R2,C.BUF1(R1) 
aEXRQF 


Saue  a  register 
Save  a  register 
Save  address  of  input  string 

Get  address  of  loader's  name 

Search  for  loader's  TCB 

Branch  if  i.ot  found 

Saue  system  line  number 

Allocate  a  CCB 

Branch  if  allocation  failed 

Copy  CCB  address 

Point  at  system  line  cell 

Store  system  line  number 

Set  function  and  subfunction 

Clear  status 

Set  maximum  string  length 

Recover  string  address 


Clear  APR  selector  in  address 
Setup  address  for  APR6  mapping 
Map  to  ASCIZ  string 


Set  up  a  loop  counter 

Copy  next  character  into  CCB 
Branch  if  end  of  string 
Else,  repeat 

Compute  correct  string  length 
Queue  CCB  to  loader  and  request  it 


AXSUB 

tone  T' 
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PERFORM  ONCE-PER-SECOND  OPERATIONS 


152 

153 

15; 

155 

156 

157 

158 

159 

160 

161 

162 

163  000056 

16A  000062 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176  00006A 

177  000070 

178  000074 
179 

180 
181 
182 
183 
184 
135 
186 
187 
188 
189 
190 

191  000076 

192  000100 

193  000104 

194  000106 

195  000112 
196 

197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 


.SBTTL  PERFORM  ONCE-PER-SECOND  OPERATIONS 

*»-ONESEC-PERFORM  ONCE-PER-SECOND  OPERATIONS 

PERFORM  THOSE  OPERATIONS  THAT  ARE  REQUIRED  ONCE  EVERV  SECOND. 

INPUTS: 

R5  -  FLAG  FOR  MULTIPROCESSOR  SYSTEMS: 
0   -  GENERAL  TIMER  SCAN 
<>0  -  PROCESSOR  SPECIFIC  SCAN 


005777  OOOOOOG 
100466 


ONESEC: 


4$: 


017704  OOOOOOG 
017746  OOOOOOG 
001433 


011403 

032713     100000 

001424 

032713     000010 

001421 


6$: 


10$: 


15$: 


TST 
BMI 

aPJRFl 
70$ 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

BIT 
BEQ 
MOV 

#F2.MP,aFMSK2 

4$ 

R5,-(SP) 

.ENDC 
.ENDC 

MOV 
MOV 
BEQ 

SSLTMA,R4 

aSLTNM,-(SP) 

30$ 

.IF  DF 
.IF  NDF 

R$$MPL 
R$$PRO 

BIT 
BEQ 
TST 
BEQ 

#F2.MP,aFMSK2 

6$ 

2(SP) 

30$ 

.ENDC 
.ENDC 

MOV 
BIT 
BEQ 
BIT 
BEO 

(R4),R3 

#LF.ACT,(R3) 

20$ 

#LF.TIM,(R3) 

20$ 

.IF  OF 
.IF  NDF 

R$$MPL 
R$$PR0 

BIT 
BEO 
MOV 
MOV 
BIT 
BEQ 

#F2.MP,aFMSK2 

15$ 

L.KRBA(R3),R5 

aCPURM,-(SP) 

K.URM(R5),a(SP)+ 

20$ 

.ENDC 
.ENDC 

IS  POWERFAIL  RECOVERY  IN  PROGRESS? 

IF  MI,  YES  ...  DON'T  DISPATCH  ANY  TIMERS 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

SAVE  DISPATCH  FLAG 


POINT  TO  START  OF  SYSTEM  LINE  INDEX  TABLE 
GET  #  OF  LINES  TO  SCAN 
IF  EQ,  NONE 


IS  THIS  A  MULTI-PROCESSOR? 
BR  IF  NO 

SHOULD  UE  DISPATCH  LINE  TIMERS? 
IF  EQ,  NO 


GET  ADDRESS  OF  NEXT  SYSTEM  LINE  TABLE  ENTRY 

IS  THIS  LINE  ACTIVE? 

IF  EQ,  NO 

DOES  THE  LINE  REQUIRE  TIMER  SERVICE? 

IF  EQ,  NO 


IS  THIS  A  MULTI-PROCESSOR? 

BR  If  NO 

GET  POINTER  TO  KRB 

GET  ADDRESS  OF  CPU  URM  TABLE 

IS  DEVICE  CONNECTED  TO  THIS  PROCESSOR? 

IF  EQ,  NO 
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MACRO  CROSS  REFERENCE  CREF   04.00 

9-292     9-299     11-384    11-397    11-403    11-406 


MACRO  NAME 

REFERENCES 

CALL 

6-82 

8-212 

8-219 

8-258 

11-408 

11-411 

13-484 

15-505 

CALLR 

6-101 

CLKDFS 

#5-57 

5-61 

ENABLS 

#5-56 

12-455 

INHIBS 

#5-56 

12-430 

MTPS 

n-347 

11-373 

11-416 

PDVDf$ 

#5-57 

5-60 

RESRG 

#5-56 

11-412 

13-506 

13-508 

RETURN 

8-278 

9-301 

11-417 

12-456 

SAVRG 

#5-56 

11-376 

13-467 

15-488 

SLTDFl 

#5-57 

5-59 

STMDFS 

#5-57 

5-62 

13-509 
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Queue  connect  request  to  task 


390  0007A6 

391 

392 

393 

39A  000754 

395  000762 

396 

397 

398 

399  00076A 

400  000770 

401  000772 

402  001000 

403  001002 
404 

405 
406 
407 
408 

409  001002 

410  001006 

411  001012 

412  001016 

413  001022 
414 

415  001024 
416 

417  001030 

418  001032 

419  001034 
420 

421 


012765  000006  000022 


122764 
001407 


105761 
001404 
126161 
103014 


105261 
010167 
010064 

000402 


005727 
000261 


000001 


000207  000010 


000011 
000010 


000011 


000010 

OOOOOOG 

000004 


25$: 


30$: 


40$: 

50$: 
100$: 


MOV 

.IF  DF 

CMP8 
BEQ 

.ENDC 

TS78 
BEQ 
CMP8 
BHIS 

.IF 

CALL 

.ENDC 


INC8 

MOV 

MOV 

CALL 

BR 

CALL 

TST 
SEC 
RETURN 

.END 


#ER$MLB,N$ERRC(R5) 

N$$ACC 

#NT.VFY!CM.C0N,C.FNC(R4) 

30$  ;  Don't  check  #  of  links  for  verification  requests 


M.MAX(RI) 
25$ 


M.JSE(R1),M.MAX(R1) 
100$ 


Did  user  restrict  rrax  H   of  links? 
If  EO,  no 


DF  R$$PRO 

REMVT 

;  DF  R$$PRD 


M.USE(RI) 

R1,$MAIBX 

R0,C.NSP(R4) 

ADDMAI 

50$ 


ADDGNQ 
(PC)  + 


If  HIS,  too  many  logical  links 

Toss  the  new  VT:  if  task  is  already  active. 


Update  count  of  active  links 
Save  address  of  mailbox 
Set  up  owning  TCB  address 
Add  mail  to  user's  mailbox 
Exit  through  common  code 

Add  entry  to  general  delivery  queue 

Indicate  success 
Indicate  failure 
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Network  access 


161  000152  10526^  000010 

162  000156  010210 

163  000160  010200 
16A  000162  010302 
165  000164  000732 
166 

167  000166 


?0t: 

INC8 

M.USE(R4) 

30$: 

MOV 

R2,(R0) 

MOV 

R2,R0 

Wl: 

MOV 

R3.R2 

BR 

loi 

50$: 


CALLR   lOSUC 


Increment  count  of  logical  links 
Link  onto  the  end  of  the  mailbox  list 
Keep  pointer  to  the  end  of  the  list 
Backup  list  pointer 
Try  for  the  next  entry 

Return  successful  I/O  completion 
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Post  euent  on  mailbox 

.SBTTL  Pest  event  on  mailbox 

**-PEM-Pest  event  on  mailbox 


606 

607 

608 

609 

610 

611 

612 

613 

6H 

615 

616 

617 

618 

619 

620 

621 

622  000350 

623 

62A  000350 

016300 

OOOOOOG 

625  000354 

016067 

OOOOOOG  OOOOOOG 

626  000362 

016067 

0000026  000002G 

627 

628 

629 

630  000370 

026727 

OOOOOOG  055400 

631  000376 

001002 

632  000400 

000167 

001006' 

633  000404 

634 

635 

636 

637 

638  000404 

016300 

000004G 

639  000410 

027700 

OOOOOOG 

640  000414 

103003 

641  000416 

642 

643  000424 

644  000430 

103003 

645  000432 

646 

647  000440 

648  000442 

010064 

000020 

649  000446 

016301 

OOOOOOG 

650  000452 

016302 

000002G 

651  000456 

162702 

020000 

652  000462 

016403 

000014 

653  000466 

016404 

000016 

654  000472 

655  000476 

656  000500 

000167 

000662' 

657 

658  C00662 

659 

660  000662 

661  000670 

016402 

000016 

662  C00674 

010403 

Place  an  event  typo  message  on  the  destination  tasks  mailbox  or 
request  the  task  to  run. 

Inputs: 

R1  =  Address  of  the  task  s  header 

R2  =  Subfunctien  code/4 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

.IF  DF  N$$PEM!N$$ACC 

.PSECT  SHIGH 

MOV     I.TCB(R3),R0    ;  Get  source  tasks  TCB  address 
MOV     T.NAM(R0),$RONAM;  Save  source  task  name 
MOV     T.NAM+2(R0),$RQNAM+2 


PEM: 


5$: 


10$: 


15$: 


20$: 


MAPBF : 


.IF  DF  N$$PEMSN$$ACC 


CMP 
BNE 
JMP 

.ENDC 

.IF  OF 


$RQNAM,#*RNVP 

5$ 

NVP 


N$$PEM 


MOV 

I.PRM+4(R3),R0  ; 

CMP 

aRDBSZ.RO 

BHIS 

15$ 

$IERRC 

IE.SPCS377     ; 

CALL 

aLDBGT 

BCC 

20$          ; 

SIERRC 

IE.RSU&.'>77 

SAVRG 

<R4> 

MOV 

R0,C.CNT(R4) 

MOV 

I.PRM{R3kR1 

MOV 

I.PRM+2(R3),R2  ; 

SUB 

#20000, R2 

MOV 

C.BUF(R4),R3    ; 

MOV 

C.8UFt2(R4),R4  , 

CALL 

aaixio 

RESRG 

<R4> 

JMP 

MAP8F 

.PSECT 

MAP 

C.8UF(R4) 

MOV 

C.euF+2(R4i,R2  , 

MOV 

R4,R3 

Is  request  from  verification  task? 
If  NE,  no 
Else,  yes 


Get  #  of  bytes  to  transfer 

Will  it  fit  in  a  large  data  buffer? 


If  HIS,  yes 
ill 


ELse, 


egal  user  buffer 


Allocate  a  large  data  buffer 

If  CC,  ok 

Else,  resource  allocation  failure 


Set  up  byte  count  in  CCB 

Set  up  source  APR  bias 

Set  up  source  virtual  address 

for  APR5 
Set  up  destination  APR  bias 
Set  up  destination  virtual  address 
Copy  the  data 
Recover  CCB  address 
Jump  to  low  psect 


Map  to  the  buffer 
Point  to  start  of  data 
Point  to  save  area  for 
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SESCTR11S 

CREATED  BY 

MACRO  ON  28-JUN-85  AT  19:54 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

REtTMR 

_ 

000020 

#6-51 

RESUPT 

- 

000002 

#6-5- 

RESURE 

r 

000003 

#6-5- 

RESVER 

- 

000005 

#6-51 

RESVRQ 

= 

000015 

#6-51 

RT$1N! 

~ 

000002 

#6-51 

RT$OFr 

= 

000001 

#6-51 

RTSON 

= 

000000 

#6-51 

SCSOFF 

- 

000001 

#6-51 

SCSON 

= 

000000 

#6-51 

SCSRST 

= 

000003 

#6-51 

SCSSHU 

=: 

000002 

#6-51 

SVSDUM 

: 

000001 

#6-51 

SV$LOA 

= 

000000 

#6-51 

TSFLAG 

0000A4 

#6-48 

TSLIF 

000013 

#6-48 

TILIFL 

000013 

#6-48 

TSLIFO 

000015 

#6-48 

TSLIFS 

000013 

#6-48 

TSLIN 

000000 

#6-48 

TSLIPS 

000006 

#6-48 

TSLLD 

000012 

#6-48 

TSLLDC 

000045 

#6-48 

TSLLDL 

000012 

#6-48 

T$LLDO 

000012 

#6-48 

TSLLDS 

000012 

#6-48 

TSLLEN 

000046 

#6-48 

TSLOPR 

000002 

#6-48 

TSLTCL 

000021 

#6-48 

TSLTIM 

000026 

#6-43 

L  12 

PAGE   5 
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TSLTPR 

000014 

#6-48 

TSLTPS 

000020 

#6-48 

TSNAPL 

000004 

#6-48 

TSNFE 

000000 

#6-48 

TSNLEN 

000010 

#6-48 

TSNNUL 

000002 

#6-48 

TSMOPL 

000006 

#6-48 

TSNRNI 

000042 

#6-48 

TSNRPL 

000005 

#6-48 

TSNRUL 

000007 

#6-48 

TSNVR 

000001 

#6-48 

TSRPRI 

000040 

#6-48 

TSSVC 

000034 

#6-48 

T$T5 

000030 

#6-48 

T$T6 

000032 

#6-48 

$gvTt 

=  »t..».   GX 

8-157 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


REFERENCES 


X$$HDR 

r  ****** 

7-93 

2TIM2 

000366 

RG 

#9-188 

$ACCNT 

000202 

RG 

#8-124 

SALOCB 

r  ****** 

GX 

9-135 

SBLXIO 

=  ****** 

GX 

9-136 

$BYTE 

000020 

RG 

#7-62 

SCALLX 

=   ****** 

GX 

9-159 

SCCBGT 

=   ****** 

GX 

9-160 

SCCBRT 

=      ****** 

GX 

9-161 

SCEACC 

=   ****** 

GX 

9-162 

SCEDIV 

=   ****** 

GX 

9-166 

SCELOG 

-   ****** 

GX 

9-163 

SCEMUL 

-   ****** 

GX 

9-167 

ICMPDV 

=   ****** 

GX 

9-170 

SCNBLK 

000070 

RG 

#8-113 

SCSBGT 

~      ****** 

GX 

9-171 

SCSBRT 

r  ****** 

GX 

9-172 

SDEACB 

=     ****** 

GX 

9-137 

SDECPT 

-  ****** 

GX 

9-173 

SDEVHD 

=     ****** 

GX 

9-138 

SDREXT 

r  ****** 

GX 

9-139 

SDSDFM 

000076 

RG 

#8-115 

IDSDSC 

000100 

RG 

#8-118 

SDSNOD 

000070 

RG 

#8-114 

SDSOBJ 

000077 

RG 

#8-116 

SENCOt) 

000036 

RG 

#7-73 

SEVDSC 

-   ****** 

GX 

9-174 

SFLAGS 

000047 

RG 

#7-87 

$FLOW 

000046 

RG 

#7-79 

SFMASK 

=:   ****** 

GX 

9-140 

SINFO 

000025 

RG 

#7-66 

SIOFIN 

=      ****** 

GX 

9-141 

SIOPKT 

000042 

RG 

#7-76 

SLADDR 

000032 

RG 

#7-69 

SLDSGT 

r  ****** 

GX 

9-175 

SLDBRT 

r:  ****** 

GX 

9-176 

SLLCRS 

=      ****** 

GX 

9-177 

$LTM 

OOOOAA 

RG 

#7-78 

SMAIBX 

000016 

RG 

#7-60 

SMENU 

000050 

RG 

#7-68 

SMVFSF 

-  ****** 

GX 

9-178 

SNMCLH 

r  ****** 

GX 

9-179 

SOBJHD 

=     ****** 

GX 

9-180 

SOPDAT 

000226 

KG 

#8-126 

SOPLNG 

000224 

RG 

#8-125 

SPASSJ 

000170 

RG 

#8-123 

SPDVID 

-   ****** 

GX 

9-181 

SPDVTA 

r  ****** 

GX 

9-182 

SQRMVF 

-  ****** 

GX 

9-142 

SQUEBF 

-  ****** 

GX 

9-143 

SRCCB 

000022 

RG 

#7-64 

SRDBRT 

-   ****** 

GX 

9-183 
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CREf        OA.OO 


S! 
R( 


MACRO  NAME 

REFERENCES 

CALL 

7-91 

7-99 

CALLE 

#6-AA 

8-126 

CALLR 

7-10A 

CALLX 

#8-126 

8-126 

ECDDBS 

#6-45 

6-47 

EVLDF$ 

#6-45 

6-48 

EVT$ 

#6-44 

7-74 

LLTDFS 

#6-45 

6-49 

MAP 

#6-44 

MAPLLT 

#6-44 

MSGDFS 

#6-45 

6-50 

RESRG 

#6-44 

8-132 

RETURN 

7-106 

8-135 

SAVRG 

#6-44 

8-128 

SOB 

8-154 
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SESDSP  -  Session  control 
Request  task  to  run 

39? 

395 
396 
397 
398 
399 
iOO 
401 
402 
403 
404 
405 
406 
407 
408 

409  000354 

410  000356 
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411 


005001 
132764 
001404 
016401 
016101 


103002 

ocon 


000364 

412  000366 

413  000372 
414 

415  000376 
416 
417 
418 
419 
420 
421 

422  000400 
423 
424 

425  000404 

426  000406 

427  000410 
428 
429 

430 

431 

432 

433 

454 

435  000412  000241 

4  36 

437  000414 

438  000422 

439  000430 

440  000432 
441 

442  000440 

443  000444 

444  000452 
445 
446 
447 
448 
449  000352 


10$: 


20$: 
30$: 


000040  000011 

000016 
000066 


142764 
132764 

001403 
052760 

010064 


40$: 


000002 
000020 

OOOOOOG 

000004 


000011  45$: 
000011 

OOOOOOG 

50$: 
60$: 


.ENDC 
.IF  Df 


BITS 
BEQ 

CMP 
BNE 

CALL 
BCS 

.ENDC 

CLR 

BITB 

BEQ 

MOV 

MOV 


N$$MCP 

;  Path  tor  tasks  installed  in  primary  pool 
#CX.SMC,C.M0D(R4)  ;  Spawn  multiple  copies? 
30$  ;  If  EQ,  no  -  use  this  TCB 

T.NAM+2(P0),**R$$$  ;  Else,  check  for  valid  installed  name 
30$  ;  If  NE,  can't  do  a  muLti  copy  from  it 


.IF 
MOV 
CALL 
.IFF 

CALL 
.IFTF 

RESRG 

BCC 

BNE 

.IFT 

RECMAP 

CALL 

.ENDC 

CLC 

BICB 
BITB 
BEQ 
BIS 

MOV 

RECMAP 

RETURN 


MP  TCB 
60$ 


R1 


#CX.RUI,C.M0D(R4) 
40$ 

C.BUF+2(R4),R1   ; 
N.CUIC(R1),R1 


SAVRG   <R0> 


DF  R$$PRO 

C.PR0(R4),R2 

$TSKRQ 

;  DF  R$$PR0 

aTSKRT 

;  DF  R$$PR0 

<R0> 

45$ 

50$ 

;  DF  R$$PR0 

REMVT 

;  DF  R$$PRO 


#CX.REQ,C.M0D(R45 
#CX.REM,C.M0D(R4) 
50$  ; 

*T3.REM,T.ST3(R0) 

R0,C.NSP(R4) 


Create  a  new  tcb  for  this  task 
If  CS,  allocation  failure 


Assume  default  UIC 

If  eq,  use  default  UIC 

Get  login  UIC  from  connect  request  block 


Sai/e  TCB  address 


Get  the  VT:  UCB  address. 
Activate  the  task  under  the  VT: 


Request  task  to  execute 


Recover  TCB  address 

If  CC,  requested  task  successfully 

If  CS,  and  <>0,  task  allocation  failure 


Recover  NETACP's  KISAR6 

If  the  task  is  already  active,  dissolve 

...the  new  virtual  terminal. 


If  the  task  is  already  active,  indicate 
. . .success. 


If  EQ,  we  did  not  generate  a  new  TCB 


Save  TCB  address 
Recover  high  APR  mapping 


;  Dispatch  table  for  task  name  determination 
.PSECT  $HIGH 


M  16 


w;.  -  AU<  MODEM  CONTROLLER 

111  =0R  RING 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176  000066 

105765 

000003 

1-7  000072 

001C07 

178  000074 

112765 

000002 

179  C00102 

'05065 

000005 

180  000106 

105065 

000004 

181  000112 

182 

n  1 
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.SBTTL  LOOK  FOR  RING 
•  »-.RING-L00K  FOR  RING 


WAIT  UNTIl  -a  RING  TONE  HAS  BEEN  DETECTED  INDICATING  THAT  SOMEONE 
IS  TRVING  TO  DIAL  IN. 


000003 


RING: 


10$: 


INPUTS: 


TSTB 

BNE 

M0V8 

CLR6 

CLRB 

RETURN 


R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


M.STT(R5) 

10$ 

#ST.URG,H.STT(R5) 

M.PSV(R5) 

M.CSV(R5) 


IS  THE  LINE  NOW  IDLE? 
NO  ...  IGNORE  THIS  REQUEST 
SET  NEW  STATE  -  WAIT  FOR  RING 
INITIALIZE  SERVICE  BITS 


N     1 


AXMDC   -   Aju  MODEM  CONTROLLER 
ENAB'.E    lINE 
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n  2 


AXMDC  - 
ST.ADl  - 

568 
565 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 


AUX  MODEM  CONTROLLER 
-  ACTIVE  DELAY 
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.SBTTL  ST.ADL  -  ACTIVE  DELAY 
»»-.ACTD-ACTIVE  DELAY 


000720  132765  000001 

000726  001005 

000730  105765  000002 

000734  001007 

000736 

000742  105065     000002 

000746  112765     000010 

000754 


LOSS  Of  CARRIER  WAS  DETECTED  ON  AN  ASYNCHRONOUS  LINE,  DELAY  AND 
RECHECK  IN  CASE  THE  LOSS  WAS  ONLY  TEMPORARY. 


000004   .ACTD: 


000003 


10$: 
20$: 


INPUTS: 


BITB 

BNE 

TSTB 

BNE 

CALLR 

CLRB 

MOVB 

RETURN 


R2  -  POINTER  TO  SYSTEM  LINE  TABLE 

R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


#MC.CAR,M.CSV(R5) 

10$ 

M.TIM(R5) 

20$ 

DISC 

M.TIM(R5)      , 

#ST.ACT,M.STT(R5) 


;  HAS  CARRIER  RETURNED? 

YES  ...  RETURN  TO  ACTIVE 

NO  ...  HAS  THE  TIMER  EXPIRED? 

NO  ...  KEEP  WAITING 

POST  ASYNCHRONOUS  DISCONNECT 

CARRIER  HAS  RETURNED  ...  CANCEL  I IMER 

;  RETURN  TO  ACTIVE  STATE 


AXMDC  -  AUX  MODEM  CONTROLLER 
POST  ASYNCHRONOUS  DISCONNECT 
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Table  of  contents 

Macro  definitions 

SALOCX  -  Allocate  core  buffer  in  extended  pool 

SDEACX  -  Deallocate  core  buffer  in  extended  pool 

SXLINK  -  Link/unlink  block  in  extended  pool 

SCMINI  -  Component  buffer  limit  (init) 

SRQSTL  -  Request  System  Microcode  Loader 


s- 

S1 

8- 

\rf 

9- 

?i^? 

10- 

w 

11- 

kf? 

V- 

A66 
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525  00076A  000241                    CLC  ;  OK  if  task  already  fixed 
524 

525  000766  012603  30$:    MOV  (SP)+,R3             ;  Recover  string  address 

526  000770  012601                    MOV  (SP)+,R1  ;  Recover  a  register 

527  000772  012600                    MOV  (SP)  +  ,RO  ;  Recover  a  register  ^  . ,  _, 

528  000774  012703  100100              MOV  #CS.ERR+CS.AB0,R3  ;  Assume  task  request  failed 

529  001000  103401                    BCS  40$  ;  Branch  if  it  reaUy  did  fail 

530  001002  005003                    CLR  R3  ;  Else,  return  success  status 
531 

532  001004  40$:    RETURN  ;  Exit 

533 

534  OOOCOl  .END 
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PERFORM  ONCE-PER-SECOND  OPERATIONS 


209 

210  000114 

016305 

000004 

MOV 

L.DDS(R3),R5 

211  000120 

116302 

000002 

MOVB 

L.DDM(R3),R2 

212  000124 

213 

214  000130 

CALL 

51TSTIM 

011403 

MOV 

(R4),R3 

215  000132 

126363 

000002  000003 

CMPB 

L.DDM(R3),L.DLC(R 

216  000140 

001406 

BEQ 

20$ 

217  000142 

016305 

000010 

MOV 

L.DLS(R3).R5 

218  000146 

116302 

000003 

MOVB 

L.DLC(R3),R2 

219  000152 

220 

221  000156 

CALL 

STSTIM 

20$: 

.IF  NDF 

N$$1LN 

222 

223  000156 

005724 

TST 

(R4)  + 

224  000160 

005316 

DEC 

(SP) 

225  000162 

001345 

6NE 

10$ 

226 

227 
228 

229  000164 

.ENDC 

017704 

OOOOOOG 

30$: 

MOV 

aPDVTA,R4 

230  000170 

231 

232  000174 

017716 

OOOOOOG 

MOV 

aPDVNM,(SP) 

012401 

40$: 

MOV 

(R4)+,R1 

233  000176 

005761 

000012 

TST 

Z.PCeCRl) 

234  000202 

001414 

BEQ 

60*             ,  ,; 

235  000204 

032761 

000200  000010 

BIT 

*ZF.TIM,Z.FLG(R1) 

236  000212 

001410 

BEQ 

60$ 

237 

238 

.IF  DF 

R$$MPL 

2.9 

.IF  NDF 

R$$PR0 

240 

241 

BIT 

#F2.MP,51FMSK2 

242 

BEQ 

50$ 

243 

TST 

2(SP) 

244 

i|Q 

50$           ; 

245 

#ZF.MTM,Z.FLG(Rl5 

246 

iio 

60$ 

247 

MOV 

aCPURM,-(SP) 

248 

BIT 

aCKURM,a(SP)t   ; 

249 

BNE 

60$ 

250 

50$: 

251 

.ENDC 

252 

.ENDC 

253 

254  0002  4 

016105 

000016 

MOV 

Z.DAT(R1),R5 

255  000220 

010402 

R4,R2 
aPDVTA,R2 

256  000222 

167702 

OOOOOOG 

257  000226 

005742 

TST 

-(R2) 

258  000230 

259 

260  000234 

CALL 

aDSPTM 

005316 

60$: 

DEC 

(SP) 

261  C00236 

001356 

BNE 

40$ 

262 

265  000240 

70$: 

.IF  NDF 

R$$PR0 

264 

.IF  DF 

R$$MPL 

265 

GET  DDM  LINE  TABLE  ADDRESS 
AND  DDM  PDV  INDEX 
TEST  TIMEOUT  AND  DISPATCH  IF  REQUIRED 

RECOVER  SYSTEM  LINE  TABLE  ENTRV  ADDRESS 
!)  ;  COMBINED  DLC/DDM? 
IF  EO,  VES 

GET  DLC  LINE  TABLE  ADDRESS 
AND  DLC  PDV  INDEX 
TEST  TIMEOUT  AND  DISPATCH  IF  REQUIRED 


MOVE  ON  TO  NEXT  ENTRY 
REDUCE  SYSTEM  LINE  COUNT 
AND  LOOP  TILL  ALL  DONE 


GET  ADDRESS  OF  PDV  INDEX  TABLE 
AND  It   OF  PDV'S  TO  SCAN 

GET  NEXT  PDV  ADDRESS 

IS  THE  PROCESS  LOADED? 

IF  EQ,  NO 

;  DOES  THIS  PROCESS  REQUIRE  TIMER  SERVICE? 

IF  EQ,  NO 


IS  THIS  A  MULTI-PROCESSOR? 

BR  IF  NO 

PROCESSOR  DEPENDANT  SCAN? 

IF  EQ,  NO 

;  DOES  PROCESS  REQUIRE  MULTIPLE  TIMERS? 

IF  EQ,  NO 

GET  ADDRESS  OF  CPU  URM  TABLE 

DOES  THIS  PROCESSOR  CONTROL  THE  CLOCK? 

IF  NE,  YES  ...  WE  HAVE  ALREADY  DONE  THE  SCAN 


GET  ADDRESS  OF  DATABASE  DESCRIPTOR 
COMPUTE  PDV  INDEX 


DISPATCH  PROCESS  TIMEOUT 

REDUCE  PDV  COUNT 

AND  LOOP  TILL  ALL  DONE 
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ACC 

000300R 

CP.PSI= 

ADDGNQ= 

*♦*«*«  GX 

CP.XCF= 

ADDMAI= 

**♦*♦•  GX 

CP.2FR= 

A$$CHK= 

000000 

CS.ABO= 

A$$CPS= 

000000 

CS.BRO= 

A$$P'~' ' 

JOOOOO 

CS.BUF= 

A$$' 

000000 

CS.CES= 

CAT5  = 

**»*♦♦  GX 

CS.CHN= 

CB.CCB= 

000002 

CS.CMP= 

CB.DOM= 

000040 

CS.DCR= 

CB.DLC^ 

000020 

CS.DEF= 

CB.RDB= 

OOOOOA 

CS.DEV= 

CB.SDB= 

000010 

CS.DIS= 

CB.SL1= 

000100 

CS.ENA= 

CB.XLB= 

000001 

CS.ENB= 

CC.LLC= 

000200 

CS.ERR= 

CE.ABO= 

100362 

CS.FTL= 

CE.DAO= 

100346 

CS.HCR= 

CE.D1S= 

100366 

CS.HFE= 

CE.ERR= 

100370 

CS.LST= 

CE.1LN= 

100350 

CS.MTL= 

CE.LTO= 

100356 

CS.RNG= 

CE.MOP= 

100372 

CS.ROV= 

CE.NTE= 

100361 

CS.RSN= 

CE.RTE= 

100376 

CS.SHU= 

CE.SRC= 

100364 

CS.SID= 

CE.STP= 

100352 

CS.STR= 

CE.TME= 

100354 

CS.SUC= 

CE.TMO= 

100374 

CS.TMO= 

CE.UNS= 

100^44 

CS.XUR= 

CF.CHN= 

000001 

CV$MSK= 

CF.EOM= 

00^004 

CV$31  = 

CF.H[)R  = 

000020 

CV$32  = 

CF.LB  = 

100000 

CV$40  = 

CF.L1N= 

000002 

CX.GDQ= 

CF.  SOM= 

000010 

CX.REM= 

CF.syN= 

000040 

CX.REQ= 

CF.TRN= 

000100 

CX.RUI= 

CL$MFL= 

000010 

CX.SMC= 

CL$SFL= 

000004 

CX.UNL= 

CL$TyP= 

000001 

C$$0RE= 

CL.MU1= 

000001 

C$$RSH= 

CL.MU2= 

000002 

C.ADD 

CL.RES= 

177774 

C.BID 

CM.CIR= 

000002 

C.BUF 

CM.CON= 

000200 

C.BUF1 

CM.FMT-; 

100000 

C.BUF2 

CM.HRD= 

000002 

C.CNT 

Cn.LIN^ 

000000 

C.CNT1 

CM.LOO= 

000001 

C.CNT2 

CM.XLO= 

000004 

C.FLG 

CON 

000106R 

C.FLG1 

CONTBL 

COOOOOR 

002  C.FLG2 

CPYOPr= 

..*...  GX 

C.FNC 

CP.DCF= 

000040 

C.LIN 

CP.HDL= 

000007 

C.LNK 

fc.PS  ^ 

177400 

C.MOD 

000200 

C.NSP 

000004 

ER$ABM= 

000010 

000100 

C.PRO 

000042 

ER$AB0= 

000046 

000030 

C.RSV 

000002 

ER$ABT= 

000011 

000100 

C.STA 

000007 

ER$ACC= 

000042 

000002 

C.STS 

000012 

ER$CDI= 

292952 

000200 

C.URM 

177776 

ER$COM= 

000047 

000002 

C.XACP 

000004 

ER$FMT= 

000005 

000010 

C.XID 

000035 

ER$MLB= 

000006 

000200 

C.XLEN 

000044 

ER$NNF= 

99991? 

000400 

C.XPLI 

000040 

ER$N0D= 

000002 

000004 

C.XPT 

000034 

ER$NSL= 

000013 

000002 

C.XSVC 

000042 

ER$NSR= 

000003 

000040 

C.XTC 

000037 

ER$RES= 

000001 

000001 

C.X25 

000036 

ER$STA= 

000051 

000020 

C5TA  = 

******  GX 

ER$lino= 

000004 

100000 

DECPT  = 

******  GX 

E$$Xr-H= 

000000 

001000 

DSAMXC 

000072 

FC.CCP= 

000020 

000001 

DSAMXH 

000074 

FC.CTL= 

000006 

002000 

D$ANN 

000000 

FC.KCP= 

000016 

040000 

OSBRPR 

000102 

FC.KIL= 

000004 

004000 

DSBRTM 

000100 

FC.MAN= 

000024 

000010 

DSDELF 

000045 

FC.MLD= 

000026 

000004 

DSDELW 

000046 

FC.PCT= 

000030 

010000 

D$END  = 

000104 

FC.PWR= 

000022 

000001 

D$FN8 

000034 

FC.RCE= 

000002 

000002 

DSHJOR 

000024 

FC.RCP= 

000014 

000004 

DSHOST 

000022 

FC.T]M= 

000010 

000001 

DSINAC 

000044 

FC.XCP= 

000012 

020000 

DSINCT 

000042 

FC.XME= 

000000 

000004 

D$JPL 

000051 

FS.AST= 

000000 

000003 

D$LID 

000020 

FS.CIB= 

002000 

000001 

DSLNAM 

000006 

FS.CRA= 

001000 

000000 

DSLNUM 

000014 

FS.DIS^ 

013000 

000002 

D$LST 

000047 

FS.DVC= 

001000 

000001 

DSMAXC 

000064 

FS.ENB^ 

012000 

000020 

DSMAXH 

000066 

FS.EXI= 

001000 

000002 

DSMAXV 

000070 

FS.GET= 

006000 

000040 

DSMLL 

000040 

FS.HLT= 

000000 

000010 

DJMNOO 

000041 

FS.INI= 

000000 

000004 

D$NA 

000062 

FS.KIL= 

000000 

000400 

DSNBEA 

000056 

FS.LCL= 

100000 

177564 

OSNBRA 

000054 

FS.LTM= 

001000 

000034 

OSNEND^ 

000054 

FS.I»INT  = 

004000 

000003 

D$NLN 

000030 

FS.MSN= 

014000 

000014 

DSNN 

000060 

FS.REA= 

001000 

000014 

DSOUTT 

000043 

FS.RET= 

000000 

000024 

DSRETF 

000050 

FS.REZ= 

003000 

000020 

DSRNN 

000002 

FS.RLB= 

002000 

000020 

DSRTMR 

000076 

FS.RNG= 

011000 

000030 

D$SEG 

000036 

FS.RST= 

000000 

000022 

DSSER 

000032 

FS.RTN= 

001000 

000022 

D$SORL 

000052 

FS.SET= 

005000 

000032 

D$$BUG= 

177514 

FS.SFC= 

005000 

000010 

D$$iSX= 

000000 

FS.SFR= 

006000 

000006 

D$$L11= 

000001 

FS.SFS= 

004000 

000000 

D$$YNC= 

000000 

FS.SPW= 

040000 

000011 

D$$YNM= 

000000 

FS.STM= 

000000 

FS.STP= 
FS.STR= 
FS.7RM= 
FS.WLB= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.ZER= 
F$$LVL=: 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
IE.BAD= 
IE.NRJ= 
IE.RSU= 
IN.DAT= 
IN.ILS= 
lODUN  = 
lOERR  = 
lOSUC  = 
I$$RAR= 
I$$RDN= 
I.FCN  = 
I.PRM  = 
I.TCB  = 
KISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LA.ACK= 
LA.CRS= 
LA.MSK= 
LA.NAK= 
LA.NMS= 
LA.RES= 
LA.WND= 
LDSLP  = 
LF.DRD= 
LF.FRC= 
LF.HFO= 
LF.HMF= 
LF.HSF= 
LF.IRD= 
LF.MMF= 
LF.MSF= 
LS.DLS= 
LS.FCC- 
LS.FCO= 
LS.FC1= 
LS.1LS= 
LS.MAK= 
LS.MNK= 
LS.RES= 
LS.RSV= 
LT.CCA= 


GX 
GX 
GX 


GX 
GX 
GX 


002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

****** 

****** 

****** 

000400 

000001 

****** 

****** 

****** 

000000 

000000 

******  GX 

******  GX 

******  GX 

******  GX 

177546 

177546 

000000 

000074 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

000000 

000004 

000001 

000010 

000040 

000020 

000002 

000200 

000100 

100000 

000004 

000001 

000002 

100000 

000020 

000040 

000360 

000300 

000020 
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SESCTL  ■■  Session  control  contro  MACRO 
Network  deaccess 


169 

170 

171 

172 

175 

Vk 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18^  000000 

185 

186  000000 

187  000000 

188  OOOOOA 
189 

190  000006 
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.SSTTL  Network  deaccess 

^ 

**-$CLQ10-Cl.ose  LUN  request 
»*-CLS-Network  deaccess 

This  routine  cleans  up  the 
has  active. 


mailbox  and  any  logical  links  the  user 


Inputs: 

Rl  =  Address  of  the  task's  header 

R2  =  Subfunction  code/A 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 


191  000010 

192  000012 
193 

19A  000016 

195  000022 

196 

197  00002'- 

198 

199 


010364  000012 


010403 
005000 


105764  000010 
001465 

011601 


SCLQIO: 
CIS: 


.PSECT 

'mov 

SAVRG 

MOV 
CLR 
CALL 

TST8 
BEQ 

MOV 

.IF  DF 


200 

201 

MAP 

202 

203 

.ENDC 

204 

205  000026 

016146 

OOOOOOG 

MOV 

206  000032 

207 

208  000036 

062701 

OOOOOG 

ADD 

10$:    .IF  DF 

209 

210 

MAP 

211 

212 
213 
214  000036 

.ENDC 

022167 

OOOOOOG 

CMP 

215  000042 

001051 

8NE 

216  000044 

01M03 

MOV 

217  000046 

042703 

000001 

BIC 

218  000052 

001445 

BEQ 

219  000054 

020304 

CMP 

220  000056 

221 

222  000060 

001445 

BEQ 

SAVRG 

225  000066 

016346 

000004 

MOV 

224  000072 

010504 

MOV 

225  000074 

CALL 

R5,M.SPA(R4) 
<R1> 

R4,R5 

RO 

FLSHMB 

M.USE(R4) 
CLSDON 

(SP),R1 

X$$HDR 

SHDRMP 


Save  address  of  '.    ^  packet 
Save  address  of  task  header 

Copy  address  of  mailbox 

Set  flag  to  flush  all  events  from  mailbox 

Flush  the  mailbox 

Are  any  logical  links  active? 
If  EQ,  no 

Recover  task  header  address 


Map  to  the  tosk's  header 


H.NLUN(R1),-(SP); 
#H.LUN,R1 

X$$HDR 

$HDRMP 


(R1)+,$UCB 

100$ 

(R1),R3 

#1,R3 

106$ 

R3.R4 

106$ 

<R1,R3,R4> 

U.LLT(R3),-(SP) 

R5,R4 

FLSHIO 


Get  It   of  LUNs  to  scan 
Point  to  first  LUN 


Map  to  the  task's  header 


Is  LUN  assigned  to  us? 

If  NE,  no 

Get  window  block  address 

Remove  possible  LUN  interlock 

if  EQ,  no  active  Link 

Is  this  the  mailbox  LUN? 

If  EQ,  yes  ...  can't  disconnect  it 

Save  some  registers 

Save  address  of  LLT 

Copy  window  block  address 

Flush  any  outstanding  1/0  packets 
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663 
66A 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 


000676  062703  000030 

000702  012213 

000704  012263  000002 

000710  016742  000002G 

000714  016742  OOOOOOG 


000720 


000724  103423 

000726 

000734  012764  004006  000010 

000742  112764  OOOOOOG  000013 

000750 

000754  103003 

000756 

000762  000402 

000764 
000770 

000774 
001000 


20$: 
30$: 

100$: 


ADD 
MOV 
MOV 

MOV 
MOV 

.If 
MOV 
.ENDC 

.IF  DF 

CALL 

.IFF 

CALL 
.ENDC 

ers 

RECMAP 

MOV 

MOVB 

CALL 

BCC 

CALL 
BR 

CALL 
CALLR 

CALL 
$IERRC 


.ENDC 


#C.CNT2,R3 
(R2)+,(R3) 
(R2)+,2(R3) 

$RQNAM*2,-(R2) 
$RQNAM,-(R2) 

DF  R$$PRO 
$C0PT,C.PR0(R4) 
;  DF  R$$PRO 

R$$MrL 
aSRPRO 
;  DF  R$$MPL 

aSfiSTD 

;  DF  R$$MPL 

100$ 


destination  task  name 
Save  destination  task  name 


Move  source  task  name  into  the  buffer 

Store  UC8  address  of  CO: 

Search  for  TCB  address 
Search  for  TCB  address 


;  If  CS,  task  not  installed 

;  Recover  ACP  mapping 
#<CX.SMC*400>+NT.EVT,C."^NC(R4) 
#N$$SMC,C.STS+1(R4) 

FNDM8X         ;  Iry  to  find  task's  mailbox 
20$  ;  If  CC,  found  it 

ADDGNQ         ;  Add  CC8  to  general  delivery  queue 
30$  ;   and  complete  the  I/O 

ADDMAI         ;  Add  mail  to  mailbox 

lOSUC         ;  Complete  the  I/O  request  successfully 

aLDBRT         ;  Return  the  buffer 
IE.INS8377     ;  Task  not  installed 
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1 
2 
3 

5 
6 
7 
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10 
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13 
H 
15 
16 
17 
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19 
20 
21 
22 
25 
24 
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26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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.TITLE  SESCTR  -  Session  control  counter  logic  and  ewent  logging 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  .or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  ib  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  counter  logic  and  event  logging 

Ident  history: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET--11M-°LUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
TECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACRO   CROSS   REI^ERENCE  CREF        04.00 


MACRO  NAME 

REFERENCES 

CALL 

7-85 

9-192 

CCBDFS 

#6-45 

6-47 

CTRDFS 

#6-45 

6-48 

ECDDBS 

#6-45 

6-49 

EVLDFS 

#6-45 

6-51 

LLTDFS 

#6-45 

6-50 

MAP 

#6-44 

7-74 

7-81 

MAPL^T 

#6-44 

7-74 

RESMAP 

#6-44 

7-87 

RESRG 

#6-44 

7-90 

9-193 

RETURN 

8-124 

8-142 

8-151 

SAVMAP 

#6-44 

7-73 

SAVRG 

#6-44 

7-72 

9-176 

9-195 
9-191 


|««F1LE««1D«»SESDAT 
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SESDATllS  CREATED  BY 

MACRO  OM  28-JUN-85  AT 

19:55 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SRDBSZ 

::  ****** 

GX 

9-184 

SREASN 

00003^. 

RG 

#7-71 

SREQID 

000U6 

RG 

#8-122 

tRQCPY 

OOOOU 

RG 

#7-58 

SRQNAM 

000010 

RG 

#7-56 

SRQTCB 

000006 

RG 

#7-55 

SSEGMT 

000026 

RG 

#7-67 

SSESDB 

000000 

RG 

#7-50 

SSESPD 

000002 

RG 

#7-51 

SSRDFM 

000122 

RG 

#8-119 

SSRDSC 

0001 2A 

RG 

#8-21 

SSROBJ 

000123 

RG 

#8-- 20 

SSRSTD 

-   ****** 

GX 

9-149 

SSRVCS 

000024 

RG 

#7-65 

SSTPCT 

r  «**«*♦ 

GX 

9-150 

STKTCB 

-  ****♦• 

^  V 

9-156 

STSKRT 

r  ****»• 

9-157 

STTNS 

=  ****** 

o-- 

9-158 

sues 

000004 

RG 

#7-53 

$VECLN 

=  000051 

G 

#9-190 

SVECTB 

000246 

RG 

#9-130     9-190 

SWBLK 

000040 

RG 

#7-75 

IWQRK 

000100 

RG 

#8-117 

$ZT1M2 

-   *■♦»■*** 

GX 

9-188 
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SESDSP  ■ 
Request 

450 
451 
452 
45? 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 


n  16 


n  10 

-  Session  confol  disoat  MACRO  V05.03b  Friday  28-Jun-85  19:56  Page  11-2 
task  to  run 


000352  000370" 

000354  000355' 

000356  000357- 

000360  000361' 

000362  000363' 

000564  000376' 

000366  000406' 


NUISP: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


NMCON 

.+1 

.+1 

.+1 

.+1 

NMEVT 


.IF  OF  N$$ACC 

.WORD  NMVFY 

.IFF 

.WORD  .+1 

.ENDC 

.WORD  NMMOP 


Connect  request 
Interrupt  message 
Disconnect 

comes  in  3  flavours 

Network  event 

Verification  request 

Verification  request  (never  generated) 

Mop  event 


4K*IDC    -   Ajx   MODEM   CONTROLLER 
ENABLE    l!NE 

185 


186 
187 
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.SBTTL  ENABLE  LINE 
♦•-ENASLE-ENASLE  LINE 


0001 H  112765  OOOOOA 
000122  105065  000005 
000126  105065  000004 


188 
189 

190 
191 

192 

195 

194  OOO'H 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2^', 

215 

216 

217 

218 

219  000132 

220 


ENABLE: 


000003 


10$: 


ENABLE  THE  LINE  BY  WAITING  FOR  CARRIER  OR  DATASET  READY  TO  BE 
ASSERTED. 


INPUTS: 


R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 


TST6 

M.STT(R5) 

BNE 

10$ 

HOVB 

iCST.WCN.M.STTCRS) 
M.PSV(R5) 

CLR8 

CLB8 

M.r- "R5) 

.IK  DF 

R%%. 

.IF  NDF 

X$$[ 

BIC8 

*MS.  .rN,  M.STS(R5) 

MOV 

aSPARl,  -(SP) 

ADD 

»4,  (SP) 

BIT8 

#FL$SUT,  a(SP)t 

BEQ 

10$ 

BISB 

*MS.SYN,  M.STS(R5) 

.IFF 

BICB 

#MS.SWT,  M.STS(R5) 

MOV 

aSPARl,  -(SP) 

ADD 

#4,  (SP) 

BIT 

#FL$SWT,  a(SP)+ 

BEO 

10$ 

BISB 

#MS.SUT,  M.STS(R5) 

.ENDC 

.ENDC 

RETURN 

IS  THE  LINE  CURRENTLY  IDLE? 
NO  ...  IGNORE  THIS  REQUEST 

YES  ...  SET  STATE  -  UAIT  FOR  CONNECT 
INITIALIZE  SERVICE  BITS 


ASSUME  CARRIER  AND  DSR  TO  BE  MONITORED 
ADDRESS  OF  LINE  DESCRIPTOR  BLOCK 
OFFSET  OF  FLAG  WORD 
IF  THIS  MODEM  SWITCHES  CARRIER 
THEN 

MONITOR  DATA  SET  READY  ONLY 

Assume  Carrier  and  DSR  to  be  monitored 
Address  of  line  descriptor  block 
Offset  of  flag  word 
If  this  modem  switches  Carrier 
then 

Monitor  Data  Set  Ready  only 


AXMDC  -  AUX  MODEM  CCNTROLLER 
POST  ASYNCHRONOUS  DISCONNECT 


590 
591 
592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
60^ 
606 
607 
608 
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.SBTTL  POST  ASYNCHRONOUS  DISCONNECT 

»*-DISC-POST  ASYNCHRONOUS  DISCONNECT 

CARRIER  (ASYNC)  OR  DATASET  READY  (SYNC)  WAS  LOST  WHILE  THE  LINE 
WAS  ACTIVE.  POST  AN  ASYNCHRONOUS  DISCONNECT  COMPLETION  TO  THE 
DLC  PROCESS. 


000756  112765  OOOOU 

00076A  012703  101366 

000770 

000774  103003 

000776  152765  000^00 

001 OOA 


INPUTS: 


000007  DISC: 


OOOOOA 


10$: 


M0V8 

MOV 

CALL 

BCC 

BISG 

RETURN 


R4  -  SYSTEM  LINE  NUMBER 

R5  -  POINTER  TO  LINE  ENTRY  IN  MDC  DATABASE 

#ST.CER,M.STT(R5)  ;  SET  NEW  STATE  ...  CONNECT  ERROR 

#CS.FTL!CE.DIS,R3  ;  SET  COMPLETION  STATUS 

SDDAST         ;  POST  ASYNCHRONOUS  COMPLETION 

10$  :  SUCCESSFUL? 

#MC.CCB,M.CSV(R5)  ;  NO  ...  MARK  ALLOCATION  FAILURE 
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21 
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23 
24 
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26 
27 
28 
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.IIF  flDF  K$$DAS  .TITLE  AXSUB 
.IIF  DF  K$$DAS  .TITLE  AXSUBD 
.IDENT  /V05.00/ 
.ENABL  LC 

Copifright  (c)  1981,1982,  1983, 
Digital  Equipment  Corporation, 


1985  by 
Maynard, 


Mass. 


This  software  is  furnished  under  a  license  and  may  be  used  and  copied 
only  in  accordance  with  the  terms  of  such  license  and  with  the 
inclusion  of  the  above  copyright  notice.  This  software  or  any  other 
copies  thereof  may  not  be  provided  or  otherwise  made  available  to  any 
other  person.  No  title  to  and  ownership  of  the  software  is  hereby 
transferred. 


The  information  in  this  software  is  subject  to  change 
and  should  not  be  construed  "     '   ^"'>""'>"»="»-  k 
Corporation. 


,=   ouk,j.;v...  ..u  ^.,„.,3>.  without  notice 
as  a  commitment  by  Digital  Equipment 


Digital  assumes  no  responsibility  for  the  use  or  reliability  of  its 
software  on  equipment  which  is  not  supplied  by  Digital. 

Module  Description 

CEX  subroutines  (resident  in  AUX) 


Distributed  Syst'^s  Software  Engineering 

Ident  History: 

1.00  10-No«-80 

3.00  16-Apr-82 

DECnet-IIM  V3.1 
DECnet-IIM-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS   \/2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Symbol  table 


ALOCB  = 

A$$CHK= 

A$$CPS= 

A$$PRI  = 

A$$TRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT  = 

CC.LLC= 

CEACC  = 

CEDIV  = 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.T|viO= 

CE.UNS= 

C.  .CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

_  .SOM= 

CF.5YN= 

CF.TRN=: 

CM.C1R= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PS1= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 


****** 
000000 
000000 
000000 
000000 
000002 
OOOOAO 
000020 
OOOOOA 
000010 
000100 
000001 

****** 

000200 

****** 
****** 

100362 
100346 
100366 
100370 
100350 
100356 
100372 
100361 
100376 
10036A 
1003:2 
100354 
100374 
100344 
000001 
000004 
000020 
100000 
000002 
000010 
000040 
000100 
000002 
100000 
0OCO02 
000000 
000001 
000004 
000040 
000007 
177400 
000200 
000100 
000030 
000100 
000002 


GX 


GX 

GX 
GX 


CS.BUF= 

000200 

CS.CES= 

000002 

CS.CHN= 

000010 

CS.CMP= 

000200 

CS.DCR= 

000400 

CS.DEF= 

000004 

CS.DEV= 

000002 

CS.DIS= 

000040 

CS.ENA= 

000001 

CS.ENB= 

000020 

CS.ERR= 

100000 

CS.FTL= 

001000 

CS.HCR= 

000001 

CS.HFE= 

002000 

CS.LST= 

040000 

CS.MTL= 

004000 

CS.RNG= 

000010 

CS.ROV= 

000004 

CS.RSN= 

010000 

CS.SHU= 

000001 

CS.SID= 

000002 

CS.STR= 

000004 

CS.SUC= 

000001 

CS.TMO= 

020000 

CS.XUR^ 

000004 

C$$CKP= 

000000 

C$$0RE= 

000400 

C$$RSH= 

177564 

C.ADD 

000034 

C.BID 

000003 

C.BUF 

000014 

C.BUF1 

000014 

C.BUF2 

000024 

C.CNT 

000020 

C.CNT1 

000020 

C.CNT2 

000030 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

C.LIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

000004 

C.PRO 

000042 

C.RSV 

000002 

C.STA 

000007 

C.STS 

000012 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

.  ABS.   V7776 
001006 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CO^J) 
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C.XPLI 

000040 

FS.SFR= 

006000 

R$$DER= 

000000 

C.XPT 

000034 

FS.SFS= 

004000 

R$$K11= 

000001 

C.XSVC 

000042 

FS.SPU= 

040000 

R$$SND= 

000000 

C.XTC 

000037 

FS.STM= 

000000 

R$i.11M= 

000000 

C.X25 

000036 

FS.STP= 

002000 

SQRCH  = 

******  GX 

DEACB  = 

*»♦»«♦  GX 

FS.STR= 

001000 

SRSTD  = 

*«♦»**  GX 

D$$BUG= 

177514 

FS.TRM= 

003000 

S$$WRG= 

000000 

D$$ISK= 

000000 

FS.ULB= 

001000 

s$$ysz= 

007600 

D$$L11= 

000001 

FS.XKL= 

002000 

T$$KMG= 

000000 

D$$YNC= 

000000 

FS.XOF= 

010000 

T$$MIN= 

000000 

D$$YNM= 

000000 

FS.XON= 

007000 

V$$CTR= 

001000 

EXRQF  = 

**«♦**  GX 

FS.ZER= 

002000 

XAVL  = 

*♦«***  GX 

E$$XPR= 

000000 

F$$LVL= 

000001 

XAVLL 

000002R 

FC.CCP= 

000020 

F2.DAS= 

******  GX 

X$$D8T= 

000000 

FC.CTL= 

000006 

G$$TPP= 

000000 

ZF.COU= 

001000 

FC.KCP= 

000016 

G$$TSS= 

000000 

ZF.DDH= 

000001 

FC.KJL= 

000004 

G$$TTK= 

000000 

ZF.DIA= 

004000 

FC.HAN= 

000024 

G$$WRD=: 

000000 

ZF.OLC= 

000002 

FC.MLD= 

000026 

I$$RAR= 

000000 

ZF.DVP= 

100000 

FC.PCT= 

000030 

I$$RDN= 

000000 

ZF.INI= 

040000 

FC.PUR= 

000022 

KISAR6= 

******  G" 

ZF.KHX= 

000020 

FC.RCE= 

000002 

K$$CNT= 

177546 

ZF.LLC= 

000004 

FC.RCP= 

000014 

K$$CSR= 

177546 

ZF.LMC= 

000100 

FC.T1M= 

000010 

K$$LDC= 

000000 

ZF.MAN= 

020000 

FC.XCP= 

000012 

K$$TPS= 

000074 

ZF.MFL= 

000010 

FC.XME= 

000000 

LD$LP  = 

000000 

ZF.MTH= 

000400 

FMSK2  = 

******  GX 

L$$ASG= 

000000 

ZF.MUX= 

000040 

FS.AST= 

000000 

L$$DRV= 

000000 

ZF.PSE= 

002000 

FS.CIB= 

002000 

L$$P11= 

000001 

ZF.SLI= 

010000 

FS.CRA= 

001000 

L$$nR= 

000000 

ZF.TIM= 

000200 

FS.DIS= 

013000 

MAXLEN^ 

000006 

ZF.X3P= 

000000 

FS.DVC= 

001000 

Ml.nrsK 

000014R 

ZS.ASN= 

100000 

FS.ENB= 

012000 

Mf:CRB= 

000124 

ZS.BSY= 

140000 

FS.EXI= 

001000 

M$$CRX= 

000000 

Z.AVL 

000014 

FS.GET= 

006000 

M$$FCS= 

000000 

Z.DAT 

000016 

FS.HLT= 

000000 

l«l$$MGE= 

000000 

Z.DSP 

000000 

FS.INI= 

000000 

l«l$$NET  = 

000000 

Z.FLG 

000010 

FS.K]L= 

000000 

M$$OVR= 

000000 

Z.LEN  = 

000016 

FS.LCL= 

100000 

N$$ACC= 

000001 

Z.LLN 

000006 

FS.LTM= 

001000 

N$$BUF= 

000001 

Z.MAP 

000020 

FS.MNT= 

004000 

N$$LDV= 

000001 

Z.NAM 

000004 

FS.MSN= 

014000 

N$$MCP= 

000001 

Z.PCB 

000012 

FS.REA= 

001000 

N$$MLL= 

000001 

Z.SCH 

000007 

FS.RET= 

000000 

N$$MOV= 

000010 

SALOCX 

000020RG 

FS.REZ= 

003000 

N$$NCT= 

000001 

SCMEXI 

000602RG 

FS.RL8= 

0:2000 

N$$PEM= 

000001 

SCMINI 

000570RG 

FS.RNG= 

011000 

P$$P45= 

000000 

SDEACX 

000150RG 

FS.RST= 

000000 

P$$WRD= 

000000 

SRQSTL 

000650RG 

FS.RTN= 

001000 

Q$$OPT= 

000010 

SSQRTB 

000006R 

FS.SET= 

005000 

RD8NM  = 

******  GX 

SXLINK 

000432RG 

FS.SFC= 

005000 

RDBTH  = 

******  GX 

.$$$$.= 

000034 

AXTIM  - 
PERFORM 

266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
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0002AO  005726 


0002A2 


80$: 


BIT 
8ECI 
TST 

#F2.MP 

80$ 

(SP)t 

a 

MSK2 

;  IS  THIS  A  MULTI-PROCESSOR? 

;  BR  IF  NO 

;  CLEAN  UP  STACK 

.ENDC 

.IFTF 

TST 

(SP)t 

;  CLEAN  UP  STACK 

.ENDC 

RETURN 
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•FILE«*ID««SESCON 


ssssssss 

EEEEEEEEEE 

ssssssss 

cccccccc 

000000 

NN      NN 

ssssssss 

EEEEEEEEEE 

ssssssss 

cccccccc 

000000 

NN      NN 

ss 

EE 

ss 

cc 

00 

00 

NN      NN 

ss 

EE 

SS 

cc 

00 

00 

NN      NN 

ss 

EE 

ss 

cc 

00 

00 

NNNN    NN 

ss 

EE 

ss 

cc 

00 

00 

NNNN    NN 

ssssss 

EEEEEEEE 

SSSSSS 

cc 

00 

00 

NN  NN  NN 

ssssss 

EEEEEEEE 

ssssss 

cc 

00 

00 

NN  NN  NN 

ss 

EE 

ss 

cc 

00 

00 

NN    NNNN 

ss 

EE 

ss 

cc 

00 

00 

NN    NNNN 

ss 

EE 

ss 

cc 

00 

00 

NN      NN 

ss 

EE 

ss 

cc 

00 

00 

NN      NN 

ssssssss 

EEEEEEEEEE 

ssssssss 

cccccccc 

000000 

NN      NN 

ssssssss 

EEEEEEEEEE 

ssssssss 

cccccccc 

000000 

NN      NN 

ssssssss 

ssssssss 

111 

111 

ss 

111 

111 

ss 

ss 
ss 
ssssss 
ssssss 
ss 
ss 
ss 
ss 

111 

111 

111 

111 

ssssssss 

111 

111 

111 

111 

ssssssss 
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Symbol   table 


LT.D1R= 

LT.LCL= 

LT.LPL= 

LT.NOT= 

LT.RSU= 

LT.SL1= 

LT.TDA= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.CSTA 

L.CTR 

L.DCR 

L.flAG 

L.IlSQ 

L.ILTT 

L.LDA 

L.LIA 

L.LLA 

L.LNG 

L.LNO 

L.LPT 

L.LSA 

L.LSF3 

L.L5FI 

L.LTT 

L.MASQ 

L.HAST 

L.MASZ 

L.NIN 

L.NXN 

L.NXTH 

L.OPD 

L.OPDL 

L.REM 

L.RFC 

L.RLA 

L.RNO 

L.RTQ 

L.P1YD 

L.RFYI 

L.SEC 

L.SEGZ 

L.STA 

L.Tr 

L.TK 

L.MPD 

L.TIPI 

L.TMRD 

L.TMRI 

L.TYP 

L.USA 

L.USTA 

L.VER 

L.iJIM) 

MAPOBJ= 


000010 
000001 
000002 
OOOOAO 
000200 
00000^ 
000100 
000000 
000000 
000001 
000000 
000037 
000074 
000100 

oooou 

000052 
000066 
000032 
00003A 
000002 
000124 
000026 
000065 
000030 
0O0OA6 
000044 
000062 
000070 
000073 
000072 
000020 
000016 
000010 
000103 
000102 
000006 
000050 
v00004 
000022 
000060 
000055 
000057 
000064 
000076 
000000 
000042 
000043 
000013 
000012 
000054 
000056 
000001 
000024 
000036 
000015 
000040 


GX 


MA. CI  = 

MA. DA  = 

MA.IL  = 

MC.CC  = 

MC.CI  = 

MC.DC  = 

MC.Dl  = 

MC.NO  = 

MC.RC  = 

MD.BM  = 

MD.EM  = 

MD.ILS= 

MD.IM  = 

MF.ACK= 

MF.CTL= 

MF.DAT= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$MUP= 

M$$NET= 

M$$0VR= 

M.MAIL 

M.MAX 

M.MBL 

M.NAST 

M.NEXT 

M.RESP 

M.SPA 

M.TASK 

M.USE 

NC.FMO= 

NC.FM1= 

NC.FM2= 

NE$ABM= 

NE$ABO= 

NE$ACC= 

NE$ACT= 

NE$COM= 

NE$FCF= 

NE$FMT= 

NE$GEN= 

NE$IFC= 

NE$ILS= 

NE$IMG= 

NE$MLB= 

ne:nnf= 

NE$NOD= 
NE$NSD= 
NE$NSL= 
NE$NSR= 
NE$RES= 
NE$SSR= 
NE$SS5= 
NE$TCN= 

NE$rco= 


000040 
000000 
000020 
000040 
000020 
000100 
000060 
000000 
000140 
000040 
000100 
000040 
000020 
000004 
000C10 
000000 
000124 
000000 
000000 
000000 
000000 
000000 

ocoooo 

000014 
000011 
000020 
000007 
000002 
000016 
000012 
000004 
000010 
000000 
000001 
000002 
000010 
000046 
000042 
000042 
000047 
000050 
000005 
000007 
000030 
000043 
000042 
000006 
000012 
000002 
000003 
000013 
000003 
000001 
000000 
000045 
000040 
000006 


NE$TPA= 

NE$UOB= 

NF$ACC= 

NF$BLK= 

NF$DMO= 

NF$EVT= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$TIM= 

NF.ACC= 

NF.BCP= 

NF.END= 

NF.EVT= 

NF.LLI= 

NF.LV2= 

NF.SLI= 

NF.SHC= 

NF.SUP= 

NO.DTR= 

NO.FAL= 

N0.FA1= 

NO.NCU= 

NO.RTL= 

NO.TAS= 

NO.TCL= 

N0.TC1= 

NO.TLK= 

NS$DON= 

NS$SDI= 

NS$WDC= 

NT.ABO= 

NT.A8T= 

NT.CON= 

NT.DSC= 

NT.EVT= 

Nl.'^iT= 

N7.M0P= 

NT.NSP= 

NT.VFy= 

N$ACa 

NSACTL 

N$CIR 

NSDLA 

NSDLY 

n:elen 

iMSENC 

NSERRC 

NJFLG 

N$FNC 

NSGENQ 

N$GTM 

NSHIGH 

NSLLT 

NSLLIM 

N$LVC 


000010 
000004 
100000 
000100 
000010 
040000 
000040 
000002 
000020 
000004 
000200 
000001 
000040 
000200 
000002 
000004 
000100 
000400 
000020 
000010 
000077 
000021 
000001 
000023 
000022 
000000 
000017 
000005 
000020 
000000 
00J002 
000004 
000005 
000004 
000001 
000003 
000006 
000002 
000010 
000010 
000007 
000000 
000032 
000034 
000020 
000014 
000054 
000042 
000022 
000005 
000006 
000052 
000015 
000033 
000026 
C00C24 
000056 


NSMBXQ 

NSPLLT 

N$SLA 

NSSNOD 

N$TIM 

N$VCB 

N$$ACC= 

N$$EVL= 

N$$LDV= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

N$$SES= 

N.CAC 

N.CACC 

N.CBL  = 

N.CDA 

N.CDAC 

N.CDDS 

N.CDEV 

N.CID 

N.CIDC 

N.CPS 

N.CPSC 

N.CTL 

N.CUIC 

N.CUNI 

N.DDE 

N.DDEC 

N.DFM 

N.DGP 

N.DNM 

N.DNMC 

N.DOT 

N.DUS 

N.RAC 

N.RACC 

N.RDE 

N.RDEC 

N.RFM 

N.RGP 

N.RID 

N.RIDC 

N.RND 

N.RNM 

N.RNMC 

N.ROT 

N.RPS 

N.RPSC 

N.RQL  = 

N.RUS 

N.SDE 

N.SDEC 

N.SEGZ 

N.SFM 

N.SGP 


000050 
000030 
000016 
000012 
000004 
000010 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000001 
000120 
000116 
000142 
000142 
000140 
000070 
000062 
000064 
000062 
000106 
000104 
000000 
000066 
000064 
000010 
000006 
000004 
000006 
000014 
000012 
000005 
000010 
000070 
000066 
000012 
000010 
000006 
000010 
000034 
000032 
000000 
000016 
000014 
000007 
000056 
000054 
000110 
000012 
000042 
000040 
000002 
000036 
000040 


N.SND 

N.SNM 

N.SNMC 

N.SOT 

N.SUS 

OF.PRO= 

OF.RLU= 

OF.SMC= 

O.FLG 

O.LEN 

O.LNK 

O.MXC 

O.NAM 

O.TYP 

P$$P45= 

P$$WRD= 

QUETSK 

Q$$0PT= 

RMVUND= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

SNDACC= 

SNDCON= 

SRSTD  = 

ST$CC  = 

ST$CIR= 

ST$C1S= 

ST$DAT= 

ST$D1P= 

ST$PND= 

St$URG= 

S$$YSZ= 

TLACHK= 

T$$KMG= 

T$$MIN= 

T.NAM  = 

UISAR6= 

USRCI 

US$CNF= 

US$DIS= 

US$DON= 

US$DSC= 

US$EAC= 

US$WDS= 

U.CW3  = 

VE.FAI= 

VFYNAM= 

VS.NPV= 

VS.PRV= 

VZ.NVD= 

V$$CTR= 

W<.ACK= 

WK.AST= 

WK.DIS= 


000030 

000046 

000044 

000037 

000042 

000040 

000100 

0002C0 

000003 

000012 

000000 

000004 

000006 

000002 

000000 

000000 

000716RG 

000010 

*♦♦***  GX 

000000 

000001 

000000 

000000 

000000 

******  GX 

******  GX 

******  GX 

000004 

000006 

000002 

000010 

000012 

000014 

000000 

007600 

******  GX 

000000 

000000 

******  GX 

******  GX 

000360RG 

000002 

000006 

000000 

000004 

000012 

000010 

******  GX 

177777 

******  GX 

000001 

000002 

000000 

001000 

000001 

000200 

000010 


SESCTL  -  Session  control   contro 
Network   deaccess 


226  000100 

227  000106 

228  000110 

229  0001  Is 
230 

231  000120 

252  000122 

233 

23^  000132 

235  000140 

236  0OOU4 
237 

238  000150 
239 

240  000156 

241  000162 
242 

243  000166 

244  000170 

245  000172 

246  000174 
247 

248 
249 
250 
251 
252 
253 
254 
255 
256 
257 

258  000176 

259  000200 
260 

261  000204 

262  000210 

263  000212 

264  000216 
265 

256  000220 

267  000226 

268  000232 

269  00C236 
270 

271 
272 
273 
274 
275 
276 

277  000240 

278  000244 
279 

280  000250 

281  000252 

282  0002';6 


016467 
001404 
012700 


012603 


012763 
012702 


000010 
OOOOOOC 


000046 
000264" 
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OOOOOOG 


20$: 


000100 


105364  000010 

005721 
005316 
001321 
005726 


100$: 


MOV 
BEQ 
MOV 
CALL 

MOV 
CALLE 

MOV 
MOV 
CALL 

RESRC 

CALL 
DECS 

TST 
DEC 
BNE 
TST 


U.TMP{R4),$I0PKT 
20$ 

#IE.A8O£377,R0 
lODUNi 

(SP}+,R3 
ACCLLT 


Is  there  a  pending  disconnect  request? 

If  EQ,  no 

Complete  the  request  in  error 


Recouer  LLi  address 
Gain  access  to  the  LLT 


*ER$ABO,l  .DCR(R3) 

*CLSTA-2,R2    ;  Point  to  disconnect  substate  table 
;  Kill  the  logical  link 


KILLNK 

<R4,R3,R1> 

RMVUND 
M.USE(R4) 

(Rl)  + 
(SP) 
10$ 
(SP)  + 


Recover  registers 

Release  the  window  block  resources 
One  less  link  in  use 

Skip  LUT  entry 
Any  more  to  go? 
If  NE,  yes 
Clean  up  stack 


010'  1 
062'  0 

026004 
001403 
016000 
000772 

016460 
016403 
010367 


*»-CLSDON-Completion  of  network  deaccess 


This  routine  is  called  to  complete  processing  of  a  network  deaccess 
request. 


Inputs: 
R4 


Address  of  mailbox 
R5  =  Address  of  database  descriptor 


0000'.6 
0000C2 
000002 


000002 
000012 
OOOOOOG 


CLSDON: 
10$: 


000002   20$: 


005073 
105061 

010400 
012701 


OOOOOOG 
OOOOOOG 


000020 


MOV 
ADD 

CMP 
BEQ 
MOV 
BR 

MOV 
MOV 
MOV 
RESRG 

.IF  DF 

MAP 

.ENDC 

CLR 
CLRB 

MOV 
MOV 

CALL 


Compute  address  of  mailbox  listhead 


R5,R0         ; 
#N$MBXO-M.NEXT,R0 

M.NEXT(R0),R4 
20$ 

M.NEXT(RO),R0 
10$ 

M.NEXT(R4),M.NEXT(R0) 

M.SPA(R4),R3    ;  Recover  I/O  packet  address 

R3,$I0PKT      ;  Saue  it  for  later  I/O  completion 

<R1>  ;  Recover  task  header  address 


Scan  ;nailbox  queue  for  this  entry 
If  EQ,  found 
Move  down  list 
and  try  again 


X$$HDR 
$HDRMP 


ai.Lf^2(R3) 
H.MML(RI) 

R4,R0 

#M.M8L,R1 

aOEACB 


Map  to  the  task's  header 


Remove  address  of  mailoox  from  LUT  table 
Network  no  longer  accessed 

Copy  address  of  mailbrx 
Size  of  mai I  box 
Deallocate  the  mai  Lbox 
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700 

701 

702 

703 

70A 

705 

706 

707 

708 

709 

710 

711 

712 

713 

7U 

715 

716 

717  001006 

~"  0010U 

719  001020 

720 

721  001026 

722  001032 

723  001036 
724 

725  001040 

726  001 0-i^ 

727  001050 
728 

729  001056 

730  001060 

731  001062 


.SBTTL  Access  control  completion 
**-NVP-Access  control  completion 


This  routine  handles  the  access  control  completion  from  the  network 
verification  program  (NVP...). 


Inputs: 
R1 


71 


016300 
016063 

010A67 

103472 

10'  V. 

016705 

116361 

010146 
010100 
016301 


000002G 

000004  000016G 

OOOOOOG 


000010 
OOOOOOG 
000006G  000032 


NVP: 


OOOOOOG 


732  001066 

016302 

000002G 

733  001072 

062702 

160066 

734  001076 

016003 

000014 

735  001102 

016004 

000016 

736  001106 

062704 

000062 

737  001112 

012700 

000034 

738  001116 

739 

740  001122 

741 

742  001126 

012604 

743  001130 

112764 

000201 

000010 

7W  001136 

142764 

000004 

000011 

745  001144 

012765 

000042 

000022 

746 

747 

748  001152 

116400 

000033 

749  001156 

001003 

750 

751 

752 

753 

754 

755 

756 

Address  of  the  task's  header 
R2  =  Subfunction  code/4 
R3  =  Address  of  I/O  packet 
R4  =  Address  of  mailbox 
R5  =  Address  of  database  descriptor 

Task  header  is  mapped  (RSX-lU'i-Plus  ONLV) 

.If  DF  N$$ACC 

MAP  I.PRMIR3)      ;  Map  to  the  user  buffer 

MOV  I.PfiM+2(R3),R0  ;  Get  virtual  address  of  user's  buffer 

MOV  N.CTL+4(R0),I.PRMt16(R3) 

MOV  R4,$MAIBX      ;  Save  address  of  mailbox 

CALL  TLACHK         ;  Check  for  valid  TLA 

BCS  BADERR         ;  If  CS,  no  match 

DECB  M.USE(R4)      ;  Reduce  count  of  active  links 

MOV  $I0PKT,R3      ;  Recover  I/O  packet  address 

MOVB  I.PRM+6{R3),C.FLG2(R1) 

MOV  R1,-(SP)       ;  Save  verification  CCB 

MOV  Rl.fiO         ;  Copy  CCB  addresc 

MOV  I.PRM(R3),R1    ;  Set  source  APR  bias 

MOV  I.PRM+2(R3),R2  ;   and  source  virtual  address 

ADD  #N.Ci:^C+4-20000,R2 

MOV  C.SUF(R0),R3    ;  Set  destination  APR  bias 

MOV  C.BLiFt2(R0)  ,R4  ;   and  destination  virtual  address 

ADD  #N.CIDC,R4      ;  Start  at  source  task  ID  byte  count 

MOV  *N.CACC-N.C1DC,R0 

CALL  aSLXIO        ;  Copy  the  verification  results 

CALL  lOSUC 

MOV  (SP)+,R4       ;  Recover  verification  CCB 

MOVB  #NT.C0N1CM.C0N,C.FNC(R4) 

8ICB  #CX.UNL,C.M0D(R4) 

MOV  *ER$ACC,N$ERRC(R5)  ;  Set  up  'access  control  failure'  reason 

.IF  NDF  R$$PRO 

Move  C.FLG2t1 (R4),R0 

BNE  10$ 

.IFF  ;  NDF  R$$PRO 

TST  C.PR0(R4) 

BEQ  20$ 

TSTB  C.FLG2(R4) 

8LT  201 


Complete  the  I/O  request  successfuU> 


On  PRO/DECnet,  validate  all  verif  levels. 
Get  requested  verification  level 
If  NE,  allow  connect  to  pass 

Did  a  virtual  terminal  get  setup?? 

BR  if  not,  reject  the  connection. 

Did  verification  succeed? 

If  LE,  no  ...  reject  the  connection 

(note  that  tor  PRO/DECnet,  no  verification 
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42 
A5 
A4 
45 

47  000000 

48  000000 
4)  000000 

50  000000 

51  000000 
52 

53 


.SBTTL  Macro  definitions 

.MCALL  CAVRG,RESRG,MAP,SAVMAP,RESMAP,MAPLLT 
.MCALL  CC8DF$,CTRDF$,ECDDB$,LLTDF$,EVLDF$ 

CCBDFS 
CTRDFS 
ECDDBS 
LLTDFS 
EVLDFS 


000C01 


N$$SES 


1 


Define  CCB  offsets 

Define  counter  block  offsets 

Define  ECL  database  offsets 

Define  LLT  offsets 

Define  event  logger  symbols 

This  module  is  part  of  session  control 


•FILE««1D««SESDAT 
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1 
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3 

5 

6 

7 

8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 


.TITLE  SESDMO  -  Session  control  dismount  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  prowided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  O'^i. 
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Session  control  dismount  processing 

Ident  history: 

4.00  07-NOV-83 
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DECNET-llM-PLUS  V2.0 
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Macro  definitions 

Dispatch  tables 

Session  control  AtP  idle  loop 
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Dete'"iTiine  fa^k  naiie 
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i68 

469 
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482 
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486  000370 

487 
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508 
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.SBTTL  Determine  task  name 

»»-NMX)(X-Determine  task  name 

Determine  the  task  name  to  be  used  for  the  task  request  logic. 

Inouts: 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Outputs: 

R3  =  Pointer  to  task  name 

Registers  modified: 
R1 


*»-NMC0N-Connect  request 

NMCON:   .IF  DF  NSSHiP 

MOVS    C.STS(R4),$RQCPY;  Set  max  #  of  copies  allowed 

.ENDC 

MOV     C.8Ui-2+2(R4),R3  ;  Get  pointer  to  task  rame 
RETURN 

**-NMEVT-Network  event 

NMEVT:   .IF  DF  N$$MCP 

MOV     #N$$SMC,$RQlPY  ;  Set  max  #  of  copies  allowed 

.ENDC 

MOV     R4,R3         ;  Compute  address  of  task  name 

ADD     #C.CNT2,R3 

RETURN 

**-NMVFY-Veri f ication  request 


SE 


.IF  DF  N$$AlC 

'IMVFY:   MOV     #VF»NAM,R3 
RETURN 

.ENDC 


Point    to   i/eri  f  ication   task  rame 
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.TITLE  SESI^II  -  Session  control  initialisation 
.IDENT  /VO^OO/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  ?nd  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  ot  ..r  copies  thereof,  may  not  be  provided  or  otherwise 
made  jvailable  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  leliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 
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Session  control  initialisation 

I  dent  history: 
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SESSUB11S      CREATED  BY     MACRO     ON  28-JUN-85   AT   20:00 
SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

MOS25A 

=  000006 

#6-54 

MO$25P 

=  000002 

#6-54 

v|0$25S 

=  000004 

#6-54 

M0$29S 

=  000010 

#6-54 

MVFBF 

=  *»»«»*  GX 

10-274 

MSHIGH 

=  000003 

#6-54 

M$3100 

=  000000 

#6-54 

MS3101 

=  000001 

#6-54 

M$3102 

=  000002 

#6-54 

M$3103 

=  000003 

#6-54 

6-54 

M.MAIL 

000014 

9-229 

23-931 

M.NEXT 

000002 

26-1065 

26-1067 

M.SPA 

000012 

9-236 

M.TASK 

000004 

26-1069 

38-1507 

M.USE 

000010 

♦24-994 

NF$BL< 

=  000100 

28-1156 

NFSSCN 

=  000020 

7-95 

NFSTIM 

=  000200 

7-95 

NMSARA 

=  176000 

17-612 

17-615 

NOOP 

003506  R 

#41-1647 

41-1666 

NSTATE 

003510  RG 

41-1637 

#41-1654 

NSSDDN 

=  000000 

12-574 

41-1642 

NISSSDI 

=  000002 

12-375 

12-376 

NT.VFY 

=  000007 

40-1608 

N$ACT. 

000032 

♦8-185 

8-186 

NSDLA 

000020 

♦8-176 

27-1127 

N$DLY 

000014 

♦11-343 

N$ENC 

000042 

11-298 

11-300 

NSERRC 

000022 

♦8-116 

♦17-620 

NSFLG 

000005 

♦  7-95 

♦28-1156 

NSGENO 

000052 

7-83 

7-90 

N$GTM 

000015 

♦  7-93 

NSHIGH 

000033 

8-186 

♦8-188 

NILLT 

000026 

♦8-138 

35-1388 

NSLLTM 

000024 

^8-139 

10-259 

N$LVC 

000036 

8-117 

8-118 

NSMBXQ 

000050 

26-1065 

NSPLLT 

000030 

.8-134 

8-170 

NSSLA 

000016 

27-1125 

27-1126 

NSSNOD 

000012 

8-178 

11-305 

N$$ACC 

=  000001 

40-1606 

NSSBUF 

r  **+*** 

22-896 

NSSECL 

r  *  *  t  **  * 

8-206 

10-263 

N$$Ev'L 

=  000001 

#4-2 

11-317 

NSSHDR 

=  000007 

27-1115 

NSSMCP 

-  It*  **  *  t 

30-1225 

N$$MLL 

=  000001 

8-129 

8-196 

NSSNCT 

=  000001 

8-206 

8-206 

N$$SES 

=  000001 

#6-65 

8-29§o, 

n$$sl; 

-  ****** 

8-158 

35-1393 

NSSVCT 

-  ****** 

8-131 

8-198 

17-664 

17-720 
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40-1585 


17-618 


12-377 

8-188 
27-1128 

20-806 
♦17-631 


10-270 
8-171 

8-193 

11-337 


11-326 
11-326 


10-259 

10-263 

10-263 

41-1669 

9-238 

19-780 


12-379 
♦35-1433 


20-808 
♦27-1104 


20-825 


20-830 


♦20-831 


♦FI 
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ssss 


11-347 

19-786 

31-1257 

35-1387 

42-1711 

35-1415 

27-1122 

35-1420 

15-467 

17-610 

17-649 

17-706 

11-347 

19-786 

31-1255 

35-1387 

35-1423 

42-1711 

10-263 

17-706 

17-706 

11-326 

17-706 

42-1701 

10-259 

10-266 

11-298 

11-347 

17-609 

17-660 

19-786 

20-806 

21-850 

21-851 

21-853 

23-929 
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52" 

522 
525 
524 
525 
526 
52^ 
528 
5^9 
530 
53' 
552 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
54  3 

544 
545 
546 
547 
548 

550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
565 
564 
565 
566 
567 
568 
569 
570 
571 
572 
575 
374 
575 
576 


C  1 

dispat  MACRO  V05.05b  Friday  28-Jun-85  19:56  Page  13 

.IF  DF  N$$,N!CP 

.S8TTL  Map  prototype  TC8  into  target  TC8 
I- 
**-MPTC8-Map  prototype  TCB  into  target  TCB 

Generate  a  new  TCB  for  the  given  task  and  link  it  into  the 
STD. 

Inputs: 

RO  =  Virtual  address  of  prototype  TCB 
R3  =  Pointer  to  RAD50  task  name 
R4  =  Address  of  CCB 

Outputs: 

RO  =  Address  of  new  TCB 

'C  Clear  -  New  TCB  linked  into  STD 

'C  Set   -  Failed  to  allocate  a  new  TCB 

APR  6  mapping  is  restored  to  netacp 

Registers  modified: 
RO,  R1 


SE< 

Ma! 


MP  TCB: 


TCB: 


10$: 
20$: 


30$: 


40$: 


.PSECT 

SAVRG 
MOV 
MOV 

RECMAP 
J  MP 

.PS'?CT 

CLR 

.IF  DF 

BITB 
BEQ 

.ENDC 

CALL 

MOV 

CALL 

BCS 

BIT 

BNE 

BIT 

BNE 

INC 
CMP 

It' 

MOV 


<R2,R4> 

T.NAM+2(R0),-(SP)  ;  Put  task  name  on  the  stack 

'.NAM(R0),-(5P)  ; 

Recover  APR  6 

Change  to  run  in  APR  6 


TCB 

$HIGH 

Rl 

R$$MPL 

*CX.SMC,C.M0D(R4) 
20$ 


MUTNAM 

SP,R3 

aSRSTD 

40$ 

#T3.REM,T.ST3(RO 

30$  ; 

#TS.EXE,T.STAT(RO) 


Initialise  count 


50$ 

Rl 
R1,$R0CPY 

loi 

6C$ 

TIGTH.RI 


It  EO,  non-mult i-copy  task,  just  try  once 


Generate  a  new  name 

Point  to  new  task  name 

See  if  name  is  already  iii  use 

If  CS,  it  is  not 

If  marked  for  removal  we  cannot  use  it 

If  not  active,  use  it 


;  Updat;  task  # 

;  Criecked  all  possible  task  names: 

;  if  NE,  no  ...  keep  trying 

;  All  done 

;  Get  size  of  a  ICB 
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SE 


SESINI   - 
i*lacro  de 

A^ 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
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age  6 


.SBTTL     Macro  definitions 

.MCALL      SAVfiG,RESRG,MAP,EVT$,CALiX,MAPLLT,RECMAP 
.MCALL      DH8DFi,PDVDF$,EVLrf$,ECDDB$,CTRDFl,MSGrF$ 


000000 
000000 
000000 
000000 
000000 
000000 


051516 
000001 


SESSDV 
N$$SES 


DHBDFS 
PDVDFS 
EVLDFS 
ECDDBS 
CTRDFS 
MSGDFS 

=  "NS 


;  Define  DEC  home  block  offsets 

;  Define  PDV  offsets 

;  Define  event  logger  constants 

;  Define  ECL  database  offsets 

;  Define  counter  block  offsets 

;  Define  message  constants 

;  Device  name  for  session  control 

;  This  module  is  part  of  session  control 


SE 
SV 
SY 


$S 
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SVMBOl    CROSS   REFERENCE 

SYMBOL     VALUE  REFERENCES 

8-157 
7-iK 
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CREF        0^.00 


$SESD9  =   *«♦**» 

SSESPD  =    ♦•»»♦• 

$UCB  =    ».«»•.» 

t/(PTIN  =    *♦«♦*• 


GX 
GX 
GX 
GX 


♦7-82 

•  7-78 

•  7-9'; 
7-106 


SE 

s^ 
s^ 

A( 
A( 
A( 
AE 
AE 
AE 


CI 
CI 

CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
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SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


ACPIDL 
ACSDNT 
AC$X25 
AESCIR 
AEtLlN 
AE4M0D 
BYTE3 

CLSASZ 
CL$DLL 


000002 
000001 
000003 
000001 
000304 
000300 

010500 
000500 


GX 


CL$ECL 

=  000300 

CLSLDN 

=  010400 

CLSMAN 

=  000000 

CL$PAZ 

=  034100 

CLtPLH 

=   034000 

:l$pll 

=  00O600 

CLSPRT 

=  034200 

:lirou 

=  01 0000 

CLtSES 

=  000200 

CLSS&E 

=  035000 

CLSSSE 

=  035100 

CLSTRN 

=  000400 

CL$XL2 

=  013700 

CLSXL3 

=  013600 

CL$X2S 

=  013500 

3EALD3 

-      ****** 

3L$AST 

=  000002 

DLSHLT 

=  000000 

DLSIST 

=  000001 

ULSMAI 

=  000004 

DLSOFF 

=  000001 

DLSON 

=  000000 

DLSPUN 

=  000003 

ClSSHU 

=  000002 

[/LtSYN 

=   000005 

DREXT 

-    *♦*♦*+ 

EFSACT 

=  ooooc; 

EVLSES 

r     ****** 

EVSACF 

=  000201 

EVtADR 

■=  000420 

EVSADU 

=  000417 

EVSAPL 

=   0f''i400 

EVSARC 

=  00U421 

E\/$A!JC 

=  000010 

EVlAdS 

=  000003 

Ei/ICDF 

=  000520 

EVSCOZ 

=  000011 

EV$D8R 

=  C00302 

l^iga: 

=  035101 

GX 


GX 
GX 


REFERENCES 


8-93 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#8-118 

8-11 

8-121 

#8-12 

#6-54 

#6-54 

6-5A 

6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

#6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

#6-54 

6-54 

6-54 

6-54 

6-54 

#6-54 

#6-54 

6-54 

#6-54 

6-54 

8-113 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-5; 

#6-54 

#6-54 

8-124 

#6-54 

8-118 

3-12 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#8-118 
8-121 

6-54 


6-54 
6-54 
6-54 


6-54 
6-54 
6-54 
6-54 
6-54 
6-54 


C     4 

PAGE   1 

CREF        04.00 


Sf 
Pi 


8-118 
#8-121 

6-54 


6-54 
6-54 


6-'^4 
6-54 
b-54 


#8-118 
8-121 

b-54 


6-54 


6-54 
6-54 
6-54 


8-118 
8-121 

6-54 


8-118 
8-121 

6-54 


8-11S  #8-121 

6-54  6-54 


6-54 
6-54 


6-54 
6-54 


6-54 
6-54 


6-54 
6-54 
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SESPRO  -  Session  control  protoc  MACRO  V05.03b  Friday  28' 
Process  receii/ed  CI  message 


193 
194 
195 
196 

197  000302 

198  000310 
199 


00316 
0322 
0326 


200 
20" 
2C- 
203 
20'.  000330 

205  00033A 

206  000342 

207  000346 
208 

209  000350 

210 

211 

212 

213 

214 

215 

216  000350 

217  000360 
218 

219 

220 

221 

222  000362 

223 

224  000366 

225  000374 

226  000376 

227  000402 

228  000406 

229  0C0414 

230  000420 
23  000424 
232 

233  000426 
254  000432 
235 

236  L00436 

237  000442 

238  0004S2 
259  000456 


103417 

112713 
016564 

103405 


022765 
001414 
016746 
112713 
016565 

C12667 
000414 


C05065 
016704 
005067 


000006 

000030  000006 


M0V8 

.ENDC 

COUNTS 
COUNTS 

CALL 
CALL 
BCS 

MOVS 
MOV 
CALL 
BCS 


C  5 
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C.LIN(R4),L.CHn(R5)  ;  Sai/e  channel  *  for  possible  DC  response 


ESNMR 
ESNCR 

?ROCON 

CNVC! 

110S 


;  Count  a  received  ECL  message 

;  Count  a  received  connect 

;  Process  requested  connect  services 

;  Process  descriptor  fields 

;  If  CS,  field  format  error  or  resource  error 


*STSCIR,(R3)    ;  Indicate  CI  received 

NSPLLT(R5),C.LIM(R4) 

USRCI         ;  Tell  user  about  received  CI  message 

IOCS  ;  If  CS,  connect  failure 


40S: 


50S: 


.IF  DF  NSSSLI 


BIT 
BNE 

.EI^DC 

CALLE 
RETURN 


#LT.SLI«400,(R3);  Is  this  a  system  level  interface  link? 
50$  ;  If  NE,  yes  ...  don't  send  the  CI  ACK  yet 


ACKCI 


;  Send  the  CI  ACK 


Error  processing  for  C!  message 


000001  000022 

OOOOOOG 

000012 

000022  000100 

OOOOOOG 

000020 

OOOOOOG 

OOOOOOG 


OOS: 
110S: 


115i: 
120$: 
130$: 


CALL 

CMP 
BEO 
MOV 

Move 

MOV 
CALi 
MOV 
BR 

CALL 
CLR 

MOV 
CALLE 
CLR 
RETURN 


RLSCI 


Release  the  CI  resources 


#ERSRES,NSERRC(R5)  ;  Is  this  a  'NO  RESOURCES' 

115S  ;  If  EQ,  yes  -  send  a  DC  message 

$RCC8,-(SP)     ;  Save  the  RDB  so  we  can  toss  it  later 

#STSDIP,(R3)    ;  Put  link  in  DIP  state 

NSERRC(R5) ,L.DCR(R3)  ;  Set  up  the  correct  reason  code 

SENDDI         ;  Send  the  DI  message 

(SP)+,SRCCB     ;  Recover  the  CI  messaqe  RDB 

;   and  return  so  the  CI  RDB  is  tossed 


150$ 
REMLN< 

n$dla;r5) 

$RCC8,R4 

SENDDC 

$RCr8 


;  Remove  the  LLT 

;  Make  sure  we  have  the  correct  link  addresses 

;  Recover  received  CCB  address 

;  Send  DC  for  no  r.sources,  etc 

;  We  hive  re-used  this  CCB 
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SESPRO  -  Session 
^/mbol  table 


C    6 
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LA.AC<= 

IA.CRS= 

LA.MS<= 

LA.NAK= 

LA.N^!S= 

LA.RES= 

LA.WND= 

LD$LP   = 

LF.DRD= 

LF.FRC= 

LF.HFO= 

LF.HMF= 

LF.HSF= 

LF.IRD= 

LF.MMF= 

LF.MSF= 

LS.DLS= 

LS.FCC= 

LS.FCO= 

LS.FC1= 

LS.ILS:^ 

LS.MAK-- 

LS.MNK= 

LS.Rf S= 

LS.R5V= 

LT.CCA= 

LT.DIR= 

L^'.LCL: 

LT.LPL= 

LT.NOl= 

LT.RSU= 

LT.SU  = 

LT.TDA= 

L$SASG= 

L$$DRV= 

L$JP11= 

Lt$nR  = 

L.CSTA 

L.CTR 

L.DCR 

L.FLAG 

L.ILSO 

L.ILTT 

L.LDA 

L.LIA 

'  .LLA 

t.  .LNG 

L.LNO 

L.LPT 

L.ESA 

L.'-SFD 

L.LSfl 

L.LTT 

L.MASQ 

L.1AS' 

L.rVIASr 


100000 
020000 
170000 
110000 
010000 
OAOOOO 
OOAOOO 
000000 
OOOOOA 
000001 
000010 
000040 
000020 
000002 
000200 
000100 
100000 
OOOOOA 
000001 
000002 
1C0OOO 
000020 
OOOOAO 
000360 
000300 
000020 
000010 
000001 
000002 
OOOOAO 
000200 
OOOOOA 
000100 

cooooo 

000000 
000001 
000000 
000037 
000G7A 
000100 
0OOO1A 
000052 
000066 
000032 
00003A 
000002 
0001 2A 
000026 
000065 
000030 
0OOOA6 
COOOAA 
C00062 
000070 
0000^3 
000072 
000020 


L.NXM 

L.NXTH 

L.OPD 

L.OPDL 

L.REM 

L.RFC 

L.RLA 

L.RNO 

L.RTQ 

L.R^D 


.RTYl 
.SEC 
.SEGZ 
.STA 
.TC 
.TIC 
.TIPD 
.TIPI 
.TMRD 
_.TMRI 
L.TYP 
L.USA 
L.JSTA 
L.VER 
L.WIND 
MA. CI  = 
MA. DA  = 
MA.IL  = 
MC.CC  = 
MC.CI  = 
MC.DC  = 
MC.Dl  = 
MC.NO  = 
MC.RC  = 
MD.BM  = 
MD.EM  = 
MD.ILS^ 
MD.IM  = 
MF.ACK= 
M.''.CTL  = 
MF.PAT= 
M1$CR8= 
MS$CRX= 
M$$fCS= 
M$$MGE= 
M$$MUP= 
M$$NET= 
M$$OVR= 
NC.FMO= 
NC.FM1-r 
Nr.FM2= 
NF$BLK- 
NFSDMO- 
NF$MOO= 
NF$RSr= 
r>IF$3CN= 
NFSSHU^ 


000016 
000010 
000103 
000102 
000006 
000050 
OOOOOA 
000022 
000060 
000055 
000057 
00006A 
000076 
000000 
0000A2 
000043 
000013 
000012 
C00054 
000056 
000001 
000024 
000036 
000015 
000040 
000040 
000000 
000020 
000040 
000020 
000100 
000060 
000000 
000140 
000040 
000100 
000040 
000020 
000004 
000010 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000002 
000100 
000010 
000040 
000002 
000020 
000004 


NF$TIM= 

000200 

NM$ARA= 

176000 

NM$N0D= 

001777 

N0LINK= 

******  GX 

NOOP 

000076R 

NS$DON= 

000000 

NS$SDI= 

000002 

NS$WDC= 

000004 

NT$AKD= 

000020 

NT$AKI= 

000022 

NT$CC  = 

000016 

NT$CON= 

000000 

NT$CTL= 

000000 

NT$DAr= 

000002 

NT$DC  = 

000012 

NT$D1S= 

000014 

NTSDLS= 

000006 

NT$IlS= 

000010 

NT$IMS= 

000002 

Nr$lNT= 

000004 

NT$REr= 

000032 

NT$ROU= 

000024 

NT$RTR= 

000030 

NT$TSP= 

000026 

NSACQ 

000000 

NSACTL 

000032 

N$C1R 

000034 

N$DLA 

000020 

N$DLY 

000014 

NSELEN 

000054 

N$ENC 

000042 

NSERRC 

000022 

N$FLG 

000005 

NSFfJC 

000006 

MSGENQ 

000052 

N$GTM 

00OC15 

NSHIGH 

000033 

N$LLT 

000026 

N$LLTM 

000024 

N$LVC 

000036 

NSMBXQ 

000050 

N$PLLT 

000030 

N$SLA 

000016 

NSSNOD 

000012 

NSTIM 

000004 

N$VC8 

000010 

N$$ACC= 

000001 

N$$ACK= 

000011 

N$$EVL= 

000001 

N$IHDR= 

000007 

N$$LDV= 

000001 

N$$HLL= 

000001 

N$$MOV= 

000010 

N$$NCr= 

000001 

N$$OVR= 

000022 

N$$PEM= 

000001 

N$$SESu 

000001 

PROCON 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RCPTBL 

RCVCC 

RCVCl 

RCVCTL 

RCVDC 

RCVDI 

RCVRCI 

RCVTBL 

REMLNK- 

RF.INI= 

RF.LDA= 

RF.RQR= 

RF.RSV= 

RF.RTS= 

RH.CTF= 

RH.DTF= 

RH.MSF= 

RLSCI  = 

RL.CKS= 

RL.CTL= 

RL.DAH-^ 

RL.DH4= 

RL.SGH-^ 

RL.TVl-^ 

RL.VER-- 

RSNDDi 

RTRANS 

R$$DER^ 

R$$<11= 

R$$SND= 

R$$11M= 

R$$1U-- 

SAVOP; 

SlNODC- 

s;nddi 

S.^JSESD  = 
SiOPCC= 
5T0PCI= 
ST$CC  = 
3T$CIR= 
ST$CIS= 
5l$DAT= 
ST$D|P^ 
STIPl^D^ 
5$$v.liG  = 
Si$VS7= 
■!.END= 
!1.RSV= 
ri.RT1= 
TI.RT2= 
Ti.rcp: 

Ti.,FV- 


GX 


001352R 

000000 

000000 

000010 

000004R 

000552R 

000120R 

OOOOOOR 

001176R 

001022R 

000460R 

000100R 

****** 

000040 

000004 

000010 

000100 

000020 

000001 

000002 

000003 

*»*«.*  GX 

000002 

Ci:y003 

000006 

000025 

000004 

000012 

000006 

001654RG 

001672RG 

000000 

000001 

000000 

000000 

000000 

A*****  GX 

******  GX 

001552RG 

******  GX 

*•*«•«  GX 

**;'**  GX 

000^-'^"-< 

000-'''O 

OOO'JOi.- 

00^*010 

00i"'012 

000014 

000000 

007600 

000003 

000370 

000002 

000001 

00C003 

DOOOO'. 


TIFlAG 
T$LIF 
TSLIFL 
TSLIFO 
002  TSLIFS 
T$LIN 
TSLIPS 
TSLLD 
T$LLDC 
TSLLDL 
T$LLD0 
TSLIDS 
TSLLEN 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NF£ 

TSNLEN 

rSNNUL 

TSNOPL 

rSNRNI 

TSNRPL 

TSNRUL 

T$WVR 

TSRPRI 

TSSVC 

T$T5 

T$r6 

T$$KMG= 

T$$riIN= 

USRCC  = 

USRCI  = 

U3R1NT= 

US$CMF= 

US$D1S= 

US$DONI-= 

US$DSC= 

US$EAC= 

US$UDS= 

V$$CTR= 

X$$DBT= 

SBVTE  = 

$CALLX= 

$INFO  = 

50PDAT= 

WPLNG= 


000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

nnooc? 

660024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

0C0001 

000040 

000034 

C00030 

000032 

000000 

000000 

****** 

****** 

****** 

000002 

000006 

000000 

000004 

000012 

000010 

001000 

000000 

******  GX 

**'♦**  GX 

******  GX 

******  GX 

******  GX 


GX 
GX 
GX 


— '      L 


S'CCB  = 

****** 

GX 

$RtASN= 

*<-  •■**■* 

GX 

SSii'GMF^ 

'.-*«*** 

GX 

tSRVCS= 

****** 

GX 

i$ShF(  = 

000004 

.SERCP 

COOOOORG 

OO? 

.$$$$.= 

;:j0054 
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SESQIG 
Connect 

15C 

131 

r52 

133 
13A 
135 
136 
137 
138 
139 
140 
HI 
H2 
1A3 
1AA 
1A5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 


C  7 
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request  completion 

.SBTTL  Connect  cenuest  completion 

^ 

**-USRf C-Connoc t  request  complet'on 


SES: 
TabI 


0001 36 

000142  C12rC^  OOOOOOC 

000146  105002 

000150  012700  OOOOOOC 

000154  016302  000040 

000160  016362  000076  000006 

000166  016267  000010  OOOOOOG 

000174  005062  OOCOIO 

000200 

000204  016503  C00026 

000210 

000216 


Inputs 


A  connect  request  has  been  completed  with  a  connect  confirm  (CO 
message. 

R3  =  Virtual  address  of  LLT 

R5  -  Address  of  database  de'=criptor 


Registers  ftiodi  f  jed: 


RO,  R1,  R2 


USRCC: 


10$: 


CALL 
MOV 
BCC 
MOV 

MOV 

MOV 
MOV 
CLR 

CALL 

MOV 

MAPLLT 
RETURf^ 


CPYCNC 

*IS.SUC8377,R0 
10S 
#1S.DAO&377,RO 

L.WlNt>(R3>,R2 


Copy  optional  data 
Assume  successful  completion 
If  CC,  yes 
else  date  overrun 

Get  address  of  window  block 


L.SEGZ(R3),U.SEGZ(R2) 

«I.TMP(R2)  ,SIOPKr;  Set  up  address  of  I/C  packet 

W.rMP(R2)      ;  No  I/O  oacket  waiting  now 


lODUN 
N$LLT(R5),R3 


Perforfr.  I/O  completion 

Recover  LLT  address 
and  mapping 
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SES 
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SESSLl   -   Session   confol    s/sten  MACRO   VC5.03b   Friciay  28-Jun-85   19:58 
fade   of-   contents 


SES' 
"ac 


6-       42 


Macro  deti nit  ions 
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SES 


L 


SESSL!  -  Session  control 
faco   aefim'tions 

416 

A17 

413 

419 

420 

421 

422 

423 

424 

425 

426 

42? 

428 

429 

430 

431 

452 

433 

434 

435 

4  36 

437 

<,38 

4  39 

440 

441 

442 

443 

4^4 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 
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.SBTTL  Get  local  node  information 

•*-SLIGLM-Get  local  node  information 

Copy  information  about  the  local  node  to  the  buffer  supplied. 

Inputs: 

R4  =  Address  of  CCB 

C.8UF1   -  Buffer  descriptor 

C.FLG21-1  -  Information  type 

C.STA    -  Source  PDV  index 
R5  =  Address  of  database  descriptor 


SE! 

lac 


SLIGLN:  MOV 
M0V8 
ASL 
MOV 
MOV 

CALL 

MOV 

BCS 

MOV 

SUB 


CMP 
BIOS 
MOV 
MOV 

MAP 
MOV 
MOVB 
SOB 


10$: 
20$: 

100$ 


C.8UF+2(R4),R2 

C.FLG2+1(R4),R3 

R3 

#$WOPK,R0 

aOECPT.RI 

aGLNTBL(R3) 

#S.EUNN,R1 

100$ 

*S.SSUC,R1 

#$WORK,RO 

R0,C.CNT(R4) 
10$ 

C.CNF'R4),R0 
#S.ELST,R1 

C.8UF(R4) 
#$W0RK,P3 
(R3)+,(^2)+ 
R0,20$ 


CALLR   XMECMP 


Get  pointer  to  buffer 

Get  type  of  information  required 

Form  word  index 

Point  to  workspac-'  area 

Point  to  the  DEC  home  blocf 

Get  information 

Assume  information  not  available 

If  CS,  into  not  a.'ai  lable 

Successful  completion 

Compute  length  of  return  data 

Did  user  supply  enough  buffer  space 
If  LOS,  yes 

Use  user  supplied  buffer  size 
Indicate  data  lost 

Map  to  the  user  buffer 

Point  to  the  returned  results 

Copy  data  to  supplied  buffer 


Complete  the  request 


Get  local  node  information  dispatch  table 
.PSECT  $HiGH 


GLNTBL:  .WORD  GLNLOC 

.WORD  GL1JADD 

.WORD  GLNMAP 

.WORD  GLNHOS 


Get  local  node  info 

Get  local  node  address 

Get  node  address/naiie  mapping 

Ge*-  host  node  address 


L 
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SE 


L 


SESSLI  -  Sess 
lacro  def'nit 

846 
8A7 
8A8 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
86t 
867 
868 
869 
870 
871 
872 
8^3 
874 
875 
876 
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ions 


5E 

Ad 


.S3TTL  Move  optional  data  to  the  internal  buffer 

•  ♦-riOVDAT-Moue  optional  data  to  the  internal  buffer 

Copy  the  optional  data  (if  any)  to  the  internal  optional  data  buffer. 

Inputs : 

R3  =  Virtual  address  of  LLT 
R4  =  Address  of  fCB 

C.BUM  -  Optional  data  descriptor 
R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2 


MOVDAT: 


10J: 


20S: 


000001 


RETURM 

.ENDC 

.END 


MOV 

C.CMT(R4),R0 

MOV 

R0,$OPLNG 

BEQ 

20$ 

MAP 

C.8UF(R4) 

MOV 

C.8UF+2(R4),R1   , 

MOV 

*$0PDAT,R2 

MOVB 

(R1)+,(R2)t 

SOB 

RO.IOi 

MAPLLT 

Get  #  of  bytes  to  be  moved 

and  into  local  count 
If  EQ,  none 

Map  to  the  buffer 
Get  buffer';;  virtual  address 
Point  to  the  internal  buffer 
Copy  the  optional  data 

Restore  mapping  to  the  LLT 
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SE 


L 


SESSUB  - 

Session  contro 

subrou 

Add  iiai  L 

to  mai 

Ibox 

?11 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22-^ 

000356 

225 

000360 

016703 

OOOOOOG 

226 

227 

000364 

005014 

228 

000366 

010300 

229 

000370 

062700 

000014 

230 

231 

00037A 

010001 

232 

000376 

011000 

233 

000400 

001375 

23A 

000402 

010411 

235 

236 

000404 

005763 

000012 

237 

000410 

001404 

238 

000412 

239 

2',0 

000422 

2A1 

000424 

C  11 
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SE 

Cni 


.SBTTl  Add  mail  to  mailbox 

♦  *-ADDi'*1AI-Add  mail  to  m3-'tbox 

Add  'J  piece  of  mai.  to  the  end  of  a  mailbox  queue. 

Inputs : 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1 


ADDMAI : 


10$: 


20$: 


:SAVRG 
MOV 

CLR 
MOV 
ADD 

MOV 
MOV 
8NE 
MOV 

TST 
BEO 
CALLE 

RESRG 
RETURN 


<R3> 
$MAI8X,R3 

(R4) 

R3,R0 

#M.MAIL,R0 

R0,R1 
(RO),RO 
10$ 
R4,(R1) 

M.SPA(R3) 

2y$ 

SPRAST 

<fi3> 


Get  a  free  register 

Get  address  of  mailbox  to  use 

Clear  the  link  word 

Compute  address  of  mailbox  listhead 


Saue  current  position  in  list 
Get  next  queue  entry 
Scan  to  the  end  of  the  list 
Link  CCB  at  the  end  of  the  list 

Any  AST  service  required? 
If  EQ,  no 
Spring  the  AST 


Restore  register 
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SE 


L. 
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Cnnuert  fl  message  to  pending  connect  block 


se; 

Kii 


700  001560 

001A33 

701 

702  001562 

005067 

OOOOOOG 

705  001566 

111267 

OOOOOOG 

70A  001572 

06676A 

OOOOOOG 

000020 

705  001600 

016705 

OOOOOOG 

706  001 60A 

707 

"08  001612 

00^.567 

OOOOAA 

709  001616 

1A0 

710  001617 

020 

711  001620 

103013 

712 

713  001622 

01640) 

000016 

7U  001626 

162700 

000004 

715  001632 

012701 

000166 

716  001636 

717 

718  0016^2 

719  0016A6 

000261 

720  001650 

721  00165A 

722  001660 

100$: 


110$ 
120$ 
130$ 


BEQ 
CLR 

nvB 

ADD 
lOV 
COUNTS 

JSR 
.BYTE 
.BYTE 

BCC 

MOV 
SUB 

MOV 
CALL 

CALL 

SEC 

RESMAP 

RESRG 

RETURN 


130$ 

$BYTE 

(R2),$BYTE 

SBYTE.C.CNTiRO 

$SESD8,R5 

ESNBR 

R3,CPYIMG 
N.CDAC 
16. 
130$ 

C.BUF+2(R4),R0 
#4,R0 

#N.C8L+16.+4,R1 
aDEACe 

SCCBRT 


<R3,R5> 


If  EQ,  no 

Set  up  byte  count 

Update  byte  count  for  user 

Recover  address  of  ECL  database  descriptor 

Count  ECL  bytes  received 

Copy  image  field 
Optional  user  data 
Max  length  =  16.  bytes 
If  CC,  valid  field 

Recover  pending  connect  block  address 
Jarkup  over  task  name 
Siz'.  of  the  block 
Deallocate  the  block 

Release  the  CCB 
Indicate  error 
Restore  mapping 
and  registers 


SESSUB 
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SES! 

leT 


1159 
1160 
1161 
1162 
1163 
116A 
1165 
1166 
1167 
1168 
1169 
1170 
lu- 
ll 72 
1173 
117A 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
118A 
1185 
1186 
1187 
1188 
1189 
1190 
1191 


002364 

002364 
002366 
102370 
00237A 
002376 
002A02 
00240A 
002A06 

002412 
0024  U 
002A16 

002422 

002426 


.SBTTL  Kill  logical  link 

*»-KlLLNK-Kill  logical  link 

Kill  logical  by  setting  the  major  state  to  disconnect  in  progress 
and  setting  the  user  and  network  substates  according  to  the 
supplied  state  table. 


Inputs: 
R2 
R3 
R5 


Address  ot  substate  tablf 
Virtual  address  of  LLI 
Address  of  database  descriptor 


Registers  mrdified: 
RO,  R2 


1 1 1 300 
060002 
021227 
001414 
112713 
112200 
100402 
110063 


177777 
000012 


000036 


.PSECT 

K1LL^JK::M0V8 
ADD 
CMP 
BEQ 

Move 
Move 

BMJ 

Move 


112200 
100402 
110063  000037 


10$: 


20$: 
30$: 


Move 

BMI 

Move 

CALL 
RETURN 


(R3),R0 

R0,R2 

(.R2)  .tl-^ 

30$ 

#ST$DIP,(R3) 

(R2)  ,R0 

10$ 

R0,L.USTA(R3) 

(R2)+,R0 

20$ 

R0,L.CSTA(R3) 

TRMLfJK 


Get  current  major  link  state 

Compute  address  of  table  entry 

Is  there  a  change  in  user  sub  state  ? 

If  EQ,  no 

Else,  set  state  to  disconnect  in  progress 

Get  user  substate 

Is  MI,  leave  user  state  alone 

Set  user  substate 

Get  network  substate 

If  MI,  leave  network  substate  alone 

Set  network  substate 

Try  to  terminate  the  link 


5ESS0B 
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116300  000037 


005763  000012 
001006 

026327  0^0036 
001002 


SESSUB  -  Sesb'on  control  subrou 
Terminate  a  logical  link 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

162S 

1629 

1630 

1631 

1632 

1633 

163A  003A50 

1635 

^636  003/ 5A 

1637  003460 

1638 

1639  003A64 

1640  003470 
1641 

1642  003472 

1643  003500 
1644 

1645  003502 

1646  0C3506 

1647  003506 

1648  003506 
16<.9 
1650 
1651 
1652 
1653 

1654  003510 

1655  003512 

1656  003514 
1657 
1658 
1659 
1660 
1661 

1662  003516 

1663  003520 

1664  003522 

1665  003524 

1666  003526 

1667  003530 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
^67C 
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.S9TTL  Terminate  a  logical  link 

**-TRMLNK-Terminate  a  Logical  link 
»«-TRMNET-rerminat£  network  sicJe  of  logical  link 


000000 


003506' 
OOOOOOG 
OOOOOOG 


003506' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
003506' 
OOOOOOG 


Attempt  to  complete  the  termination  of  a  logical  link. 


Inputs 


Virtual  address  ot  lLT 
Address  of  database  descriptor 


Registers  modi  tied: 

RO,  Rl,  R2,  R3,  R4 


TRMLNK: :CALL 

TRMNET: :M0V8 
CALL 

TST 
BNE 

CMP 
BME 


TRMUSR 

L.CSTA(R3),R0 
aNSTATE(RO) 

L.TIPI(R3) 
10$ 


Terminate  user  side  of  logical  link 

Get  disconnect  state  for  network 
Process  network  disconnect  state 

An>  outstanding  transmits? 

If  NE,  yes  ...  can't  terminate  yet 


L.USTA(R3) ,#<NS$DON*400>+US$DON 

10$  ;  If  NE,  disconnect  not  yet  complete 


10$: 
NOOP : 
DONE: 


CALL 
RETURN 


REMLNK 


Remove  the  link  database 


Disconnect  table  for  network 


NSTATE: :.WORD 
.WORD 
.WORD 


DONE 

SENDDI 

RSNDDI 


Disconnect  state  for  user 


USTATE: 


.WORD 

DONE 

.WORD 

USRCNF 

.  WORD 

USRDSC 

.WORD 

USRDI5 

.WORD 

NOOP 

.WORD 

USRDIS 

Processing  complete 

Send  disconnect  initiate  message 

Retransmit  disconnect  initiate  message 


Processing  comolete 

Connect  failed 

User  disconnect  complete 

Notify  user  of  disconnect  or  abort 

Wait  for  disconnect  acknowledgement 

Error  response  to  connect  accept 


.IF  DF   N$$5l; 


D-'sconnect   state   for  user    (systeii   lei/el    interface) 


SSTAIF:    .WORD 
.WORD 


DONE 
SLICNF 


Processing  comolete 
Connect  failej 
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PAGE    1 

CREF        04.00 


SESi 
Tab! 


SYMBOL  VALUE 


N.CACC 

N.CBL 

N.CDAC 

N.CIDC 

N.CPSC 

N.SFM 

N.SND 

OBJHD 

OPSINl 

OPSTER 

O.FLG 

O.NAM 

O.TYP 

PHSHDE 

PHSLOC 

PHSMTS 

PHSUMP 

PHSWCS 

PNTCCB 

PROIMG 

PRONAM 

P.HDR 

REJECT 

REMLNK 

RETRES 

RETTB 


000116 
000142 
000140 
000062 
000104 
000036 
000030 


GX 


000000 

000001 

000003 

000006 

000002 

000004 

000002 

000003 

000000 

000001 

002516  RG 

002554  R 

002576  R 

**»»*♦  GX 

002670  RG 

002742  RG 

003074  RG 

003134 


REFERENCES 

23-951 

35-1404 

17-694 

17-626 

17-709 

17-684 

17-689 

17-671 

15-468 

30-1212 

#6-54 

#6-54 
30-1233 
30-1231 
30-1219 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#31-1255 
18-752 
17-667 
38-1509 
24-1005 

#35-1387 
23-973 
36-1454 


23-9:6 
35-1425 

17-698 


•17-655 


30-1232 


#3.>1291 
17-672 

#34-1362 
41-1645 
35-1391 

#36-1464 


27-1108 
40-1602 

17-715 


07-656 


30-1211 
42-1711 

57-1485 


•17-657 


30-1237         34-1365  '4-1365         54-1568         55-1387 


55-1344 
#33-1321 


55-1409       #36-1446 


RESADC 

=  000004 

#6-54 

RESADF 

=  000017 

#6-54 

RESADR 

=  000007 

#6-54 

RE$8LK 

=  000010 

#6-54 

RESCAF 

=  000014 

#6-54 

RESDAT 

=  000001 

#6-54 

RESDRP 

=  000016 

#6-54 

RESLDT 

=  000013 

#6-54 

RESLSN 

=  000012 

#6-54 

RESNML 

=  000001 

#6-54 

RESOPE 

=  000004 

#6-54 

RESOPR 

=  000000 

#6-54 

RESRCV 

=  000001 

#6-54 

RESSED 

^  000011 

#6-54 

RESSKW 

^  000006 

#6-54 

RfclSTA 

=  000002 

#6-54 

RESSUM 

=  000003 

#6-54 

RESSYN 

=  000000 

#6-54 

restm; 

=  000021 

#6-54 

RESTMO 

=  000000 

#6-54 

RESTMR 

--   000020 

#6-54 

resupt 

--  000002 

#6-54 

RE$URE 

=  000003 

#6-54 

RESVER 

■-   000005 

#6-54 
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SES'IM  -  Session  control  timer 
Table  ot  contents 


C  16 
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6-  A?  Macro  definitions 

7-  53  Session   control   timer   support 

8-  109  Session   control   timer   seruice  action   routines 


SESHM 
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De'e'"w'ne  task  name 


SE 

In 


57' 
575 
5:'9 
580 
58' 
582 
583 
584 
585 
586 
58? 
588 
589 


50$: 
60$: 


CALL 
BCS 

MO'/ 

CALL 

BISB 

TST 
SEC 

BIT 

RESRG 

RETURN 


aALOCB         ; 
60$ 

$RQTCB,R1 

arCBCP         ; 

#CX.REM,C.M0D(R4) 

(PC)  + 


(SP)t,(SP)+ 
<R4,R2> 


Allocate  a  new  TCB 

If  CS,  allocation  failure 

Recouer  prototype  TCB  address 
Copy  TCB  and  link  into  STD 


Indicate  success 
Indicate  failure 


Clean  up  stack 
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^ 


SESINI  - 
Initial! 

58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 


Session  contro 
se  session  cont 


L  initia 
roL  ACP 
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.SBTTL  Initialise  session  control  ACP 
I- 
•*-SESINI-Initialise  session  :ontrol  ACP 

Perform  all  initialisation  required  for  the  session  control  ACP 
at  system  state. 

Outputs: 

'C  Clear  -  Initialisation  successful 
'C  Set   -  Initialisation  failed 


000000 

000000 
000004 
000010 

000012 
000016 
000022 
000024 
000030 
000034 
000040 

000042 
000046 
000050 
000052 
000060 
000062 
000066 


Registers  modified: 

RO,  R1,  R2,  R3,  R4, 

.PSECT  SHIGH 


R5 


012702  017704 
103527 


110267 
067702 
011202 
016205 
010567 
005762 
001513 

016700 
011000 
001507 
022760 
001372 
005760 
001367 


OOOOOOG 
OOOOOOG 

000016 

OOOOOOG 

000012 


OOOOOOG 


10$: 


051516  OOOOOOG 
OOOOOOG 


000070  016067  OOOOOOG  OOOOOOG 


000076 

000106  103470 

000110 

000120  105463 

000122 

000126  103460 

000130 

000144  01d700 


OOOOOOG 


SESINI ::MOV 
CALL 
BCS 


MOVB 

ADD 

MOV 

MOV 

MOV 

TST 

BEQ 

MOV 
MOV 
BEO 
CMP 
BNE 
'•SI 
BNE 

MOV 

.IF  DF 

BUB 
BNE 

.ENDC 

CALLX 
BCS 

CALLX 
BCS 

CALL 
BCS 

EVT$ 

MOV 


#"RECL,R2 

aPDVID 

100$ 

R2,$SESP0 

aPDVTA,R2 

(R2),R2 

Z.DAT(R2),R5 

R5,$SESDB 

Z.PC6(R2) 

100$ 

DEVHD.RO 

(R0),RO 

100$  , 

#SES$DV,D.NAM(R0) 

10$ 

D.UNIT(RO)      ; 

10$ 

D.UC8(R0),$UCB  ; 

N$$EXT 

#NF$M0U,N$FLG(ft5) 
20$ 


Check  if  ECl  process  is  loaded 

Find  PDV  index 

If  CS,  not  in  system! I 

Saue  PDV  index 
Get  pointer  to  PDV 

Get  address  of  session  control  database 

and  save  it 
Is  the  ECL  process  loaded? 
If  EQ,  no 

Get  device  control  block  listhead 

Get  next  DCS 

If  EQ,  device  not  in  system 

Keep  looking  for  device 
Only  unit  zero? 
If  NE,  no 

Save  UCB  address  for  later 


If  NE,  network  is  already  mounted 


$ECLIN,ECL  ;  Initialise  ECL  process 

100$  ;  If  CS,  initialisation  failed 

$XPTIN,XPT  ;  Initialise  transport  subsystem 

100$  ;  If  CS,  failed 

ALOCDB  ;  Allocate  databases 

100$  ;  If  CS,  failed 

2,0,,,RE$OPR,SC$0N*4001SC$OFF 

$UC8,R0  ;  Recover  UCB  address 
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MACRO  NA'IE 

REFERENCES 

CALL 

7-75 

7-  0<^ 

8-161 

CALLX 

#6-44 

7-  103 

7-106 

CTRDFS 

#6-45 

'-51 

)HBDF$ 

#6-45 

'.-47 

ECDDB$ 

#6-45 

'.-50 

EVLDFS 

#6-45 

6-49 

EVT$ 

#6-44 

7-112 

^AP 

#6-44 

»iapllt 

#6-44 

MSGDFS 

#6-45 

6-52 

PDVDF$ 

#6-45 

6-48 

RECMAP 

#6-44 

RESRG 

#6-44 

RETURN 

7-140 

8-172 

8-176 

SAVRG 

#6-44 

SOB 

8-166 

8-174 
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CREF       04.00 
9-196 


9-198 


S^ 

SI 

E\ 
E\ 
E\ 
E\ 
E\ 
E\ 
E\ 
E\ 
E\ 
E\ 
E^ 
E\ 
E( 
E' 
E( 
E> 
E' 
El 
V 
E' 
V 
V 
E' 
E' 
E' 
E' 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 


n 


|**FILE"1D*»SESMN 
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SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

EVSHCE 

=   035114 

#6-54 

EVSHCI 

=  C3511! 

#6-54 

EVIHFE 

■^:  000506 

#6-54 

EVSIFL 

000413 

#6-54 

iVSIFG 

=  OOC415 

#6-54 

EVSIFS 

=  000414 

ff6-54 

EVSINF 

=  000515 

#6-54 

EVSLDL 

=  000407 

#6-54 

EV$LDN 

=  010416 

#6-54 

EVtLDO 

=  000411 

#6-54 

EVtLDS 

=  000410 

#6-54 

EVSLSC 

=  000500 

#6-54 

EVlLUP 

=  000412 

#6-54 

EVSNOL 

=  000402 

#6-54 

EVSNRC 

=  00041b 

#6-54 

EVSNSC 

=  000200 

#6-54 

EVSNUL 

=  000401 

#6-54 

EVSNVR 

=  0C0406 

#6-54 

EVSGPL 

=  000403 

#6-54 

EVSPCC 

=  034000 

#6-54 

EVSPCI 

=  034001 

#6-54 

EVSPCM 

=  034002 

#6-54 

EVSPFE 

=  000404 

#6-54 

EVSPPC 

=  C34003 

#6-54 

EVSRCF 

=  000517 

#6-54 

EVSRDC 

=  010001 

#6-54 

EVSRDR 

=  010002 

#6-54 

EVSRJE 

=  035106 

#6-54 

EVSRSC 

=  000501 

#6-54 

EVSRUL 

^  000405 

#6-54 

EVSSNA 

=  035C00 

#6-54 

EVSSNF 

=  000516 

#6-54 

E\/$SPE 

=  035001 

#6-54 

EVSXCE 

=  034110 

#6-54 

EVSXDI 

=  015600 

#6-54 

EVSXGW 

=  034111 

#6-54 

EVSXMX 

=  000514 

#6-54 

EV$XRS 

=  000512 

#6-54 

EVSXSC 

=  000513 

#6-54 

EV$X2S 

=  013500 

#6-54 

EV.CCB 

=  000001 

#6-54 

EV.CIR 

=  000020 

#6-54 

EV.LCB 

=  000100 

#6-54 

EV.LIN 

=  000004 

#6-54 

EV.MAP 

=  000002 

#6-54 

EV.MOD 

=  000040 

#6-54 

EV.NOD 

-  000010 

#6-54 

EV.PRT 

=  000200 

#6-54 

ESDATA 

000020 

#6-54 

ESEVTS 

000000 

#6-54 

r$LCN 

000016 

#6-54 

E$LIN 

000000 

#6-5- 

D  4 

PAGE  2 

CREF   04.00 


SI 
P 


SESMN'IS   CREATED  BY  MACRO  ON  28-JUN-85  AT  19:57 


PAGE  3 


E  4 


[ 
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Process  a  returned  CI  message 


241 
242 
2A3 
244 
2'.5 
246 
247 
248 
249 
250 
251 
252 
253 

254  000460 

255  000464 

256  000470 

257  000474 

258  000476 

259  000500 

260  000504 

261  000506 
262 

263  0005^0 

264  000514 

265  000524 

266  000530 

267  000532 

268  000536 
269 

270  000540 

271  Oui/544 
272 

273  000550 
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.SBTTL  Process  a  returned  CI  message 

**-RCVRCI-Process  a  returned  CI  message 

A  connect  initiate  message  has  been  returned  to  this  node  as 
undeh'uerabie,  inform  the  user  that  the  connect  could  not  be 
completed. 


016500 
042700 
026500 
103425 
006300 
066500 
011003 
001420 

C165i'i 

022663 
001007 
122713 
001004 


012701   000047 


000016 
177400 
000036 


000040 

000016 
000002 
000002 


Inputs 


R2  =  Pointer  to  field  following  source  link  address 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


RCVRCI:  MOV 
BIC 
CMP 
BLO 
ASL 
ADD 
MOV 
BEQ 

MOV 

CALLE 

CMP 

BNE 

CMPB 

BNE 


100$: 


MOV 
CALL 


RETURfJ 


N$SLA(R5),R0 

#*C<377>,R0 

N$LVC(R5),R0 

100$ 

RO 

N$LVC+2(R5),R0 

(R0),R3 

100$ 

N$SLA(R5),-(SP) 

ACCLLT 

(SP)+,L.LLA(R3) 

100$ 

#ST$CIS,CR3) 

100$ 

#ER$C0M,R1 
BRKLNK 


Cet  source  link  address  for  this  message 

Isolate  low  byte  as  index 

Is  the  link  address  within  reason? 

If  LO,  no 

Form  word  index 

Compute  address  in  logical  link  table 

Get  address  of  LLT 

If  EQ,  the  link  does  not  exist 

Save  this  links  LLA 

Gain  access  to  the  LLT 

Is  this  the  link  we're  looking  for? 

If  NE,  no 

Is  the  link  in  the  correct  st^te? 

If  NE,  no  . . .  toss  this  message 

Set  up  disconnect  reason  code 
Brebf^  the  logical  link 
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Symbol  table 


SES( 
Conr 


ABS.  177776 
001766 
$HICH   C00010 
Errors  aetected; 


000 
0C1 
002 
0 


(Ry,I,GBL,AQS,OVR) 
(RU,I,LCL,REL,CON) 
(RiJ,l,LCL,REL,CON) 


Assembler  statistics 


vork  file  reads: 
Work  f i le  writes: 
Size  of  work  f i le: 
Size  ot  core  pool: 
Operating  system: 


93 

94 

2533A  Words 

17608  Words 

RSX-11M/°LUS 


(  99  Pages) 
(  67  Pages) 


S¥?SE5PROns;v2';n3i^r«]SESPR011S/CR/-SP-SY:C1  JJRSX|v|CM.Sf'iL/MLj130Jl0JNErLI8/ML,[l30J0]RSXMCS/PA:1,Ll 


itSPROns     CREATED  BV     MACRO     ON  28-JUN-85   AT   19:57 
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Connect  request  failure 

.SBTTL  Connect  request  failure 

h 

♦♦-USRCNF-Connect  request  failure 


SES! 


161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175  000220 

12763 

000000 

000036  L 

176  C00226 

0  6746 

OOOOOOG 

177  000232 

012746 

OOOOOOC 

178  000236 

016346 

000100 

179  000242 

001012 

180  000244 

012766 

OOOOOOC 

000002 

181  000252 

182  000256 

010116 

183  000260 

103003 

184  000262 

012766 

OOOOOOC 

000002 

185 

186  000270 

• 

187 

188  000274 

012601 

189  000276 

012600 

190  000300 

191  000304 

012667 

OOOOOOG 

192  00031C 

A  connect  request  failed  because  the  CI  message  was  returned  from 
an  intermediate  node  or  the  CI  request  timed  out. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2 


USRCNf : 


10$: 


:M0V8 
MOV 
MOV 
MOV 
BNE 
MOV 
CALL 
MOV 
BCC 
MOV 

CALL 

MOV 

MO*/ 

CALL 

MOV 

RETURN 


*US$D0N,L.USTA(R3) 

$IOPKT,-(SP)    :  Save  any  I/O  packet 
#IE.NRJ8377,-(SP)  ;  Assume  network  reject 
L.DCR(R3)  ,-(SP)  ;  Save  reason  for  disconnect 
If  NE,  network  disconnect 


10$  , 

#;E.URJS377,2(SP) 

CPVCNC 

R1,(SP)        ; 

loi 

#IE.DA0S377,2(SP) 
RMVLNK 


User  disconnect,  copy  optional  data 
Save  length  of  optional  data 
If  CC,  successful 


;  Remove  link  resources 

(SP)+,R1       ;  Get  reason  code  for  disconnect 

(SP)+,RO       ;  Get  network/user  reject  code 

lODUN         ;  Perform  I/O  completion 

(SP)+,$IOPKT    ;  Restore  any  I/O  packet 
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SES 

Mac 


1 
2 

A 
5 
6 
7 
8 
9 

10 

11 

13 
ii 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
?s 

26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
5V 
AG 


.TITLE  SE3SLI  -  Session  control  system  level  interface 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  system  level  interface 

Ident  history: 

A.  00  07-N0V-83 

DECNET-11M  VA.O 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  VA.:' 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SES 


SESSLI  -  Session  control 
Macro  aefinitions 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
'•89 
490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

51=: 

516 

517 

518 
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.SBTTL  Get  Local  node  info 

»»-GLNXXX-Get  Local  node  info 

Retrieve  the  required  local  node  information  to  the  workspace  buffer. 

Inputs: 

RO  =  Address  of  workspace  buffer 

R1  =  Address  of  DEC  home  block 

R2  =  Virtual  address  of  user's  buffer 

R4  =  Address  of  tCB 

Outputs: 

RO  ---  Address  of  next  available  byte  in  workspace  buffer 
'C  Clear  -  Information  available 
'C'  Set   -  Information  not  available 

Registerr  modified: 
R1,  R3 


♦♦-GLNLOC-Get  local  node  name 


GLMLOC:  MOV 
ADD 


R1,R3 
#D$LNAM,R3 


.REPT   3 

MOV     (R3)+,(W0)+ 

.ENbR 


MOV 
CLC 
RETURN 


D$SEG(R1),(R0)< 


Point  to  local  node  name 


Copy  local  node  name  to  buffer 


Copy  local  seoTient  size  into  the  buffer 
Indicate  success 


**-GLNADD-Get  local  node  address  and  name 


GLNAPD:  MOV 
MOV 
ADD 
CALL 
CLC 
RETURN 


D$LNUM(R1),(R0)+  ;  Fill  in  local  node  address 


R1,R3 

#D$LNAM,R3 

'lODIMG 


Point  to  local  node  name 

Convert  to  image  field 
Indicate  success 


»«-GLNMAP-Get  node  address/name  mapping 

.:    iECT 


GLNhA":  MAP  C.8UF(R4) 

SAVRG  <R2> 

MOV  #$DSN0D,R1 

MOV  #"  ,(R1) 

MOV  *"  ,2(R1) 

MOV  #"   ,4(R1) 

Move  (R2)t,(R0)< 


Map  to  the  supplied  buffer 
Save  registers 

Point  to  alternate  workspace 
and  fill  with  spaces 


Get  possible  node  address 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

AtSTRP= 

CB.ACN 

CB.ACT 

CB.CC8= 

CB.DDM= 

C8.DFM 

CB.DGR 

CB.DLC= 

CB.DLI 

CB.DL2 

CB.DOB 

CB.DR1 

CB.[JR2 

CB.DUS 

CB.LGl 

CB.NCl) 

CB.OPD 

CB.OPT 

CB.PSL 

CB.PSW 

CB.RDB= 

CB.RQD 

CB.RQI 

CB.SDB= 

CB.SFM 

CB.SGR 

CB.SLI= 

CB.SL1 

CB.SL2 

CB.SOB 

CB.SR1 

CB.SR2 

CB.SUS 

CB.XLB= 

:C.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UN5= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.L:^J= 


000000 
000000 
000000 
000000 
0001  u 
000112 
000002 
0000^0 
000006 
000010 
000020 
000010 
OOOOH 
000007 
000012 
000016 
000012 
000156 
000000 
000134 
000136 
000100 
000102 
OOOOOA 
000056 
000060 
000010 
000032 
000034 
000100 
000034 
000040 
000033 
000036 
000042 
000036 
000001 
000200 
100362 
100346 
100366 
10037C 
10035C 
100356 
100372 
100361 
100376 
100364 
100352 
i00-"4 
lOG  4 
100  ; 
000  I 
000  '4 

oo:  '0 

i0t  0 
00'  .2 


CF.SOM= 

CF.SyN= 

CF.TRN= 

CL$»1FL  = 

CL$SFL= 

CL$TYP= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CM.CIR= 

CM.FMT= 

CH.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PS1= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.8R0= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.FRR= 

CS.i  TL  = 

CS.HCR= 

CS.HFE^ 

CS.LST= 

CS.MTL= 

rS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHL'= 

CS.SI?^ 

CS.STR= 

CS.SM'"- 

CS.T^ 

CS.'     -■ 

CV$31  = 
CV$32  = 
CV$40  = 
C$$ORE= 
C$$RSH= 
C.ADD 
C.8ID 
C.8UF 


000010 

000040 

000100 

000010 

000004 

000001 

000001 

000002 

177774 

00000? 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

lOOCOO 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000003 

000001 

000000 

000002 

000400 

177564 

000034 

000003 

000014 


C.8UF1 

000014 

C.BUF2 

000024 

C.CNT 

000020 

C.CNTl 

000020 

C.CNT2 

000030 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

CLIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

00000 ; 

C.PRO 

000042 

c.nsv 

000002 

C.STA 

000007 

C.STS 

000012 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLl 

000040 

C.XPT 

000034 

C.XSVC 

000042 

C.XTC 

000037 

C.X25 

000036 

DSAMXC 

000072 

DSAMXH 

000074 

D$ANN 

000000 

P$8RPR 

000102 

OSBRTM 

000100 

D$DELF 

000045 

DSDELU 

000046 

D$END  = 

000104 

D$FNB 

000034 

DSHIOR 

000024 

DSHOST 

000022 

DSJNAC 

000044 

DSJNCT 

000042 

DSIPL 

000051 

D$LID 

000020 

DSLNAH 

000006 

DiLNUM 

000014 

DSLST 

000047 

DSMAXC 

000064 

DSmXH 

000066 

DSMAXV 

000070 

D$MLL 

000040 

DSMrJOD 

000041 

D$Nrt 

000062 

DSNBEA 

000056 

DSNBRA 

000054 

"SNCND^ 

000054 

i.$MN 

000030 

i/SNN 

000060 

DSOUli 

000043 

DSRETF 

000050 

D$RNN 

DSRTMR 

D$SEG 

DSSER 

DSSQRL 

D$$8UG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

DS$yNM= 

ER$A8M= 

ER$AB0= 

ER$ABT= 

ER$ACC= 

ER$CD1= 

ER$COM= 

ER$FMT= 

ER$MLB= 

ER$NNF= 

ER$NOD= 

ER$NSL= 

ER$NSR= 

ER$RES= 

ER$STA= 

ER$UOB= 

E$SXPR= 

Fl.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.Ml.D= 

FC.PCT=: 

FC.PUR= 
FC.RCE= 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FS,AST= 
FS.CIB= 
FS.CRA= 
FS.DIS= 
FS.DVC^ 
FS.FNB= 
FS.EXI= 
FS.GET= 
FS.HLT= 
FS.IN1= 
FS.KIi.= 
FS.LCL= 
FS.LTM= 
FS.MNr= 
FS.N|SN= 
FS.REA= 
FS.RET= 
FS.REZ= 


000002 
000076 
000036 
000032 
000052 
177514 
000000 
000001 
000000 
000000 
000010 
000046 
000011 
000042 
000052 
000047 
000005 
000006 
000012 
000002 
000013 
000003 
000001 
000051 
000004 
000000 
000020 
000006 
000016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
OCIOOO 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 


FS.RL8= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SEI= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.WLB= 
FS.XKL= 
FS.X0F= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
IN.DAT= 
IN.ILS^ 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LA.ACK= 
LA.CRS= 
LA.HSK= 
LA.NAK- 
LA.NMS= 
LA.RES= 
LA.WND= 
LDSLP  = 
LF.DRD= 
LF.FRC= 
LF.HFO= 
LF.HMF= 
LF.HSF= 
LF.]RD= 
LF.MHF= 
LF.MSF= 
LS.DLS= 
LS.FCC= 
LS.FCO= 
LS.FC1= 
LS.ILS= 
LS.MAK= 
LS.MNK= 
LS.RES= 
LS.RSV= 
LT.CCA= 


002000 

onooo 

000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
000400 
000001 
000000 
000000 
177546 
177546 
000000 
000074 
100000 
020000 
170000 
110000 
010000 
040000 
004000 
000000 
000004 
000001 
000010 
000040 
000020 
000002 
000200 
OOCIOO 
100000 
000004 
000001 
000002 
100000 
000020 
000040 
000360 
000300 
000020 
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Add  oprional  data  to  rressage 


SE 
Co 


243 
24A 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 

258  000426 

259  000430 
260 

261  000436 

262  000442 

263  000450 

264  000456 
265 

266  000462 

267  000470 

268  003474 
269 

270  000476 

271  000502 

272  000506 

273  000510 

274  000514 
275 

276  000520 

277  000522 


005067 
116367 

105063 


116722 
001411 

0(6546 
062703 
010346 
C 16703 
u04V7 


.SS'TL  Add  optionaL  data  to  message 
h 
»*-ADD0P1-Add  optional  data  to  message 

Append  the  optional  data  field  to  a  session  control  message. 

Inputs:  ,  ,      .   , 

R2  =  Address  of  next  available  byte  in  the  message 

R3  =  Virtual  address  of  LLT 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


Outputs: 
R2 


Address  of  next  available  byte  in  the  message 


ADDOPT::SAVRG 
MAPLL1 


<R3> 


OOOOOOG 
000102 

000102 
cOOOOOG 


000024 
000103 

OOOOOOG 
OOOOOOG 


OOOOOOG 


10$: 


CLR  $BnE 

Move  L.0PDL(R3),$ByiE 

COUNTS  ESNBS 

CLRB  L.0PDL(R3) 


MAP 

MOVB 

BEO 

MOV 
ADD 
MOV 
MOV 

JSR 

RESRG 
RETURN 


C.BUFCR4) 

$8YTE,(R2)+ 

10$ 

N$LLTM(R5),-(SP) 

#L.0PD,R3 

R3,-(SP) 

$8YTE,R3 

Rl.aWVFBF 

<R3> 


Saue  address  of  LLT 
Map  to  the  LLT 

Set  up  optional  data  byte  count 

Count  ECL  bytes  sent 

No  optional  data  any  more 

Restore  mapping  to  buffer 

Fill  in  byte  count  in  image  field 

If  EQ,  none 

Set  up  LL1  mapping 
Point  to  optional  data 

Set  up  byte  count 

Copy  optional  data  to  buffer 

Recover  LLT  address 
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Copy  image  field 


5E! 
Mat 


724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 

747  001662  005000 

748  001664  152300 

749  001666  066400  000016 

750  001672  112301 
751 

752  001674 

753 

754  001700  00203 


.SBTTL  Copy  image  field 

♦♦-CPYJMG-Copy  image  field 

Copy  an  image  field  with  range  checking. 

Calling  sequence: 

JSR  R3,CPYIMG 

.8VTE  ^Offset  in  descriptor) 

.BYTE  <Hax  field  si2e> 

Inputs; 

R2  =  Address  cf  source  image  field 
R4  =  Address  of  pending  connect  CCB 

Outputs: 

R2  =  Moved  past  image  field 

'C  Clear  -  Valid  image  field  processed 

'C  Set   -  Image  field  size  invalid 

Registers  modified: 
RO,  R1 


CPVIMG: 


CLR 
BISB 
ADD 
MOVB 

CALL 

RTS 


RO 

(R3)+,R0 

C.8UF+2(R4),R0 

(R3)t,R1 

PROIMG 

R3 


;  Get  offset  into  descriptor 

;  Compute  destination  address 

;  Get  max  length  of  field 

;  Process  the  image  field 
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1193 

119A 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 
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.SBTTL  Map  object  number  to  task  name 
I- 
•*-MAP0SJ-Map  object  number  to  task  name 

Scan  the  object  name  table  to  find  the  entry  for  a  specified 
object  type. 

Inputs: 

Rl  =  Object  number  (low  byte) 

Outputs: 

Rl  =  Object  flags  and  access  level 

'C  clear  -  Object  table  entry  found 

'C  Set   -  Object  table  entry  not  found 

Registers  modified: 
RO 


SES' 
Tert 


002430 
002434 

002440 
002442 
002446 
002450 

002452 
0024  5'-> 

002460 
002462 


002464 
002472 
C02500 

002504 
002506 
002510 
002514 


OOOOOOG 


000002 


016700 

011046 

012600 
001416 

120160 
001370 

105701 
001406 


016067  000006 
016067  000010 
116001  000003 

005727 
000261 


MAP08J 
10$: 


OOOOOOG 
000002G 


20$: 
30$: 


:  SAVMAP 
MOV 

MOV 
CALL 
MOV 
BEQ 

CMP8 
BNE 

TSTB 
BEQ 

.IF  OF 

M0V8 

.ENDC 

MOV 
MOV 
MOVB 

TST 
SEC 

RESMAP 
RETURN 


;  Save  current  rrapping 

OBJHD.RO       ;  Point  to  object  table  listhead 

(RO),-(SP)      ;  Get  address  of  next  entry 

aCEACC         ;  Gain  access  to  the  block 

(SP)+,RO       ;  Recover  address  after  mapping 

30$  ;  If  EO,  end  of  list 

R1,O.TYP(RO)    ;  Is  this  the  correct  entry? 

10$  ;  If  NE,  no  ...  keep  looking 

Rl  ;  Is  this  object  0? 

20$  ;  If  EQ,  yes  ...  we  already  have  the  task  name  etc 

N$$MCP 

0.MXC(R0),$R0CPY;  Set  max  #  of  active  copies  allowed 


O.NAi1{RO),$RQNAM;  Fill  in  task  name 

O.NAM+2(RO),IRQNAM+2 

O.FLG(RO),R1 


(PC)  + 


Get  flags  and  access  level 

;  Indicate  entry  found 
;  Indicate  error 
;  Restore  mapping 
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SES 


D  U 

SESSUB  -  Session  control  subrou  MACRO  V05.03b  F;-iday  28-Jun-85  19:59  Page  41-1 
Terminite  a  logical  link 


1677 
1678 
1679 
1680 
1681 
1682 


.WORD  SLIDSC  ;  User  disconnect  complete 

.WORD  SlIDIS  ;  Notify  user  of  disconnect  or  abort 

.WORD  NOOP  ;  Wait  for  disconnect  acknowledgement 

.WORD  SLIEAC  ;  Error  response  to  connect  accept 

.ENDC 
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SESSUBUS 

CREATED  BY 

MACRO     ON  28 

-JUN-E5  AT 

20:00 

PAGE   8 

SYMBOL 

CROSS  REFERENCE 

CREF 

04.00 

SYMBOL 

VALUE 

REFERENCES 

RESVRQ 

- 

000015 

#6-54 

RF.LOO 

- 

100000 

#6-57 

RLSCI 

003U4 

RG 

34-1366 

#37-1483 

40-1613 

RMVWND 

003176 

RG 

#38-1505 

RSNODI 

~ 

****** 

GX 

41-1656 

RTSINI 

- 

00000'. 

#6-54 

RTSOFF 

r 

0000''  1 

#6-54 

RTSON 

- 

000000 

#6-54 

R$$EIS 

= 

****** 

14-423 

15-481 

16-554 

R$$PRO 

- 

****** 

24-998 

25-1016 

R.ADD 

000010 

#6-57 

17-649 

17-651 

R.FLAG 

000012 

#6-57 

R.LEN 

000014 

#6-57 

R.LNK 

000000 

#6-57 

R.NAM 

000002 

#6-57 

17-654 

SAVOPT 

003276 

RG 

#39-1551 

SCSOFF 

~ 

000001 

#6-54 

SCSON 

~ 

000000 

#6-54 

SCSRST 

- 

000003 

#6-54 

SCSSHU 

= 

000002 

#6-54 

SENDDI 

r: 

****** 

GX 

41-1655 

SPRAST 

= 

****** 

GX 

9-238 

STSDIP 

- 

000012 

29-1181 

SVSDUM 

= 

000001 

#6-54 

SVSLOA 

- 

000000 

#6-54 

TKTCB 

- 

****** 

GX 

28-1152 

TLACHK 

003332 

RG 

#40-1583 

TRMLNK 

003450 

RG 

29-1190 

#41-1634 

TRMNET 

003454 

RG 

#41-1636 

TRMUSR 

003532 

RG 

41-1634 

#42-1698 

TSFLAG 

000044 

#6-53 

TSLIF 

000013 

#6-53 

TSLIFL 

000013 

#6-53 

T$LIFO 

000013 

#6-53 

TSLIFS 

000013 

#6-53 

TSLIN 

000000 

#6-53 

T$LIPS 

000006 

#6-53 

TSLLD 

000012 

#6-53 

SES 


TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

TSNFE 

rSNLEN 

TSNNUL 


000045 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 


#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
#6-53 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESTIM  -  Session  control  timer  service 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copieil  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  .or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  c,  cent  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  uf 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  timer  se'i/ice 

Ident  history: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SESDSP  -  Session  control 
Determine  task  name 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 
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.SBTTL  Generate  multi-copy  task  name 
**-MUTNAM-Generate  multi-copy  task  name 

Generate  a  new  name  for  a  multi-copy  task  of  the  form  'XXX. NN'  where: 


NN 


is  an  octal  number  in  the  range  0 


Inputs 


XXX    is  the  first  three  characters  of  the  prototype's  name 

'  to  77 

R1  =  Copy  number  for  generating  task  name 
2(SP)  -  first  word  of  task  name 
4(SP)  -  Second  word  of  task  name 


Registers  modifiec: 
RO 

MUTNAM: 


10$: 


.ENDC 


SAVRG 

MOV 

MOV 

BIC 

ADD 

ASR 

ASR 

ASR 

BEQ 

<R1> 

#-R.   ,6(SP) 

R1  ,R0 

#»C<7>,R1      ; 

#36, R1 

RO 

RQ 

ADD 

MOV 

ADD 

R1,6(SP) 

R0,R1          ; 

#36,R1        ; 

.IF  DF 

R$$EIS 

MUL 

#50, R1         ; 

.IFF 

MOV 
CALL 

#5C,R0 
SCEMUL 

.ENDC 

ADD 

,iESRG 

RETURN 

R1,6(SP) 
<R1> 

Initialise  second  word  of  task  name 

Copy  number 

Isolate  low  octal  digit 

Add  in  RAD50  '0'  offset 

Get  high  octal  'igit 


If  EO,  no  high  digit 

Add  low  digit  to  name 

Get  high  digit 

Add  in  RAD50  '0'  offset 


Convert  to  second  digi*^  value 


Set  up  multiplier  value 
Convert  to  second  digit  value 


Finish  off  task  name 
Recover  copy  number 


F  1 

SESDSP  -  Session  control  dispat  MACRO  VO5.03b  Friday  28-Jun-85  19:56  Pa 

rnmnlptp    I/fl    rpnup'^t 


15 
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Initialise  session  control  ACP 


115  000150 

010560 

OOOOOOG 

116  0001 5A 

062760 

000010 

OOOOOOG 

117  000162 

017760 

OOOOOOG 

OOOOOOG 

118  000170 

142760 

OOOOOOC 

OOOOOOG 

119  000176 

120 

121  00020A 

142760 

OOOOOOG 

OOOOOOG 

152765 

000040 

000005 

122 

123  000212 

016701 

OOOOOOG 

124  000216 

016100 

177776 

125  000222 

061100 

126  000224 

150C67 

000001 G 

127  000230 

017700 

OOOOOOG 

128  000234 

016001 

000036 

129  000240 

001005 

130  000242 

017701 

OOOOOOG 

131  000246 

162701 

000022 

132  0Gu252 

0^ri403 

133  000254 

O'tOOl 

000036 

134  000260 

002402 

135 

136  000262 

010160 

0000^6 

137 

138  000266 

005727 

139  000270 

000261 

140  000272 

MOV  R5,U.VCB(R0)    ;  Set  up  address  of  dummy 

ADD  /»N$VCB,U.VCB(RO);   volume  control  block 

MOV  aTKTCB,U.ACP(RO);  Set  up  ACP's  TCB  address 

BICB  #US.HNT1US.MDM,U.STS(R0) 

BICR  #US.OFL,U.ST2(R0) 

BISB  #NF$M0U,N$FLG(R5) 


20$; 


30$: 


40$: 

50$: 
100$: 


MOV 

MOV 

ADD 

BISB 

MOV 

MOV 

BNE 

MOV 

SUB 

BR 

CMP 

BLT 

MOV 

TST 
SEC 
RETURN 


TTNS.RI 

-2CR1),R0 

(RD.RO 

R0,$ENCOD+1 

aOECPT.RO 

D$SEG(R0),R1 

30$ 

aRDBSZ.RI 

#N$$0VR,R1 

40$ 

D$SEG(R0),R1 

50$ 

R1,D$SEG(R0) 

(PC)  + 


Randomise  logical  link  address  encoding 
(by  adding  seconds  and  ticks) 


Get  the  segment  size 

iKnE  -  its  already  set  in  CETAB 
Else,  compute  our  segment  size 
and  base  it  on  RDB  size 

Is  it  too  large  ? 

If  LT,  its  ok 

Else,  reset  it  to  largest  possible  value 

Store  the  segment  size 

Indicate  success 
Indicate  failure 
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in 
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SESMN'IS        CREATED  BY      MACRO     ON  28-JUN-85   AT    19:57 
SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

E$MOD 

000012 

#6-54 

E$NOD 

000010 

#6-54 

ESPORT 

000014 

#6-54 

E$PRM 

000002 

#6-54 

ESSTAT 

000006 

#6-^4 

E$TCB 

000004 

#6-54 

E.CTL 

000020 

#6-54 

E.DATA 

000046 

#6-54 

E.EVT 

000002 

#6-54 

E.LCN 

000042 

#6-54 

E.LEN 

000216 

#6-54 

E.LIN 

000024 

#6-54 

E.LNK 

000000 

#6-54 

E.MOD 

000036 

#6-54 

E.NOD 

000054 

#6-54 

E.PDV 

000021 

#6-54 

E.PORT 

000040 

#6-54 

E.PRM 

000026 

#6-54 

E.PVC 

000044 

#6-54 

E.SIZ 

000022 

#6-54 

E.TIME 

000004 

#6-54 

FRSBCC 

=  000007 

#6-54 

FRSCCF 

=  000001 

#6-54 

FRSCDF 

=  000002 

#6-54 

FRSOAO 

=  000011 

#6-54 

FRSEXC 

=  000000 

#6-54 

FRSFRM 

=  000010 

#6-54 

FRSFTL 

=  000005 

#6-54 

FRSOPN 

=  000004 

#6-54 

FRSRFD 

=  000006 

#6-54 

FRSSBU 

=  000012 

#6-54 

FRSSHO 

=  000003 

#6-54 

FRSUBU 

=  000013 

#6-54 

FRSUPT 

=  000014 

#6-54 

lE.UPN 

-   *»»**«  GX 

9-144 

MOSSAC 

=  000016 

#6-54 

MOSSPR 

=  000012 

#6-54 

MOSSSV 

=  000014 

#6-54 

MO$25A 

=  000006 

#6-54 

MO$25P 

=  000002 

#6-54 

MO$25S 

=  000004 

#6-54 

M0$29S 

=  000010 

#6-54 

MSHIGH 

=  000003 

#6-54 

M$3100 

=  OOOCOO 

#6-54 

M$3101 

=  OuOOOl 

#6-54 

M$3102 

=  000002 

#6-54 

M$3103 

=  000003 

#6-54 

NFSDMO 

=  000010 

8-94 

NFSMOU 

=:  000040 

8-122 

NFSSHU 

=  000004 

8-116 

NFSTIM 

=  000200 

8-105 

NSACTL 

000032 

8-97 

E     k 
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CREF        04.00 


SE 
Pr 


6-54 
8-122 

8-122 
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SES^RO  -  Session  control  protoc 
Process  received  CC  message 

275 
276 
277 
276 
279 
280 
281 
282 
28? 
28'. 
285 
285  000552 

287  000556 

288  000562 

289  000564 

290  000566 

291  000572 
292 

293  000576 

294  000602 

295  000606 

296  000610 

297  00061A 
298 

299  000616 

300  000622 
301 

302  000624 

303  000634 
304 

305  000656 

306  000642 
307 
308 

309  000644 

310  000652 

311  000660 
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.S8TTL  Process  received  CC  message 
**-RCVCC-Process  received  CC  message 

This  routine  processes  received  CC  messages. 


112267 
111267 
105722 
100776 
112267 
112267 

116701 
032701 
001075 
122701 
001472 


103467 


103463 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000001 G 

OOOOOOG 
177762 

00001. 


Inputs: 
R2 


RCVCC: 
10$: 


122713  000002 
001041 


016767  OOOOOOG  OOOOOOG 


312 
313 

314  000666 

315  000674 

316  000700 
317 

318  000710 

319 

320  000714 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331  000724 


016563  000016 
005063  000054 


000004 


20$: 


Pointer  to  fielc  'oUowing  source  link  address 
R4  =  Address  of  '  f8 
R5  =  Address  of  Database  descriptor 


MOVB 

Move 

TSTB 
BMI 
MOVB 
MOVB 

MOVB 

BIT 

BNE 

CMPB 

BEQ 

CALL 
BCS 

CALLE 
BCS 

CMPB 
BNE 

.IF  DF 
MOV 


MOV 
CLR 
CALLE 

CALL 

CALLE 

.IF  OF 

en 

BEQ 

CALL 

BR 

.ENDC 

CALL 


(R2)+,$SRVCS 

(R2),$INF0 

(R2)  + 

10$ 

(R2)+,$SEGMT 

(R2)+,$5EGMT+1 


Get  services  requested 

info  field  (NSP  version  It) 


segment  size 


$SfiVCS,R1      ;  Get  requested  services 

*"C<CL$SFLICL$MFL!CL$TyP>,R1 

100$         ;  If  NE,  invalid  CC  message 

#CL$SFL1CL$MFLICL$TVP,R1 

100$ 


COUNT$  E$N8R 
COUNT$  E$NMR 
.ENDC 


GETOPT 
100$ 

FNDLLT 
110$ 

#ST$CIS,(R3) 
90$ 

nl$$NCT 
$0PLNG,$BYTE 


Can't  ask  for  message  and  segment  flow  control  together 

Get  optional  data  from  message 
If  CS,  format  error 

Try  to  find  LLT  for  this  link 
I f  CS,  none  present 

Are  we  waiting  for  a  CC  on  this  link? 
If  NE,  no 


Count  bytes  received  for  CC  message 
Count  message  received 


i\$SLA(R5),L.RLA(R3) 


L.rMRD(R3i 
FNDDLY 

PROCON 

STOPCI 

N$$SLI 

#LT.SLI«40j,(R3) 

20$ 

SLICC 

30$ 


USRCC 


Stop  CI  timer 

■-"ind  initial  estimate  of  delay  to  remote  node 

Process  requested  connect  services 

Stop  CI  retransmission 


Is  this  an  SLI  link? 

If  EQ,  no 

Tell  system  level  interface  link  has  been  confirmed 

Return  to  common  code 


Tell  user  link  has  been  confirmed 
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iESPROns  CREATED  BV  MACRO  ON  28-JUN-85  AT  19:57 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


E  6 

PAGE  1 

CREF   0^.00 


SES( 
Usei 


ACCLLT 

ACKCl 

ADDLNK 

ADDOPT 

BRKLNK 

CEACC 

CLSMFL 

CLSSFL 

CLSTYP 

CNVCI 

CTRSES 

CVSMSK 

CV$40 

C.ADD 

C.BUF 

C.BUF? 

C.CNT 

C.FLG2 

C.LIJ 

C.MOD 

C.STS 

DCSTA 

DECPT 

DISTA 

DSINAC 

DSLNUM 

OSRETF 

d$s:g 

ERSABO 

ERSCDI 

ERSCOM 

ERSRES 

ERSSTA 

E$NBR 

ESNBS 

E$NCR 

ESNCS 

ESNIC 

E$NLEN 

ESNLLA 

ESNLNK 

E$NML 

FSNMR 

E$NMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

FLSRES 


****** 
****** 
****** 
****** 

****** 

000010 

00000^; 

000001 

****** 
****** 

000003 

000002 

000034 

000014 

000024 

000020 

000032 

000006 

000011 

000012 

001 30A  I 

****** 

001162  I 

000044 

000014 

000050 

000036 

000046 

000052 

000047 

000001 

000051 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


GX 


GX 


10-264 

9-216 

9-188 

16-567 

10-271 

9-177 

9-165 

9-165 

9-165 

9-201 

9-197 

15-513 

15-514 

: 5-509 

8-101 

18-618 

18-617 

8-100 

»9-205 
18-619 
9-149 
13-433 
11-334 
12-335 
11-335 
15-501 
16-573 
15-530 
13-428 
12-374 
10-270 
9-224 
1^-4  26 

#6-5  i 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 
8-118 


9-167 
9-167 
9-167 

9-198 


8-102 


15-505 

9-170 
#13-443 

15-500 
#12-398 


15-532 


11-310 
9-198 


9-197 
12-382 


11-294 
11-294 
11-294 

11-310 


9-186 


15-529 


11-296 
11-296 
11-296 

11-311 


18-616 


16-572 


15-525 
15-521 


12-380 


*18-618 


12-381  12-382  13-422 


18-621  18-622 


12-380 


11-311 


12-381 


13-422 
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SES 


SESQIO  - 
User  dis 

19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
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connect  co:npletion 

.SBTTL  User  disconnect  completion 

♦*-USRDSC-User  disconnect  completion 

Complete  the  ursr  discor;nect  request. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


SES' 

Ma  CI 


000312 
000320 

000322 
000326 
000332 
000334 
000342 
000346 
000352 
000356 
000362 


122763 
001020 

016300 
105760 
001013 
112763 
016746 


Registers  modi  f ied: 


RO,  R1,  R2,  R4 


000000  000037  USRDSC: 


000040 
000014 


000000  000036 
OOOOOOG 


012667  OOOOOOG 


10$: 


:  CMP8 
BNE 

MOV 

TST8 

BNE 

MOVE 

MOV 

CALL 

CALL 

MOV 

RETURN 


#NS$D0N,L.CSTA(R3) 


10$ 


;  Uait  till  network  processing  complete 


L.W]ND(R5),R0  ;  Get  window  block  address 

U.KAST(RO)  ;  Are  there  any  outstanding  ASTs? 

10$  ;  BR  if  yes 

*US$D0N,L.USTA(R3) 

$I0PKT,-(SP)  ;  Save  any  I/O  packet 

RMVLNK  ;  Remove  link  resources 

'OSUC  ;  Complete  the  disconnect  request 

(SP)+,$IOPKT  ;  Restore  any  I/O  packet 
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!*l3cro  definitions 


SES 
Mac 


A2 
43 
4A 
45 
46 
47 

48  000000 

49  000000 

50  000000 

51  000000 

52  000000 

53  000000 

54  000000 

55  000000 
56 

57        000001 


.S8TTL  Macro  definitions 

.MCALL  SAVRG,RESRG,MAP,MAPLLT,CALLE 

.MCALL  SLlDFi,CCBDF$,ECDD8$,PDVDF$,MSGDF$,CNBDf$,RNBDF$ 

.MCALL  OHeDF$ 

SLIDES 
CCSDFS 
ECDDBS 
PDVDFS 
MSGDFS 
CNBDF$ 
RNBDFS 
DHBDFS 


N$$SES  =  1 


Define  SLI  symbols 

Define  CCB  offsets 

Define  ECL  database  offsets 

Define  PDV  offsets 

Define  message  symbols 

Define  connect  request  block  offsets 

Define  remote  name  block  offsets 

Define  the  DEC  home  block  offsets 

This  module  is  part  of  session  control 


SES 
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Macro  definitions 


519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 


10$: 


20$: 


30$: 
40$: 


50$: 


HOVB 
MOVB 
M0V8 
BEQ 

MOVB 
MOVB 
SOB 

TST 
BEQ 
CALL 
BR 

CALL 

BCS 

MOVB 

ADD 

CLC 

RESRG 

RETURN 


(R2)+,(R0)t 
(R2)t,R3 
R3,(R6)+ 
20i 

(R2;,(R0)+ 

CR2)+,(R1)t 

R3,10i 

$WORK 
30$ 

FNDNAM 
40$ 

FNDADD 
50$ 

$WORK+2,R0 
#$WORKt2,R0 

<R1,R2> 


Get  length  of  node  name 

and  plant  in  output  buffer 
If  EQ,  null  node  name 

Copy  node  name  to  output  buffer 
and  to  local  copy 


Did  caller  specify  a  node  address? 
If  EQ,  no 

Find  mapping  by  name 
and  exit  via  common  path 

Find  mapping  by  node  address 
If  CS,  no  mapping  found 
Get  length  of  node  name 
Point  past  end  of  node  name 
Indicate  mapping  found 
Restore  registers 


•♦-GLNHOS-Get  host  node  address  and  name 


.PSECT  $HIGH 


GLNHOS: 


MOV 

MOV 

CALL 

CLC 

REFURN 


D$HOST(R1),(RO)+ 

#H0ST,R3 

NODIMG 


;  Fill  in  host  node  address 
Point  to  host  logical  node  name 
Convert  to  image  field 
Indicate  success 
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Symbo'.  table 

N.SNM 

N.SNMC 

N.SOT 

N.SUS 

P$$P45= 

P$$URD= 

Q$$OPT= 

RF.LOO^ 

R$$DER= 

R$$K11= 

R$$SND= 

R$$nM= 

R$$ns= 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

ST$CC  = 

S1$CJR= 

SMCIS= 

ST$DAT= 

ST$DIP= 

ST$PND= 

S$ABO  = 

SSACC  = 

SSBUF  = 

S$CNR  = 

SSCON  = 

S$DAT  = 

S$DIS  = 

SSDRQ  = 

SSDSR  = 

S$GLN  = 

SUNT  = 

SSIRQ  = 

S$MRQ  = 

S$NOT  = 

S$NTIF= 

S$PBOM= 

S$PEOM= 

S$PMOM= 

S$PMSG= 

S$PSEG= 

S$REJ  = 

S$SND  = 

S$SNI  = 

S$TMDA= 

S$$WRG= 

S$$YSZ= 

S.EABL= 

S.EABM= 

S.EABO= 

$.EABS= 

S.EACR= 

S.ECBE= 

S.EDBO= 


LT.DIR= 

000010 

MA. DA  i 

000000 

N$DLY 

000014 

LT.LCL= 

000001 

MA.IL  = 

000020 

NSELEN 

000054 

LT.LPL= 

000002 

MC.CC  = 

000040 

NSENC 

0959^? 

LT.NOT= 

000040 

MC.CI  = 

000020 

NSERRC 

000022 

LT.RSU= 

000200 

MC.DC  = 

000100 

NSFLG 

000005 

LT.SLI= 

OOOOOA 

HC.DI  ^ 

000060 

NSFNC 

000006 

LT.TDA= 

000100 

MC.NO  = 

000000 

NSGENQ 

000052 

L$$ASG= 

000000 

MC.RC  = 

000140 

NSGTM 

000015 

L$$DRV= 

000000 

MD.BM  = 

000040 

NSHIGH 

000033 

L$$P11= 

000001 

MD.EM  = 

000100 

NSLLT 

000026 

LS$11R= 

000000 

MD.ILS= 

000040 

NJLLTM 

000024 

L.CSTA 

000037 

MD.IM  = 

000020 

NSLVC 

000036 

L.CTR 

OC0074 

MF.ACK= 

000004 

NSMBXQ 

000050 

L.DCR 

000100 

MF.CTl= 

000010 

NSPLLT 

0999^9 

L.FLAG 

oooou 

MF.^AT= 

000000 

NSSLA 

000016 

L.ILSO 

000052 

M$$CRe= 

000124 

NSSNOD 

000012 

L.ILTT 

000066 

M$$CRX= 

000000 

NSTIM 

000004 

L.LDA 

000032 

M$$FCS= 

000000 

NSVCS 

000010 

L.LIA 

00003A 

M$$MGE= 

000000 

N$$ACC= 

000001 

L.LLA 

000002 

H$$MUP= 

000000 

N$$ACK= 

0999" 

L.LNG 

000124 

M$$NET= 

000000 

N$$EVL= 

000001 

L.LNO 

000026 

M$$0VR= 

000000 

N$$HDR= 

000007 

L.LPT 

000065 

NC.FMO= 

000000 

N$$LDV= 

09999] 

L.LSA 

000030 

NC.FM1= 

000001 

N$$MLL= 

000001 

L.LSFD 

000046 

NC.Ff«12= 

000002 

N$$MOV= 

000010 

L.LSFl 

000044 

NF$BLK= 

000100 

N$$NCT= 

000001 

I  .LTT 

000062 

NF$DMO= 

000010 

N$$0VR= 

000022 

L.MASO 

000070 

NF$MOU= 

000040 

N$$PEM= 

000001 

L.MAST 

000073 

NF$RST= 

000002 

N$$SES= 

000001 

L.MASZ 

000072 

NF$SCN= 

000020 

N.CAC 

000120 

L.NIN 

000020 

NF$SHU= 

000004 

N.CACC 

000116 

L.NXN 

000016 

NF$TIM= 

000200 

N.CBL  = 

0001'.2 

L.NXTH 

000010 

NM$ARf= 

176000 

N.CDA 

000142 

L.OPD 

000103 

NM$NOD= 

001777 

N.CDAC 

0991t9 

L.OPDL 

000102 

NS$DON= 

000000 

N.CDDS 

000070 

L.REM 

000006 

^JS$SDI^ 

000002 

N.CDEV 

000062 

L.RFC 

000050 

NS$UDC= 

000004 

N.CID 

000064 

L.RLA 

000004 

NT$AKD= 

000020 

N.CIDC 

000062 

L.RNO 

000022 

NT$AKI= 

000022 

N.CPS 

000106 

L.RTO 

000060 

NTSCC  = 

000016 

N.CPSC 

000-'04 

L.RTYD 

000055 

NT$CON= 

000000 

N.CTL 

000000 

L.RTYI 

0C0CS7 

NT$CTL= 

000000 

N.CUIC 

000066 

L.SEC 

000064 

NT$DAT= 

000002 

N.CUNI 

000064 

L.SEGZ 

000076 

NTSDC  = 

000012 

N.DDE 

000010 

L.STA 

000000 

NT$DIS= 

000014 

N.DDEC 

000006 

L.TC 

000042 

NT$DLS= 

000006 

N.DFM 

000004 

L.TIC 

00004  3 

NT$ILS= 

000010 

N.DGP 

000006 

L.TIPD 

000013 

NI$IMS= 

000002 

N.DNM 

00991^ 

L.TIPI 

000012 

NT$INT= 

000004 

N.DNMC 

000012 

L.TMRD 

000054 

NT$RET= 

000032 

N.DOT 

000005 

L.TMRI 

000056 

NT$ROU= 

000024 

N.DUS 

000010 

L.TYP 

000001 

NT$RTR= 

000030 

N.SDE 

000042 

L.USA 

000 }24 

NT$TSP= 

000026 

N.SDEC 

000040 

L.USTA 

000036 

NSACQ 

000000 

N.SEGZ 

09995? 

L.VER 

000015 

N$ACTL 

000032 

N.SFM 

000036 

L.WIND 

000040 

NSCIR 

000034 

N.SGP 

000040 

MA. CI  = 

■  000040 

NSDLA 

000020 

N.SND 

000030 

000046 

S.EERR= 

100210 

000044 

S.EIDH= 

100214 

000037 

S.EINF= 

100212 

000042 

S.EI0F= 

100373 

000000 

S.ELNS= 

100365 

000000 

S.ELST= 

100216 

000010 

S.ELWS= 

100220 

100000 

S.EMTL= 

100222 

000000 

S.ENOF= 

100224 

000001 

S.ENRO= 

100332 

000000 

S.ENSL= 

100327 

000000 

S.ENUR^ 

100331 

000000 

S.E0TB= 

100372 

000010 

S.ERBO= 

100226 

000012 

S.ERES= 

100377 

000014 

S.ERNS= 

100375 

000000 

S.ETMI= 

100230 

000002 

S.EUNN= 

100376 

000004 

S.EURO= 

100374 

000006 

S.SEOM= 

000003 

000002 

S.SSUC= 

000001 

000010 

T$$KMG= 

000000 

000012 

T$$HIN= 

000000 

000014 

US$CNF= 

000002 

000022 

US$DIS= 

000006 

000002 

US$D0N= 

000000 

000026 

US$DSC= 

000004 

000000 

US$EAC= 

000012 

000000 

US$WDS= 

000010 

000002 

V$$CTR= 

001000 

000020 

X$$DBT= 

000000 

000012 

ZF.COU= 

001000 

000006 

ZF.DDM= 

000001 

000024 

ZF.DIA= 

004000 

000004 

ZF.DLC= 

000002 

000016 

ZF.DVP= 

100000 

000010 

ZF.INI= 

040000 

000010 

ZF.KMX= 

000020 

000001 

ZF.LLC= 

000004 

000040 

ZF.LMC= 

000100 

000100 

ZF.MAN= 

020000 

000000 

ZF.MFL= 

000010 

000200 

ZF.MTM= 

000400 

000100 

ZF.MUX= 

000040 

000004 

ZF.PSE= 

002000 

000006 

ZF.SLI= 

010000 

000014 

ZF.TIH= 

000200 

000002 

ZF.X3P= 

000000 

000000 

ZS.A5N= 

100000 

007600 

ZS.BSY= 

140000 

100200 

Z.AVL 

000014 

100370 

Z.DAT 

000016 

100367 

Z.DSP 

000000 

100202 

Z.FLG 

000010 

100336 

Z.LEN  = 

000016 

100204 

Z.LLN 

000006 

100206 

Z.MAP 

000020 
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SESSUB  -  Session  control  subrou 
AUocate  an  ECL  node  database 

279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 

297  000524 

298  000526 

299  OO053A  010504 

300  000536  062704  000042 
301 

302  000542  005000 

303  000544  011404 

304  000546  001413 

305  000550  026564  000012  000002 

306  000556  001442 

307  000560  105764  000004 

308  000564  001367 

309  000566  005700 

310  000570  001365 

311  000572  010400 

312  000574  000763 
315 

314  000576  010004 

315  000600  001451 
316 
317 
318 

319  000602  016746  OOCOOOG 

320  000606  062716  000010 

321  000612  016036  000002 

322  000616  001404 
323 
324 
325 

326  000620 
327 

328  000630  005720 

329  000632  012701  000023 

330  000636  005020 

331  000640 
332 
335  000644  017764  OOOOOCG  000046 

554  000652  017701  OOOOOOG 

555  000656  116164  000045  000005 
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.S8TTL  AUocate  an  ECL  node  database 

h 

**-ALLDB-AUocate  an  ECL  node  database 

AUocate  an  ECL  node  database  for  the  remote  node, 
found  for  this  node,  use  it. 


5E 
Co 


If  an  entry  is 


Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  ECL  node  database  allocated 
'C  Set   -  Failed  to  allocate  database 

Registers  modified: 
RO,  R1 


ALLDB: 


10$: 


20$: 


30$: 
40$: 


SAVRG 
MAP 
MOV 
ADD 

CLR 

MOV 

BEQ 

CMP 

BEQ 

TSTB 

BNE 

TST 

BNE 

MOV 

BR 

MOV 
BEQ 


MOV 
ADn 
MOV 
BEQ 

.ENDC 

EVTS 

TST 
MOV 
CLR 
SOB 

MOV 
MOV 
MOVS 


<R4> 

N$ENC+4(R5) 
R5,R4 
#N$ENC,R4 

RO 

(R4),R4 

20$ 


N$SNOD(R5),E$NNOD(R4) 


egi 

Map  to  the  ECL  database  area 
Compute  address  of  database  listhead 


;  Initialise  new  block  pointer 
;  Get  address  of  next  database 
If  EQ,  no  more 


50$ 

E$NUSE(R4) 

10$ 

RO 

10$ 

R4,R0 

lOi 

R0.R4 
106$ 


If  EQ,  use  this  one 

Is  this  database  in  use? 

If  NE,  yes  ...  keep  lookinc 

Do  we  already  have  a  free  I 

If  NE,  yes 

Save  this  entry 


Copy  address  of  database 
If  EQ,  none  available 


lock? 


.IF  DF  N$$EVL 


EVDSC,-(SP) 
#E$NOD,(SP) 
E$NN0D(R0),5)(SP)t 
50$ 


If  EQ,  database  was  not  previously  in  use 


5,2,<N0D>,E$NLEN;  Log  database  reused 


Skip  link  word 

Clear  out  the  database 


(R0)  + 

#<E$NLEN-2>/2,R1, 

(RO)t 

Rl,40$ 

51ZTIM2,E$NTIM(R4)  ;  Get  time  since  midnight 
SDECPT.RI      ;  Get  DEC  home  block  address 
D$0UTT(R1),E$NRTP(R4) 
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SESSUB  -  Session  control  subrou  MACRO 
Copy  optional  outgoing  data 

7S6 
757 
758 
759 
760 
761 
76? 
763 
76'i 
765 
766 
767 
768 
769 
770 
771 

772  001 70J 

773  001 704 
im 
11^  001710 

776  001 71 A 

777  001716 

778  001722 

779  001 72A 

780  001726 

781  001732 

782  001734 

783  00^736 
784 

785  001742 

786  001744 

787  001752 
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.S8TTL  Copy  optional  outgoing  data 

y 

»*-CPYOPT-Copy  optional  outgoing  data 

Copy  optional  outgoing  data  to  the  local  optional  data  buffer. 

Calling  sequence: 
JSR 
.WORD 
Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


=0 


RI.CPYOPT 

("Offset  of  buffer  descriptor  in  I/O  packet> 


012702  OOOOOOG 

016700  OOOOOOG 

062100 

016003  000004 

010322 

001406 

012000 
112022 


000201 


Registers  modified: 
RO,  R2 

CPYOPT: 


10$: 
20$: 


SAVRG 

<fi3> 

MOV 

#$0PLNG,R2 

MOV 

$IOPKT,RO 

ADD 

(R1)+,R0 

MOV 

4(kO),R3 
R3,(R2)+ 

MOV 

BEQ 

20$ 

MAP 

CR0)  + 

MOV 

(RO)+,RO 

MOVB 

(R0)+,(R2)t 

SOB 

R3,10l 

RESRG 

MAPLLT 

RT5 


<R3> 

Rl 


Save  address  of  LLT 

Point  to  internal  optional  data  buffer 

Compute  address  of  buffer 
descriptor  in  I/O  packet 
Get  #  of  bytes  to  copy 
Fill  in  descriptor 
If  EQ,  none 
Map  the  user's  buffer 
Get  virtual  address  of  user's  buffer 
Copy  the  optional  data 


Recover  LLT  address 

and  restore  it's  mapping 
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SE 


S^SSUB  - 
oint  CC 

1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
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B  butter  descriptor  at  optional  data 


SES 
Pro 


002516 

002516  016564 


00^524  010364 

002530  062764 

002536  116300 

002542  010064 

002546  105063 
002552 


.SBTTL  Point  CCB  buffer  descriptor  hZ   optional  data 

«*-PNTCC8-Point  CCB  buffer  descriptor  at  optional  data 

Point  the  buffer  descriptor  in  the  CCB  at  the  optional  data  in  the 
LLT. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO 


PNTCCB: 


000024  000014 


000016 
000103 
000102 
000020 
000102 


000016 


:.IF  DF 

MOV 

.IFF 

CLR 

.ENDC 

MOV 

ADD 

M0V8 

MOV 

CLRB 

RETURN 


N$$MLL 
N$LLTM(R5),C.BUF(R4) 


C.BUF(R4) 


LLT  is  allocated  from  DSR 


R3,C.BUF+2(R4)   ;  Set  up  buffer  bias  and  virtual  aadress 

#L.OPD,C.BUF+2(R4) 

L.0r'DL(R3),R0   ;  Get  length  of  optional  data 

R0,C.CNT(R4)    ;   to  CCB  count  field 

L.0PDL(R3)      ;  No  optional  data  now  in  LLT 
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SES 


SESSUB 
Process 

168/, 
168'' 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
169A 
1695 
1596 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
170A 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
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user  disconnect  state 

.SBTTL  Process  user  disconnect  state 

••-IRMUSR-Process  user  disconnect  state 


003532 
003536 


Terminate  the  logical  link  with  respect  to  the  user  by  catling  the 
user  state  action  routine. 


Input; 


R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


Registers  modified: 
RO,  Rl,  R't 


116300  000036 


TRMUSR: 


10$: 


003542 
003546 
003552 
003560 


;SAVRG 
MOVB 


000001 


BIT 
faEQ 
ADD 

.ENDC 

CALL 
RESRG 
MAPLLT 
RETURN 

.END 


<R2,R3> 
L.USTA(R5),R0 


Saue  some  registers 

Get  disconnect  state  for  user 


.IF  DF  N$$SLl 


'•J.SLI*400,(R3) 

10$  ;  If  EQ,  not  SLI  link 

#SSTATE-USTATE,RO 


a)USTATE(RO)     ;  Process  user  disconnect  state 
<R3,R2>        ;  Restore  registers 

;  Recover  mapping  to  LLT 
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SESSUB11S  CREATED  BY  MACRO  ON  28-JUN-85  AT  20:00 
SYMBOL  CROSS  REFERENCE 


E  15 

PAGE  9 

CREF   04.00 


SES 

Mac 


SYMBOL 

VALUE 

REFERENCES 

TSNOPL 

000006 

#6-53 

TSNRNI 

000042 

#6-53 

TSNRPL 

000005 

#6-53 

TSNRUL 

000007 

#6-53 

TSNVR 

000001 

#6-53 

TSRPRl 

000040 

#6-53 

T$SVC 

000034 

#6-53 

T$T5 

000030 

#6-53 

T$T6 

000032 

#6-53 

T.PCB 

=  ****** 

GX 

38-1508 

T.RCVL 

r  ****** 

GX 

28-1154 

•28-1155 

UISAR6 

=:     ****** 

GX 

17-660 

21-851 

23- 

951 

USRCNF 

=  ****** 

GX 

41-1663 

USRDIS 

=  ****** 

GX 

41-1665 

41-1667 

USRDSC 

r  ****** 

GX 

41-1664 

USTATE 

003516 

RG 

#41-1662 

42-1709 

UStCNF 

=  000002 

12-374 

ussnis 

=  000006 

12-375 

12-377 

UStDON 

=  OOOOOO 

12-376 

41-1642 

USSDSC 

=  OOOOOA 

12-379 

U0RD1 

=   000302 

#11-326 

11-326 

U0RD2 

=  000010 

#11-326 

11-326 

#11- 

-326 

U.CINT 

000022 

21-870 

♦21-872 

U.LLT 

OOOOOA 

38-1526 

U.LUN 

000003 

38-1520 

W.MBOX 

000012 

38-1506 

W.RCVCi 

00002'!. 

21-864 

♦21-866 

U.SNDQ 

000016 

21-858 

♦21-860 

W.WBL 

000026 

38-1532 

X$$HDR 

-   ♦**♦*♦ 

38-1511 

ZTIM2 

=  ****** 

GX 

11-333 

SALOCX 

=  ****** 

GX 

8-131 

SBYTE 

=  ****** 

GX 

♦10-261 

♦10-262 

10 

-267 

SCALLX 

-  ****** 

GX 

8-131 

8-198 

9- 

?38 

SDEACX 

=  ****** 

GX 

8-198 

35-1425 

SENCOD 

=   ****** 

GX 

8-173 

♦8-174 

SIOPKT 

-  ****** 

GX 

19-775 

40-1586 

SLADDR 

r  ****** 

GX 

♦17-611 

t17-618 

17 

-651 

ShAlBX 

=     ****** 

GX 

9-225 

♦23-930 

24 

-993 

SMENU 

=  ****** 

GX 

♦17-678 

17-680 

17 

-699 

SOPDAT 

=     ****** 

GX 

39-1556 

SOPLNG 

-     ****** 

GX 

19-773 

59-1551 

SRCCB 

r  ****** 

GX 

17-663 

SRQNAM 

=     ****** 

GX 

♦30-1231 

♦30-1232 

SSEGMT 

-  ****** 

GX 

17-666 

SSESDB 

-  ****** 

GX 

17-705 

.CCBRT 

00C334 

R 

#23-962 

23-970 

23 

-971 

11-326 


10-273    ♦17-702    ^17-703    17-704 
34-1365    35-1404    35-1425    40-1602 


♦26-1072    40-1584 


23-972 
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SES 
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SESTIM  -  Session  control  timer  MACRO  V05.03b  Friday  28-Jun-85  20:01  Page  6 
Macro  detini'tions 


U2 

A3 

4A 

A5 

46 

A7  000000 

A8  000000 

49  000000 

50 

51 


.SBTTL  Macro  def -'nit  ions 


000001 


N$$SES 


.MCALL 
.MCALL 

DHBDFS 
ECDD8$ 
LLTDFS 

=  1 


SAVRG,RESRG,MAP,CALLE,MAPLLT 
ECDR8$, LLTDFS, DHBDFI 


Define  DEC  home  block  offsets 
Define  ECL  database  offsets 
Define  LLF  offsets 

This  module  is  part  of  session  control 
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SESDSP  -  Session  control 
Complete  I/O  request 


639 

6^C 

6';i 

6^2 

6^3 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658  000454 

659 

660  000454 

661  000456 
662 

663  000460 

664 

665  000464 

666 

667  000466 

668  000472 
669 

670 
671 
672 
673 
674 
675 
676 
677 

678  000474 

679  000502 

680  000506 
681 

682 
683 
684 
685 
686 
687 

688  000512 
"  000514 
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dispat  MACRO  V05.03b  Friday  28-Jun-85  19:56  fs-'   15 


.SBTTL  Complete  I/O  request 

•*-IOERR-Complete  I/O  request  in  error 

•♦-lOSUC-Complete  I/O  request  successfully 

♦♦-lODUNI-Complete  the  I/O  request  with  zero  second  I/O  status  word 

**-IODUN-CompIete  I/O  request 


SE 

Al 


Inputs 


Call  the  executive  to  complete  an  I/O  request. 

RO  =  Contents  of  first  I/O  status  word  (lODUN  and  I0DUN1  only) 
R1  =  Contents  of  second  I/O  status  word  (iODUN  oniy) 


013600 
000402 

012700 

005001 

016703 
001407 


OOOOOOC 


OOOOOOG 


042773 
005063 


000001  OOOOOOG 
00001 6G 


689 

690 
691 


000261 
000001 


Outputs: 

'C  Always  set 

Registers  mod 
R2 

if ied: 

.PSECT 

lOERR::  MOV 
BR 

a(SP)+,RO 
I0DUN1 

lOSUC::  MOV 

#IS.SUC8377,R0 

10DUN1::CLR 

R1 

IODUN::  MOV 
BEQ 

$I0PKT,R3 
10$ 

.IF  DF 

X$$HDR 

MOV 
MOV 
MAP 

I.TCB(R3',R2 
T.PC8(R2),R2 
P.REL(R2) 

.ENDC 

BIC 
CLR 
CALL 

*1,ai.L'l2(R3) 

I.PfiM+16(R3) 

aiOFIN 

.IF  DF 

X$$HDR 

RECMAP 

.ENDC 

10$:    SEC 

RETURN 

.END 


Get  the  error  code 
Enter  common  code 

Set  successful  completion 

Second  I/O  status  word  =  0 

Recover  I/O  packet  address 
If  EO,  none 


Get  TCa  address 

then  PCS  address 
Map  the  task  header 


Remoue  LUN  interlock 

Clear  RMS  record  locking  flag 

Complete  the  request 


;  Recover  APR6  mapping 


Set  C-bit 


G  1 

SESDSP  -  Session  control  dispat  MACRO  V05.03b  Friday  28-Jun-85  19:56  Page  15-1 
Symbol  table 


SE 

De 
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Allocate  session  control  databases 


U2 
U3 
U4 
U5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 

157  000274 

158  000300 

159  000304 

160  000306 

161  000310 

162  000314 

163  000316 

164  000322 

165  000324 

166  000526 
167 

168  000332 

169  000336 

170  000342 
1/1  000346 
172  000350 
173 

000352 
000356 


174 
175 


.SBTTL  Allocate  session  control  databases 

**-ALOCDB-Allocate  session  control  databases 

Allocate  and  initialise  the  databases  required  by  session  control. 

Outputs: 

R5  =  Add'-ess  of  database  descriptor 

'C  Clear  -  Databases  allocated 

'C  Set   -  Failed  to  allocate  databases 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


176  000360 


016705  OOOOOOG 
016501  000036 
005201 
006301 

103416 

010065  000040 

006201 

005020 


005065  000032 

005065  000050 

005065  000052 
000241 


ALOCDB: 


10$: 


000261 


100$: 


MOV 

$SESDB,R5 

MOV 

N$LVC(R5),R1 

INC 

R1 

ASL 

R1 

CALL 

SALOCB 

BCS 

100$ 

MOV 

R0,N$LVCt2(R5) 

ASR 

R1 

CLR 

(R0)  + 

SOB 

Rl,10$ 

CLR 

N$ACTL(R5) 

CLR 

N$MBXQ(R5) 

CLR 

N$6ENQ(R5) 

CLC 

RFTURN 

CALL 

DEALD6 

SEC 

RETURN 

Set  up  database  descriptor 

Get  max  *  of  logical  links  allowed 

Compute  #  of  bytes  to  allocate 

Allocate  the  block 
If  CS,  allocation  failure 
Store  address  of  LLT  table 
U   of  words  in  table 
Clear  out  the  table 


No  active  logical  links  yet 

Initialise  mailbox  queue 

Initialise  general  deliy/ery  queue  listhead 

Indicate  success 


Deallocate  databases 
Indicate  failure 
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Deallocate  session  control  databases  _ 


SESMN  -  Session  control 
Table  of  contents 


F  3 

main  lo  MACRO  V05.03b  Friday  28-Jun-85  19:57 


6-  42  Macro  cjefinitions 

"'-  59  Define  local  macros 

8-  66  Session  control  main  logic 

9-  126  Execute  a  directive 
10-  153  Local  data  area^ 
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SE3MN11S       CREATED  BY     MACPO     ON  2S-JUN-85   AT   19:57 
SYMBOL   CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

N$FLG 

000005 

8-94 

•8-105 

8-116 

NtMBXQ 

000050 

8-99 

N$$ECL 

r  ****** 

8-118 

8-121 

NSIEVL 

=  000001 

#4-2 

8-118 

8-121 

N$$SES 

=  000001 

#6-57 

8-118 

8-121 

N$$VCT 

=  ****** 

8-103 

8-114 

OPSINl 

=  000000 

#6-54 

OPSTER 

=  000001 

#6-54 

PHSHDE 

=  000004 

#6-54 

PHSLOC 

=  000002 

#6-54 

PHSMTS 

=  000003 

#6-54 

PH$UMP 

=  000000 

#6-54 

PHSWCS 

=  000001 

#6-54 

RCPl 

000274  R 

8-89 

#10-155 

RCP2 

000312  R 

8-90 

#10-156 

RESADC 

=  000004 

#6-54 

RESADF 

=  000017 

#6-54 

RESADR 

=  000007 

#6-54 

resblk; 

=  000010 

#6-54 

RESCAF 

^-  000014 

#6-54 

RESDAT 

=   000001 

#6-54 

RESDRP 

=  000016 

#6-54 

RESLDT 

=  000013 

#6-54 

RESLSN 

=  000012 

#6-54 

RESNML 

=  000001 

#6-54 

RESOPE 

=  000004 

#6-54 

RESOPR 

=  000000 

#6-54 

8-118 

8-121 

RESRCV 

=  000001 

#6-54 

RESSED 

=  000011 

#6-54 

RESSKW 

=  000006 

#6-54 

RE$STA 

=  000002 

#6-54 

RESSUM 

=  000003 

#6-54 

RESSYN 

=  000000 

#6-54 

RESTME 

=  000021 

#6-54 

RE$TMO 

=  000000 

#6-54 

RESTMR 

=  000020 

#6-54 

RESUPT 

=  000002 

#6-54 

RESURE 

=  000003 

#6-54 

RESVER 

=  000005 

#6-54 

RESVRQ 

=  000015 

#6-54 

RTSINI 

=  000002 

#6-54 

RTSOFF 

=  000001 

#6-54 

RTSON 

=  000000 

#6-54 

R$$MPL 

r  ****** 

6-48 

8-7- 

10-158 

R.OSTN 

=  000002 

in-155 

10-156 

SCSOFF 

=  000001 

#6-54 

8-118 

8-121 

SC$ON 

=  000000 

#6-54 

8-121 

SCSRST 

=  000003 

#6-54 

SCSSHU 

=  000002 

#6-54 

8-118 

SESINI 

=  »»♦•♦.  GX 

8-85 

SVSDUM 

=  000001 

#6-54 

S\/$LOA 

=  000000 

#6-54 
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CREF       04.00 
»8-122 


St 
Pr 
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SESPRO  ■ 
Process 

332 
333 
334 
335 
336 
357 
338 
539 
340 
341 
342 
343 
344 
545 
546 
547 
348 
549 
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received  CC  message 


000750 
000754 
000740 

000746 
000754 
000756 
000762 

000764 
000772 

001002 

001004 
001014 
001020 


112715  000010 

017700  OOOOOOG 

116065  000044  000065 

026565  000016  000004 

001015 

122715  000010 

001007 

052763  100000  000024 


005067  OOOOOOG 


50$: 


90$: 


100$: 
110$: 


M0V8 

MOV 

M0V8 

CMP 
BNE 
CMP8 
BNE 

BIS 
CALLE 

RETURN 

CAlLE 

CLR 

RETURN 


#ST$DAT,(R3)    ;  Moue  link  into  data  state 
aDECPT,R0      ;  Get  address  of  DEC  home  block 
D$INAC(R0),L.LPT(R3)  ;  Store  inactivity  timer 

N$SLA(R5),L.RLA(R5)  .       .^,   ,  .  , 

110$         ;  Send  'NO  LINK'  if  message  received  for  idle  link 
#ST$DAT,(R5)    ;  Is  link  in  data  state? 
100$         ;  If  NE,  no  ...  toss  the  message 

#LA.Ark,L.USA(R5) 
FRCACK 


Acknowledge  the  CC 


NOLINK 
$RCCB 


Send  'NO  LINK'  DC  message 
We  have  re-used  the  CCB 
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SESPR011S  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:57 


SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


FNDDLY 

FNDLLT 

FRCACK 

GETOPT 

GETSDB 

KILLNK 

KISAR6 

LA.ACK 

LF.HMF 

LF.HSF 

LT.CCA 

LT.LCL 

LT.LPL 

L.CSTA 

L.DCR 

L.FLAG 

L.LLA 

L.LPT 

L.NXTH 

L.REM 

L.RLA 

L.RTQ 

L.RTYD 

L.SEGZ 

L.TMRD 

L.USA 

L.VER 

MC.CI 

MC.DI 

MC.RC 

MF.CTL 

NOLINK 

NOOP 

NSSDON 


GX 
GX 
GX 
R 
GX 
GX 
GX 


****** 
****** 
****** 

001320 
****** 
****** 
****** 
100000 
000040 
000020 
000020 
000001 
000002 
000037 
000100 

oooou 

000002 
000065 
000010 
000006 
000004 
000060 
000055 
000076 
000054 
000024 
000015 
000020 
000060 
000140 
000010 

:  ******    GX 

000076  R 
:  000000 


REFERENCES 

11-316 

11-302 

11-343 

11-299 

16-559 

12-386 
•8-101 

11-342 

15-527 

15-523 

15-516 

15-504 

15-507 
•16-574 
•9-228 
•15-523 

10-265 
♦11-335 
•15-509 

9-182 

9-180 

18-612 
•16-573 
•15-534 
•11-315 
•11-342 
•15-512 

9-170 

16-561 

18-622 

9-170 

11-347 
#8-121 

12-398 


12-368 

12-365 

13-435 
•9-186 


•17-595 
•12-373 
•15-527 


•15-499 
•11-314 
•18-615 
•17-593 

•13-434 


16-561 

8-127 
12-399 


13-419 
#14-470 

•18-621 


•13-430 


•15-508 
11-337 


•16-571 


18-622 

8-132 
12-401 


NSSWDC 

=  000004 

1  C-3'y3 

16-574 

NTSCON 

=  000000 

18-619 

NTSDIS 

=  000014 

16-560 

N$DLA 

000020 

•8-109 

•8-110 

9-154 

N$DLY 

000014 

16-571 

18-625 

NSERRC 

000022 

9-224 

9-228 

♦12-374 

N$LVC 

000036 

9-174 

9-175 

10-256 

NSPLLT 

000030 

9-205 

N$SLA 

000016 

•8-111 

•8-112 

9-180 

NSSNOD 

000012 

•8-100 

9-182 

15-499 

N$$ECL 

r  *  ♦♦♦ t * 

9-197 

9-198 

11-310 

N$$EVL 

=  000001 

#4-2 

N$$NCT 

=  000001 

9-197 

9-197 

9-198 

12-378 

12-380 

12-380 

N$$SES 

=   000001 

#6-55 

9-197 

9-198 

N$$SLI 

-  ****** 

9-191 

9-209 

11-322 

N$$vCT 

8-101 

8-118 

9-186 
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CREF       04.00 


SESi 
Not 


16-558 


13-423         ^15-519 


•18-625 


8-134 
12-403 


♦9-234 


10-259 

10-254 
15-501 
11-311 

9-198 

12-381 

11-310 

15-536 

9-216 


13-443 


13-444 


13-446 


'3-447 


13-448 


10-263 
12-580 

11-308 

12-381 
11-311 

9-237 


11-314 

12-381 

11-310 
12-382 

12-380 

10-264 


11-337 

12-382 

11-310 
12-382 
12-381 

11-302 


13-423 

13-422 

11-311 
13-422 
12-382 

11-316 


15-519 


11-311 
13-422 
13-422 

11-320 
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SESQIO  -  Session  control 
Notify  user  ot  logical  I 

220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 

234  000364  016300 

235  000370  001452 
236 
237 
238 
239 
240 
241 

242  000372 

243  000376  103447 
244 

245  000400  112763 

246  000406  012700 

247  000412  016364 

248  000420  001410 
2'i9  000422  012700 

250  000426  026327 

251  000434  001402 

252  000436  012700 
253 

254  000442  110064 

255  000446 
256 

257  000452  016303 

258  000456  010364 

259  000462  152763 

260  000470  116364 

261  000476  016367 

262  000504 
263 

264  000510  010304 

265  000512 
266 
267  000516 
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ink  disconnect/abort 

.SBTTL  Notify  user  of  logical  link  disconnect/abort 

**-USRDIS-Notify  user  of  logical  link  disconnect  or  abort 


SES 

Mac 


000040 


Queue  a  CCB  to  the  user's  mailbox  indicating  that  the  logical  link 
has  been  disconnected  or  aborted. 


Inputs 


R3  =  Virtual  address  of  LIT 

R5  =  Address  of  database  descriptor 


Registers  modified: 
RO,  R1,  R2,  R4 


USRDIS::f10V 
BEQ 


000010     000036 

000003 

000100  000004 


000004 
000100 


000011 


000005 

000010 


000040 
000012 
000010 


10$: 


_.._  _  000002 
000005  000011 
000012  OOOOOOG 


20$: 


.IF  DF 
TSTB 
BNE 
.ENDC 

CALL 
BCS 

M0V8 

MOV 

MOV 

BEQ 

MOV 

CMP 

BEQ 

MOV 

MOVB 
CALL 

MOV 

MOV 

BlSe 

MOVB 

MOV 

CALL 

MOV 
CALL 

RETURN! 


L.WIND(R3),R0 
20$ 

N$$BUF 

U.KAST(PO) 

20$ 


Check  for  deallocated  window  block 
If  EQ,  window  block  is  already  gone 


;  Are  there  any  kernal  ASTs  outstanding 
;  If  NE,  yes  -  issue  disconnect  later 


Allocate  a  CCB 

If  CS,  allocation  failure 


aCCBGT 
20$ 

#US$WDS,L.USTA(R3) 

*NT.DSC,R0     ;  Assume  user  disconnect 

L.DCRCR3),C.NSP(R4) 

10$  ;  If  EQ,  user  disconnect 

#NT.ABT,RO     ;  Assume  user  abort 

L.DCR(R3),#ER$ABT 

10$  ;  If  EQ,  user  abort 

#NT.A80,RO     ;  else  network  abort 


R0,C.FNC(R4) 
PNTCCB 


Set  up  CCB  for  disconnect  type  and  reason 
Poi'nt  CCB  at  optional  data 


L.WIND(R3),R3   ;  Get  address  of  window  block 

R3,C.STS(R4)    ■   and  save  for  completion  later 

*US.D1P,U.STAT(R3) 

W.IUN(R3),C.M0D(R4) 

W.MB0X(R3),$MA  9X 

ADDMAI         ;  Add  mail  to  user  mailbox 


R3,R4 
FL5HI0 


Copy  window  block  address 
Flush  pending  1/0  packets 
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SESSLI  - 
Macro  de 

59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 


Session  c 
f ini t ions 


ontrol  system  MACRO  VO5.03b  Friday  28-Jun-85  19:58  Page  7 


SES 
Mac 


.]F  OF  N$$SL1 

.SBTTL  System  leuel  interface  request  -  transmit  enable 

»«-.SEXME-Systeni  level  interface  request  -  transmit  enable 

This  routine  processes  a  single  request  for  system  level  interface 
service  via  tne  transmit  enable  entry  point. 

Inputs: 

R3  =  Subfunction  code 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


.PSECT  SHIGH 
.SEXME::CALLR   aXMET8L(R3) 


•  Transmit  ena 

ble  dispatch  table 

XMETBL:  .WORD 

SLICON        ; 

.WORD 

SLIACC 

.WORD 

SLJREJ 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.tl 

.WORD 

SLIDSL 

.WORD 

SLIABO 

.WORD 

SLJGLN 

Dispatch  to  processing  routine 


Connect  request 

Accept  connection 

Reject  connection 

Data  segment  (illegal). 

Data  message  request  (illegal) 

Data  segment  request  (illegal) 

Interrupt  message  (illegal) 

Interrupt  request  (illegal) 

Disconnect 

Abort 

Get  local  node  info 
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SESSLI  -  Session  control 
Macro  definitions 

55? 
55^ 
55A 
555 
556 
557 
558 
559 
560 
561 
562 
565 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
5S1 
582 
583 
584 
585 
586 
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.SBTTL  Copy  node  name  to  image  field  buffer 

»*-NODIMG-Copy  node  name  to  image  field 

copy  a  node  name  (6  bytes,  space  filled)  to  an  image  output  field. 

Inputs: 

RO  =  Address  of  next  available  byte  in  the  output  buffer 
R3  =  Address  of  node  name 


Outputs: 

RO  =  Address  of  next  available  byte  in  the 

Registers  modified: 
R1,  R3 


.■tput  buffer 


NODIMG: 


10$: 


20$: 


.PSECT 


SAVRG 

<R2> 

CLR8 

(R0)  + 

MOV 

RO,-(SP) 

MOV 

#6,fi2 

MOVB 

(R3)+,R1 

CMP8 

R1,#' 

BEQ 

20$ 

MOVE 

R1,(R0)t 

SOB 

R2,10$ 

MOV 

RO.RI 

MOV 

(SP)+,P2 

sue 

R2,R1 

MOVB 

R1,-(R2) 

RESRG 

<R1> 

RETURN 

Get  some  free  regi'-.ters 
Initialise  count 

Save  pointer  to  start  of  node  name 
Set  max  length  of  node  name 

Get  next  character  from  node  name 
Space  terminates  the  node  name 
If  EQ,  all  done 

Plant  character  in  output  buffer 
Scan  max  of  six  characters 

Copy  output  address 

Recover  pointer  to  start  of  node  name 

Compute  length  of  node  name 

Plant  count  in  buffer 

Restore  registers 
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Symbol  table 


SE 

Al 


Z.NAM        OOOOOA 
Z.PCB       000012 

.   ABS.      177776 
000000 
Errors   detected: 


000 
001 
0 


Z.SCH       000C07 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


$$SHFT=  000001 


$$$ 


000062 


.$$$$.=  000034 


»**   Assembler   statistics 

Work      file     reads:  79 

Work      file  writes:  10A 

Size  of  work   file:  27656  Words     C   109  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 

SyfsES5Lins;v2?n3J  J3"sESSLI11S/CR/-SP=SV:C1  J]RSXMCI»I.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCS/PA:1,[131,10]V2,SESSLI 


SESSLinS      CREATED  BY      MACRO     ON  28-JUN-85    AT    19:59 
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SESSUB  -  Session  control  subrou  :1ACR0  V05.03b  Friday  28-Jun-85  19:59 
Allocate  an  ECL  node  database 


Page  11-1 


SE 
De 


356 

337  000664 

016564 

000012 

000002 

50$: 

MOV 

338  000672 

105264 

000004 

INCB 

339  000676 

126464 

000040 

000004 

CHPB 

340  000704 

103003 

BHIS 

341  000706 

342 

343  000714 

116464 

000004 

000040 

MOVB 

116465 

000005 

000014 

60$: 

MOVB 

344  000722 

005727 

TST 

345  000724 

000261 

100$: 

SEC 

346 

347  000726 

MAPLLT 

348  000734 

010463 

000074 

MOV 

34'5  000740 

RESRG 

350  0G0742 

RETURN 

N$SN0D(R5),E$NN0[)(R4) 

E$NUSE(R4)  ;   Update  usage  cou.it 

E$NML(R4),E$NUSE(R4) 

60$  ;  Check  for  high  water  mark  exceeded 

E$NUSE(R4),E$NHL(R4) 

E$NRTP(R4),N$DLY(R5) 


(PC)t 


R'.,L.CTR(R3) 
<R4> 


Indicate  database  allocated 
Indicate  failed  to  allocate  database 

Recover  mapping  to  LLT 

Set  up  pointer  to  ECL  node  database  for  zero) 
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SESSUB  -  Session  control  subrou 
Deallocate  ECL  node  database 


789 

790 

791 

792 

795 

79^ 

795 

796 

797 

798 

799 

800 

801 

802  001 75A 

803  001756 

016346 

000074 

804  001762 

016303 

000002 

805 

806  001766 

807  001774 

010500 

808  001776 

062700 

000042 

809 

810  002002 

010001 

811  002004 

011000 

812  002006 

001431 

813  002010 

020016 

814  002012 

001373 

815 

816  002014 

020360 

000012 

817  002020 

001003 

818  002022 

012760 

M7777 

819 

820  002030 

105360 

000004 

821  002034 

822 

823  002036 

001016 

012760 

^77777 

824  002044 

005060 

000012 

825  002050 

020065 

000044 

826  002054 

001406 

827 

828  002056 

011011 

829  002060 

005010 

830  002062 

010075 

000044 

831  002066 

010065 

000044 

832 

833  002072 

005726 

834  002074 

835  002076 
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.SBTTL  Deallocate  ECL  node  database 

♦*-DEADB-Deallocate  ECL  node  database 

Deallocate  the  ECL  node  database  for  this  logical  link. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


SE 
Pn 


Registers  modified: 
RO,  R1 


DEADB: 


10$: 


000006 


000006 


20$: 


30$: 


SAVRG 

MOV 

MOV 

MAP 
MOV 
ADO 

MOV 
MOV 
BEQ 
CMP 
BNE 

CMP 
BNE 
MOV 

DECB 
BNE 

MOV 
CLR 
CMP 
BEQ 

MOV 
CLR 
MOV 
MOV 

TST 

RESRG 

RETURN 


<R3> 

L.CTR(R3),-(SP) 
L.LLA(R3),R3 

N$ENC+4(R5) 

R5,R0 

#N$ENC,RO 

R0.R1 

(R0),RO 

30$ 

R0,(SP) 

10$ 

R3,E$NLLA(R0) 

20$ 

*-1,E$STRT(R0) 

E$NUSE(RO) 
30$ 

#-1,E$STRT(R0) 
E$NLLA(RO) 
R0,N$ENCt2(R5) 
30$ 

(R0),tR1) 
(RO) 

R0,aN$ENCt2(R5) 
R0,N$ENCt2(R5) 

(SP)  + 
<R3> 


Get  a  free  register 
!t  address  or 
and  the  LLA 


Get  address  of  counter  block 


Map  to  the  ECL  databases 

Compute  address  of  ECL  database  listhead 


Saue  address  of  previous  block 

Get  next  database 

If  EQ,  no  more 

Is  this  the  one  we're  looking  for? 

If  NE,  no  ...  keep  looking 

Are  we  timing  this  link? 

If  NE,  no 

Stop  the  round  trip  timer 

Reduce  usage  count 

if  NE,  more  active  users 

Stop  the  round  fip  timer 
and  logical  link  address 
Is  this  Block  already  at  the  end  of  the  list? 
If  EQ,  yes 

Unlink  block  from  list 
Clear  out  link  word 
Relink  at  end  of  list 


Clean  up  stack 
Restore  register 
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SE 
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SESSUB  -  Ses5-''on  co^crol. 
Process  iiiage  field 

1272 
1273 
127^; 
1275 
-.276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
128A 
1285 
1286 
1287 
1288 
1289 
1290 

1291  002554  112205 

1292  002556  020105 

1293  002560  103405 
1294 

1295  002562  010520 

1296  002564  001403 

1297  002566  112220 

1298  002570 
1299 
1300  002574 
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.SBTTL  Process  image  field 

♦•-PROIMG-Process  image  field 

Process  an  image  mode  field  from  a  connect  initiate  message. 

Inputs:  ,.   ^,   , 

RO  =  Pointer  into  connect  pending  block 
R1  =  Maximum  length  of  image  field  allowed 
R2  =  Pointer  to  start  of  image  field 

Outputs: 

R2  =  Moved  past  image  field 

'C'  Clear  -  Valid  image  field  processed 

'C  Set   -  Format  error  in  image  field  length 

Registers  modified: 
R1,  R5 


PROIMG:  MOVB 
CMP 
BLO 


10$: 
20$: 


MOV 
BEQ 
MOVB 
SOB 

RETURN 


(R2)t,R5 

R1,R5 

20i 

R5,(R0)<- 
20$ 

(R2)+,(R0)+ 
R5,10$ 


Get  length  of  image  field 

Is  the  field  too  long? 

If  LO,  yes  ...  C-bit  is  set 

Fill  in  byte  count 
If  EO,  null 
Copy  image  field 
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Symbol  table 


ACCLLT= 

AC$DNT= 

AC$X25= 

ADDGNQ 

ADDLNK 

ADDMAl 

ADDOPT 

AESCIR= 

AE$LIN= 

AE$MOD= 

ALLDB 

ALOCB  = 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BRKLNK 

BYTE?  = 

CATS 

CB.ACN 

IB. ACT 

CB.CCB= 

CB.DDM= 

CB.DFM 

CB.OGR 

CB.DLC= 

CB.DL1 

CB.DL2 

CB.DOB 

CB.DR1 

CB.DR2 

CB.DUS 

CB.LGT 

CB.NOD 

CB.OPD 

CB.OPT 

CB.PSL 

CB.PSW 

CB.RD8= 

CB.RQD 

CB.RQI 

CB.SDB= 

CB.SFM 

CB.SGR 

CB.SLI  = 

C8.SL1 

CB.SL2 

CB.SOB 

CB.5R1 

CB.SR2 

CB.SUS 

CB.XLB= 

CCBGT 

CCBRT 

CC.LLC 

CEACC 

CEDIV 


••♦«••  GX 

000002 

000001 

OOOOOORG 

000056RG 

000356RG 

000426RG 

000003 

000001 

000004 

000524RG 

000000 

000000 

000000 

000000 

000744RG 

000050 

000774RG 

000114 

000112 

000002 

000040 

000006 

000010 

000020 

000010 

000014 

000C07 

000012 

000016 

000012 

000156 

000000 

000134 

000136 

000100 

000102 

000004 

000056 

000060 

000010 

000032 

000034 

000100 

000034 

000040 

000033 

000036 

000042 

000036 

000001 

**».»»  G) 


=  000200 

-   ****** 


GX 
GX 


CEMUL  = 

CE.ABO= 

CE.OAO= 

CE.D1S= 

CE.ERR= 

CE.1LN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TI*IO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CL$ASZ= 

CL$DLL= 

CL$ECL= 

CL$LDN= 

CL$MAN= 

CL$MFL= 

CL$PAZ= 

CL$PLH= 

CL$PLL= 

CL$PRT= 

CL$ROU= 

CL$SES= 

CL$SFL= 

CL$SGE= 

CL$SSE= 

CLSTRN= 

CL$TYP= 

CL$XL2= 

CL$XL3= 

CL$X2S= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CMPINT= 

CM.CIR= 

CM.CON= 

CM.FMT= 

CM.HRD= 

CM.L1N= 

CM.LOO= 

CM.XLO= 

CNTRL 

CNVCI 

CPYIM6 


100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

010500 

000500 

000300 

010400 

000000 

000010 

034100 

034000 

000600 

034200 

010000 

000200 

000004 

035000 

035100 

000400 

000001 

013700 

013600 

013500 

0O0001 

000002 

177774 

******  GX 

000002 

000200 

100000 

000002 

000000 

000001 

000004 

001134R 

001152RG 

001662R 


CPVOPT 

001702RG 

C.BUF 

000014 

DSLNAM 

000006 

CP.DCF= 

000040 

C.8UF1 

000014 

DSLNUM 

000014 

CP.HDL= 

000007 

C.8UF2 

000024 

D$LST 

000047 

CP.PS  = 

177400 

C.CNT 

000020 

DSMAXC 

000064 

CP.PSI= 

000200 

C.CNT1 

000020 

DSMAXH 

9825^6 

CP.XCF= 

000100 

C.CNT2 

000030 

DSMAXV 

000070 

CP.2FR= 

000030 

C.FLG 

000022 

D$MLL 

000040 

CSBGT  = 

♦»»»»*  GX 

C.FLG1 

000022 

DSMNOD 

000041 

CSBRT  = 

*»«**♦  GX 

C.FLG2 

000032 

D$NA 

000062 

CS.ABO^ 

000100 

C.FNC 

000010 

OSNBEA 

000056 

CS.BRO= 

000002 

C.LIN 

000006 

DSNBRA 

000054 

CS.BUF= 

000200 

C.LNK 

000000 

D$NEND= 

000054 

CS.CES= 

000002 

C.HOD 

000011 

D$NLN 

SS95^S 

CS.CHN= 

000010 

C.NSP 

000004 

DSNN 

000060 

CS.CMP= 

000200 

C.PRO 

000042 

DSOUTT 

000043 

CS.DCR- 

000400 

C.RSV 

000002 

DSRETF 

000050 

CS.DEFr 

000004 

C.STA 

000007 

DSRNN 

000002 

CS.DE\/= 

000002 

C.STS 

000012 

DSRTMR 

000076 

CS.DIS= 

000040 

C.URM 

177776 

DSSEG 

000036 

CS.ENA= 

000001 

C.XACP 

000004 

D$SER 

000032 

CS.EN8= 

000020 

C.XID 

000035 

DSSQRL 

000052 

CS.ERR= 

100000 

C.XLEN 

000044 

D$$BUG= 

177514 

CS.FTL= 

001000 

C.XPLI 

000040 

D$$ISK= 

000000 

CS.HCR- 

000001 

C.XPT 

000034 

D$$L11= 

000001 

CS.HFE= 

002000 

C.XSVC 

000042 

D$$YNC= 

000000 

CS.LST= 

040000 

C.XTC 

000037 

D$$YNM= 

000000 

CS.MTL= 

004000 

C.X25 

000036 

EF$ACT= 

000001 

CS.RNG= 

000010 

C5TA 

OOOOOORG 

002  ER$A8M= 

000010 

CS.ROV= 

000004 

DEAC8  = 

******  GX 

ER$A80= 

000046 

CS.RSN= 

010000 

DEADB 

001754R 

ER$A8T= 

000011 

CS.SHU= 

000001 

DECPT  = 

******  GX 

ER$ACC= 

000042 

CS.SJD= 

000002 

DL$AST= 

000002 

ER$CDI= 

000052 

CS.STR= 

000004 

DL$HLT= 

000000 

ER$COM= 

000047 

CS.SUC= 

000001 

DL$IST= 

000001 

ER$FMT= 

000005 

CS.TMO= 

020000 

OL$MAI= 

000004 

ER$MLB= 

100006 

CS.XUR= 

000004 

DL$OFF= 

000001 

ER$NNF= 

99S91? 

CTRSES^ 

******  GX 

DL$ON  = 

noooo 

ER$NOD= 

0000C2 

CVADAS 

000104R 

002  DL$RUN= 

vjO003 

ER$NSL= 

000013 

CVT 

000144R 

002  DL$SHU= 

000002 

ERSNSR^ 

000003 

CVTADD 

000210R 

002  DL$SYN= 

000005 

ER$RES= 

000001 

CVTARE 

000202R 

002  DONE 

003506R 

ER$STA= 

000051 

CVT8L 

001144R 

OSTATE 

000760R 

ER$UOB= 

000004 

CVTC 

000030R 

002  DSAMXC 

000072 

EVDSC  = 

******  GX 

CV$MSK= 

000003 

DSAMXH 

000074 

EVLSES= 

******  GX 

CV$31  = 

000001 

DSANN 

000000 

EV$ACF= 

000201 

CV$32  = 

000000 

DSBRPR 

000102 

EV$ADR= 

000420 

CV$40  = 

000002 

DSBRTM 

000100 

EV$ADU= 

000417 

CX.GDQ= 

000001 

DSDELF 

000045 

EV$APL= 

000400 

CX.REM= 

000020 

DSDELW 

000046 

EV$ARC= 

000421 

CX.REQ= 

000002 

D$END  = 

000104 

EV$AUC= 

000010 

CX.RUI= 

000040 

D$FN8 

000034 

EV$AUS= 

000003 

CX.SMC= 

000010 

DSHIOR 

000024 

EV$CDF= 

000520 

CX.UNL= 

000004 

DSHOST 

000022 

EV$COZ= 

000011 

C$$ORE= 

000400 

DSINAC 

000044 

EV$OBR= 

000302 

C$$RSH= 

177564 

DSINCT 

000042 

EV$GAS= 

035101 

C.ADD 

000034 

D$IPL 

000051 

EV$HCE= 

035114 

C.8ID 

000003 

DSLID 

000020 

EV$HC1= 

035115 
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MACRO  NAME 
CALL 


CALLE 
CALLR 
CALLX 

CCBDFS 

CNBDFS 

COUNTS 

CTRDFS 

DHBDFS 

ECDDBS 

EVLDFS 

EVT$ 

LLTOF$ 

LLWDFS 

MAP 

MAPLLT 
MBXDFS 
MSGDFS 
NSSYM$ 
OBJDFS 
RECMAP 
RESMAP 
RESRG 


RETURN 


RNBDFI 
SAVMAP 
SAVRG 


SLIDFf 
SOB 


REFERENCES 

8-136 

17-646 

21-873 

35-1391 

41-1637 

*6-44 
12-368 

#6-44 

#40-1602 

#6-46 

#6-47 

#6-44 

#6-46 

#6-48 

#6-46 

#6-46 

#6-44 

#6-46 

#6-47 

#6-44 
35-1387 

#6-45 

#6-46 

#6-47 

#6-47 

#6-47 

#6-45 

#6-45 

#6-44 
17-628 
36-1457 
7-96 
17-722 
31-1270 
41-1648 

#6-47 

#6-45 

#6-44 
17-625 
37-1483 

#6-48 
8-123 


8-167 

17-661 

22-907 

35-1409 

41-1645 

9-238 

23-962 

8-131 

40-1602 

6-50 

6-56 

8-206 

6-53 

6-63 

6-51 

6-54 

11-326 

6-55 

6-58 

10-259 

42-1711 

10-259 

6-52 

6-59 

6-61 

6-60 

17-660 

17-720 

8-190 

17-721 

37-1488 

8-191 

20-835 

32-1300 

42-1712 

6-57 

17-609 

8-115 

19-772 

38-1505 

6-62 

8-156 


13-399 

17-667 

23-952 

35-1418 

42-1709 

34-1365 

24-1005 

8-198 


10-263 


10-266 
11-347 


21-851 

21-853 

8-208 

19-785 

38-1535 

8-209 

21-854 

33-1345 


21-850 
9-224 
20-802 
40-1583 

11-331 


00          PAGE 

10 

CREF 

04.00 

13-401 
17-672 
27-1105 
36-1455 

13-403 
17-716 
27-1111 
37-1486 

14-432 
17-718 
29-1190 
37-1487 

15-490 
18-752 
30-1215 
38-1527 

16-565 
21-852 
33-1344 
38-1533 

17-621 
21-861 
34-1366 
40-1613 

35-1404 
24-1014 
#9-238 

40-1602 
9-238 

#34-1365 

34-1365 

#35-1404 

35-1404 

SES 
Ses 


17-706 


11-298 
19-786 


23-951 

23-956 

9-240 

20-834 

40-1617 

9-241 

21-876 

34-1370 


23-929 
10-258 
21-857 
42-1698 

15-497 


11-347 
35-1387 


30-1237 

10-276 

21-875 

42-1710 

10-277 

22-910 

35-1435 


30-1211 

11-297 

23-928 


17-638 


17-664 
42-1711 


34-1368 

11-349 

23-953 

11-350 
23-958 
36-1458 


34-1363 

15-465 

23-949 


19-783 


19-780 


19-786 


20-806 


15-473 
23-957 

13-408 

26-1076 

37-1489 


15-476 
26-1063 


32-1298 


15-498 
26-1075 

14-449 

28-1157 

38-1536 


16-528 
33-1338 


33-1341 


16-567 
33-1342 

15-474 

29-1191 

39-1560 


16-561 
34-1362 


39-1558 


17-627 
21-867 
34-1367 
41-1634 


35-1425 


27-1108 


16-576 
34-1369 

16-577 

30-1238 

40-1618 


17-608 
36-1446 


•F1LE»*ID««SESTCB 
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SES^IM  -  Session  control  timer 
Session  control  timer  support 


55 

5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 

66  000000 

67  000004 

68  000010 
69 

70  000012 


F  16 
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.SBTTL  Session  control  timer  support 

»«-SESTlM-Session  control  timer  support 

This  routine  is  called  to  provide  timer  support  for  logical  links 
in  the  connect  and  disconnect  states. 


71  OOOOU 

72  000016 
73 

7A  000026 
75 

76  000030 

77  000034 

78  000036 
79 

80  000044 


000050 
000052 

83  000056 

84  000062 
85 

86  000066 

87  000072 
88 

89 
90 
91 
92 

93  000074 

94  000076 

95  000100 

96  000102 

97  000104 
98 

99 
100 
101 
102 
103 
104 

105  000106 
106 
107 


016501  000036 

016502  000040 
005722 

012203 
001424 


111300 

020027  000010 

001414 

152765  000200 


010302 

062702  000054 


Inputs 


R5  =  Address  of  database  descriptor 


Registers  modified: 

RO,  R1,  R2,  R3, 


R4 


SESnW:  :M0V 
MOV 

Tsr 


10$: 


000005 


MOV 
BEQ 
CALLE 

M0V8 

CMP 
BEQ 
81 S8 

SAVRG 

MOV 

ADD 

CALL 

RESRG 


N$LVC(R5),R1 
N$LVC+2(R5),R2 
CR2)  + 

(R2J+,R3 

20$ 

ACCLLT 

(fi3),R0 

RO,#ST$DAT 

20$  ; 

#NF$nM,N$FLG(R5) 

<R1,R2> 

R3,R2 

*L.TMRD,R2 

aTIMDSP-2(R0) 

<R2,R1> 


20$:    SOS 
TIMNOP:  RETURN 


R1,10$ 
Timer  support  dispatch  ;able 


000110' 
000122' 
000160' 
000103' 
000176" 


000072' 


TIMDSP: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TIMCIS 

TIMCC 

TIMCIR 

.+1 

TIMDIP 


Get  #  of  LLT's  to  scan 

Get  pointer  to  logical  link  table 

Skip  ouer  first  entry 

Get  address  of  next  LLT 
If  EQ,  none  present 
Gain  access  to  this  LLT 

Get  the  logical  link  state 

Is  it  in  normal  data  transfer  state? 
If  EQ,  yes  ...  ECL  handles  timing 
;  Make  sure  timer  is  still  running 

Saue  scan  variables 

Compute  address  of  data  subchannel  timer 

Dispatch  to  timer  processing  routine 
Recover  scan  variables 

Scan  all  logical  links 


CI  sent 

Received  CI,  CC  sent 

Received  CI 

Normal  data  transfer 

Disconnect  in  progress 


.If  DF  N$$SLI 
.WORD   SLIDCT 


.IFF 

.WORD 

.ENDC 


TIMNOP 


Disconnect  pending  (SLI) 


Disconnect  pending 
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ACPIDL 

AUXTSK 

A$SCHK= 

A$$CPS= 

A$SPRI= 

A$tTRP= 

C8.CCB= 

CB.DDM^ 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.Sl  1  = 

CB.XLB- 

CCBDSP 

CCBRT  = 

Cr.LLC= 

CE.ABO= 

CE.DAO- 

CE.DU  = 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP^ 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SVN= 

CF.TRN= 

CL$MFL= 

CLSSFL= 

CL$TyP= 

CL.MU1= 

CL.MU2 

CL.RES 

CMPDV 

CM.CIR 

CM. CON 

CM.FMT 

CM.HRD 

CM. LIN 

CM. LOO 

CM.XLO 

rP.DCF 

CP.HDL 

CP.PS 

CP.PSI 

CP.XCF 


OOOOOORG 
0001 6AR 
000000 
000000 
000000 
000000 
000002 
000040 
000020 
C00004 
000010 
000100 
000001 
OOOOOOR 
*»«*♦«  GX 
000200 
100362 
100346 
100366 
100370 
100350 
100356 
100372 
100361 
100376 
100364 
100352 
100354 
100374 
100344 
000001 
000004 
000020 
100000 
000002 
000010 
000040 
000100 
000010 
000004 
OOOOOi 
000001 
00000? 
177774 
=  »♦♦*««  GX 
000002 
000200 
100000 
000002 
000000 
000001 
000004 
000040 
000007 
177400 
000200 
000100 


002 


002 


CP.2FR= 
CS.ABO= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.D1S= 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.ROV= 
CS.RSN= 
CS.SHU= 
CS.S1D= 
CS.STR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 
CV$MSK= 
CV$31  = 
CV$32  = 
CV$40  = 
CX.GDQ= 
CX.REM= 
CX.REQ= 
CX.RUI= 
CX.SMC= 
CX.UNL= 
C$$ORE= 
C$$RSH= 
C.ADD 


.BID 
,BUF 
.BUFl 
.BUF2 
•  CNT 
.CNT1 
CNT2 


C.FLG 


_FLG1 
C.FLG2 
C.FNC 
C.LIN 
C.LNX 
C.MOD 
C.NSP 
C.PRO 


000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000003 

000001 

000000 

000002 

000001 

000020 

000002 

000040 

000010 

000004 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

00C032 

000010 

000006 

000000 

000011 

000004 

000042 


C.RSV 

000002 

C.STA 

000007 

C.STS 

000012 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLI 

000^)40 

C.XPT 

000034 

C.XSVC 

000042 

C.XTC 

000037 

C.X25 

000036 

DECPT  = 

»«♦»»»  GX 

DSAMXC 

000072 

DSAMXH 

000074 

DSANN 

000000 

DSBRPR 

000102 

DSBRTM 

000100 

OSDELF 

000045 

DSDELW 

000046 

D$END  = 

000104 

D$FNB 

000034 

DSHIOR 

000024 

DSHOST 

000022 

DSINAC 

000044 

DSINCT 

000042 

DSIPL 

000051 

DSLID 

000020 

DSLNAM 

000006 

DSLNUM 

000014 

D$LST 

000047 

DSMAXC 

000064 

DSMAXH 

000066 

DSMAXV 

000070 

DSMLL 

000040 

DSMNOD 

000041 

D$NA 

000062 

DSNBEA 

000056 

DSNBRA 

0C0054 

D$NEND= 

000054 

D$NLN 

000030 

D$NN 

000060 

DSOUTT 

000043 

D$RETF 

000050 

DSRNN 

000002 

DSRTMR 

000076 

DSSEG 

000036 

0$SER 

000032 

DSSQRL 

000052 

D$$BUG= 

177514 

D$$ISK= 

000000 

D$$L11= 

000001 

D$$YNC= 

000000 

D$$YNM= 

000000 

ER$ABM= 

000010 

ER$A80= 

000046 

ER$AeT= 

000011 

ER$ACC= 
ER$CDI= 
ER$C0M= 
ER$FMT= 
ER$MLB= 
ER$NNF= 
ER$NOD= 
ER$NSL= 
ER$NSR= 
ER$RES= 
ER$STA= 
ER$U0B= 
E$$XPR= 
FC.CCP= 
FC.CTL= 
FC.KCP= 
FC.KIL= 
FC.MAN= 
FC.MLD= 
FC.PCT= 
FC.PWR= 
FC.RCE--- 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FS.AST= 
FS.CIB= 
FS.CRA= 
FS.DIS= 
FS.DVC= 
FS.ENB= 
FS.EXI= 
FS.GET= 
FS.HLT= 
FS.INI= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SF5= 
FS.SPW= 
FS.STM: 
FS.STP= 
FS.STR= 
FS.TRM= 


000042 
000052 
000047 
000005 
000006 
000012 
000002 
000013 
000003 
000001 
000051 
000004 
000000 
000020 
000006 
C00016 
000004 
000024 
000026 
000030 
000022 
000002 
000014 
000010 
000012 
000000 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 


FS.WL8= 

FS.XKL= 

FS.XOF= 

FS.X0N= 

FS.ZER= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

GI$WRD= 

IN.DAT= 

IN.ILS= 

lODUN 

I0DUN1 

lOERR 

lOFIN  = 

lOSUC 

IS.SUC= 

I$$RAR= 

I$$RDN= 

I.FCN  = 

I.LN2  = 

I.PRM  = 

I.TCB  = 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LA.ACK= 

LA.CRS= 

LA.MSK= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.WND= 

LD$LP  = 

LF.DRD= 

LF.FRC=: 

LF.HFO= 

LF.HMF= 

LF.HSF= 

LF.IRD= 

LF.MMF= 

LF.MSF= 

LS.DLS= 

LS.FCC= 

LS.FCO- 

LS.FCl 

LS.ILj 

LS.MAK= 

LS.MNK= 

LS.RES= 

LS.RSV= 

LT.CCA= 

LT.DIR= 

LT.LCL= 


001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

000400 

000001 

000466RG 

000464RG 

000454RG 

«***♦»  GX 

000460R6 
»»****  GX 
000000 
000000 


****** 
****** 


177546 
177546 
000000 
000074 
100000 
020000 
170000 
110000 
010000 
040000 
004000 
000000 
000004 
000001 
000010 
000040 
000020 
000002 
000200 
000100 
100000 
000004 
000001 
000002 
100000 
000020 
000040 
000360 
000300 
000020 
000010 
000001 


GX 
GX 
GX 
GX 
GX 
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Deallocate  session  control  databases 


178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 

190  000362 

191  000366 

192  000370 

193  00037A  _  _ 

194  000400  005201 

195  000402  006301 

196  000404 
197 

198  000410 

199 

200        000001 


016500  0Q00<.0 
001410 


.SBTTL  Deallocate  session  control  databases 
•*-DEALDB-Deallocate  session  control  databases 

Deallocate  those  session  control  databases  which  have  been  allocated. 


Inputs: 
R5 


Registers  modified: 
RO,  R1,  R2,  R3 


Address  of  database  descriptor 
R4 


005065 
016501 


000040 
000036 


DEALDB::M0V 
BEQ 
CLR 
MOV 
INC 
ASL 
CALL 


10$: 


RETURM 
.END 


N$LVCt2(R5),R0 

10$ 

N$LVC+2(R5) 

N$LVC(R5),R1 

R1 

R1 

aDEACS 


Get  address  of  LLT  table 

If  EQ,  none  allocated  yet 

Clear  out  allocation 

Get  max  #  of  logical  links  allowed 

Compute  H   of  bytes  to  deallocate 

Deallocate  the  block 
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9 

10 

n 

12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESMN  -  Session  control  main  logic 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibi  lit);  for  the  use  or  rsliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  mail.  lOgic 

Ident  history: 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CREF       OA.OO 


SI 

Pi 


SYMBOL 

VALUE 

REFERENCES 

TK^CB 

- 

****** 

GX 

8-123 

US.MDM 

_; 

****** 

GX 

8-109 

US.MNT 

:i 

****** 

GX 

8-110 

US.OFL 

r: 

****** 

(iX 

8-111 

U.ACP 

= 

****** 

GX 

•8-112 

U.STS 

- 

****** 

GX 

♦8-109 

♦8-110 

U.ST2 

- 

****** 

GX 

*8-111 

UORDl 

- 

000200 

#8-118 

8-118 

#8-121 

W0RD2 

~ 

000000 

#8-118 

8-118 

#8-121 

SCALLX 

- 

****** 

GX 

8-103 

8-114 

$DSU 

- 

****** 

GX 

9-1A4 

SSESDB 

- 

****** 

GX 

8-92 

SSESON 

000000 

RG 

#8-76 

10-164 

$UCB 

= 

****** 

GX 

8-108 

SXPTDC 

- 

****** 

GX 

8-1U 

SXPTDS 

:: 

*♦*',** 

GX 

8-103 

SXQTDR 

000240 

RG 

8-89 

8-90 

#9-141 

$$$GLB 

r: 

****** 

10-155 

lC-156 

$$ST1 

= 

000006 

#10-155 

10-155 

10-15 

-121 
-121 


9-147 
10-155 


#10-156 


10-156 


10-156 


10-156 
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351 
352 
353 
35A 
355 
356 
357 
358 
359 
360 
361 

362  001022 

363  001026 
364 

365  001032 

366  001036 
367 

368  001040 

369  001050 
370 
~"  001052 
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.S8TTL  Process  received  DI  message 

**-RCVDI-Process  received  01  message 

This  routine  processes  received  DI  messages. 

Inputs:  

R2  =  Pointer  to  field  following  source  link  address 

R4  =  Address  of  fCB 

R5  =  Address  of  database  descriptor 


112267  OOOOOOG 
112267  000001G 


103450 
103443 


RCVDI: 


371 
372 

373  001056 

374  001064 

375  001072 

376  001076 
377 

378 

379  001100 

380  001106 

381  001114 

382  001122 
383 

384 


FNDLLT 
100$ 

SAVOPT 


016763  OOOOOOG 

012765  000052 

121327  000006 
001430 


000100 
000022 


016767  OOOOOOG  OOOOOOG 


Move 

MOVB 

CALL 
BCS 

CALLE 
BCS 

CALL 

MOV 
MOV 
CMPB 
BEQ 

.IF  DF 

MOV 

COUNT$  E$N6R 

COUNT$  E$NMR 

COUNT$  E$NMS 

.ENDC 


(R2)+,$REASN 
(R2)+,$REASN+1 

GETOPT 
100$ 


Get  reason  code  from  message 


;  Get  optional  data  from  message 

;  If  CS,  format  error 

;  Fi:id  LLT  associated  with  this  link 

;  If  CS,  not  match  ...  toss  the  message 


Save  optional  data  in  LLT 


$REASN,L.DCR(R3) ;  Save  reason  for  disconnect 

#ER$CDI,N$ERRC(R5) 

(R3),#ST$CIR    ;  Does  the  user  have  the  connect? 

100$         ;  If  EQ,  yes  ...  toss  message  for  now 


N$$NCT 
$OPLNG,$BYTE 


385  001130 

012702 

001160' 

MOV 

386  001134 

CALL 

387 

388  001140 

016704 

OOOOOOG 

MOV 

339  001144 

CALLE 

390  001154 

391 

392  001160 

005067 

OOOOOOG 

CLR 

100$:    RETURN 

393 

394 

;  + 

395 

;  Received  DI 

396 

;- 

397 

398  001162 

002 

000 

DISTA:   .BYTE 

399  001164 

012 

000 

.BYTE 

400  001166 

377 

377 

.BYTE 

401  001170 

006 

000 

.BYTE 

402  001172 

377 

377 

.BYTE 

403  001174 

004 

000 

.BYTE 

#DISTA-2,R2 
KILLNK 

$RCC8,R4 

SENDDC 

$RCC8 


US$CNF,NS$DON 
US$EAC,NS$D0N 

US$DIS,NS$DON 

US$DSC,NS$DON 


Count  bytes  received  for  DI  message 

Count  message  received  (DI) 
Count  message  sent  (DC) 


Point  to  substate  table 
Kill  the  logical  link 

Re-use  DI  buffer 
Send  DC  response 
No  CC8  available  now 


CI  sent 

Received  CI,  sent  CC 

Received  CI 

Normal  data  transfer 

Disconnect  in  progress 

Disconnect  pending 
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SYMBOL   CROSS   REFERENCE 


G     6 

PAGE   3 

CREF       OA.OO 


SES 
Dis 


SYMBOL      VALUE 


REFERENCES 


11-343 

^ROCON 

001352 

^ 

9-200 

KPTBL 

000004 

i 

7-70 

KVCC 

000552 

^ 

8-129 

KVCI 

000120 

^ 

8-128 

RCVCTL 

000000 

^ 

7-76 

<CVDC 

001176 

^ 

8-131 

KWl 

001022 

^ 

8-130 

KVRCI 

000450 

R 

9-152 

^CVTBL 

000100 

^ 

8-114 

^EMLN< 

~      ****** 

GX 

9-233 

RF.RTS 

=  000020 

9-151 

^LSCI 

=  ****** 

GX 

9-222 

RSNDDl 

001654 

RG 

*17-593 

RTRANS 

001672 

RG 

17-594 

SAVOPT 

::     ****** 

GX 

12-371 

SENDDC 

-     ****** 

GX 

9-237 

SENDDI 

001552 

RG 

9-229 

SNSESD 

=   ****** 

GX 

16-569 

STOPCC 

-   ****** 

GX 

16-557 

STOPCI 

=   ****** 

GX 

11-320 

STSCIR 

=  000006 

9-204 

STSCIS 

=  000002 

10-267 

STSDAT 

=  000010 

11-333 

STSDIP 

=  000012 

9-227 

TSFLAG 

000044 

*6-51 

TSLIF 

000013 

#6-51 

TSLIFL 

000013 

#6-51 

TSLIFO 

000013 

#6-51 

TSLIFS 

000013 

#6-51 

TSLIN 

000000 

#6-51 

TSLIPS 

000006 

#6-51 

r$LLD 

000012 

#6-51 

TSLLDC 

000045 

#6-51 

TSLLDL 

000012 

#6-51 

TSLLDO 

000012 

#6-51 

TSLLDS 

000012 

#6-51 

TSLLEN 

000046 

#6-51 

TSLOPR 

000002 

#6-51 

TSLTCL 

000024 

#6-51 

TSLTIM 

000026 

#6-51 

T$LTPR 

000014 

#6-51 

TSLTPS 

000020 

#6-51 

TSNAPL 

000004 

#6-51 

TSNFE 

000000 

#6-51 

T$NLE-\ 

000010 

#6-51 

TSNNUL 

000002 

#6-51 

TSNOPL 

000006 

#6-51 

TSNRNI 

000042 

#6-51 

r$NRPL 

000005 

#6-51 

TSNRUL 

000007 

#6-51 

TSNVR 

000001 

#6-51 

11-347 
11-318 
#7-76 
#11-286 
8-133 
#8-100 
#13-416 
#12-362 
#10-254 
#8-127 


#18-612 

12-389 

#16-557 

18-624 


12-375 
11-305 
11-339 


12-368 
#15-498 


#9-149 


12-389 


13-419 


16-557 


16-569 


18-621 


18-624 


13-431 
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SESQIO  -  Session  control  QIO  co 
Disconnect  completion 


269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

28A 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

500 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 
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.SBTTL  Disconnect  completion 
♦  ♦-D I SCMP-D is  connect  completion 


SES 

Mac 


000520 


000520 

000522  016403  000012 

000526 

000532  016303  000004 

000536 

000546  112763  000000  000036 

000554  016746  OOOOOOG 

000560 

000564 

000570  012667  OOOOOOG 

000574 


The  user  has  seen  a  disconnect/abort  notice  or  it  has  been  flushed 
from  the  user's  mailbox. 


Inputs: 


R4 
R5 


Address  of  fCB 

Address  of  database  descriptor 


Registers  modified: 
RO,  R1,  R2 


DISCMP: 


000576 


000001 


:.IF  DF 

SAVMAP 

.ENDC 

SAVRG 

MOV 

CALL 

MOV 

CALLE 

M0V8 

MOV 

CALL 

CALL 

MOV 

RESRG 

.IF  DF 

RESMAP 

.ENDC 

RETURN 

.END 


R$$MPL 


Saue  current  mapping 


Get  a  free  register 

Recover  address  of  window  block 

Release  the  CCB 

Get  address  of  LLT 

Gain  access  to  the  LLT 


<R3> 

C.STS(R4),R3 

aCCBRT 

W.LLT(R3),R3 

ACCLLT 

*US$D0N,L.USTA(R3) 

$IOPKT,-(SP)    ;  Save  any  I/O  packet 

RMVLNK         ;  Release  the  window  block  resources 

lOSUC         ;  Complete  any  I/O 

(SP)+,$IOPKT    ;  Restore  any  I/O  packet 

<fi3>  ;  Restore  register 

R$$MPL 

;  Restore  mapping 


SESQIO 
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SESSLI  -  Sess 
Macro  defim't 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 
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ions 


SES 
Mac 


.SBTTL  System  level  interface  request  -  receive  enable 
♦♦-.SERCE-System  level  interface  request  -  receive  enable 


This  routine  processes  a  single  request,  for  system  level  interface 
service  via  tne  receive  enable  entry  point. 


Inputs: 

R3  =  Subfunction  code 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

'.SERCE:  :CALLR   aRCETBL(R3)     ;  Dispatch  to  processing  routine 
Receive  enable  dispatch  table 


RCET8L:  .WORD 
.UORD 
.WORD 
.WORD 


SLJCRA 
.+1 
.t1 
.+1 


;  Connect  received  acknowledgement 

;  Return  data  segment 

;  Return  interrupt  message 

;  Disconnect  received  acRnowlegement 
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Macro  definitions 


588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
60C 
601 
602 
603 
604 
605 
606 
607 
608 


.SBTTL  Find  node  mapping  by  name 

**-FNDNAM-Find  node  mapping  by  name 

Scan  the  remote  name  table  for  a  match  with  the  specified  node  name. 

Inputs: 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Valid  node  name  mapping  found 

'C  Set   -  Unable  to  find  a  node  name  mapp-'ng 

Registers  modified: 
RO,  R2,  R3 

FNDNAM:  M0V8  #LT.SLI ,$LTYPE  ;  Indicate  SLI  style  alias  mapping 

CALL  MAPNAM         ;  Map  node  name  to  node  address 

BCS  100$  ;  If  CS,  no  mapping  found 

MOV  N$SM0D(R5),$U0RK;  Fill  in  remote  node  address 

100$:    RETURN 
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SESSLIIIS     CREATED  BY     MACRO     ON  28-JUN-85   AT   19:59 
SYMBOL    CROSS   REFERENCE 


G  10 

PAGE   1 

CREf       04.00 


S^ 

br 


SYMBOL      VALUE 


REFERENCES 


I$$AS 

=      *t1t*** 

6-51 

>i$tEVL 

=  000001 

#4-2 

«$SES 

=  000001 

"^-11 

*I$$SLI 

r     ****** 

7-59 

?F.LOO 

=  100000 

#6-54 

n$11D 

zz     ****** 

6-51 

R$$11M 

=  000000 

6-51 

?$$11S 

■-  000000 

6-51 

?.ADD 

000010 

#6-54 

R.FLAG 

000012 

#6-54 

^.LEN 

oooou 

ttb-Si, 

R.LNK 

000000 

#6-54 

R.NAM 

000002 

#6-54 

X$$MCB 

=   ****** 

6-51 

ZF.COU 

=  001000 

#6-51 

ZF.DDM 

=  000001 

#6-51 

ZF.DIA 

=  004000 

#6-51 

2F.DLC 

=  000002 

#6-51 

ZF.DVP 

=   100000 

#6-51 

ZF.INI 

=  040000 

#6-5' 

ZF.KMX 

=  000020 

#6-5 

ZF.LLC 

=  000004 

#6-51 

ZF.LMC 

=  000100 

#6-51 

ZF.MAN 

=  020000 

#6-;i 

ZF.MFL 

=  000010 

#6-51 

ZF.MTM 

=  000400 

#6-51 

ZF.MUX 

=  000040 

#6-51 

ZF.PSE 

=  002000 

#6-51 

ZF.SL! 

=  010000 

#6-51 

ZF.TIM 

=  000200 

#6-51 

ZF.X3P 

=  000000 

#6-51 

ZS.ASN 

=  100000 

#6-51 

ZS.BSY 

=   140000 

#6-51 

Z.AVL 

000014 

#6-51 

Z.DAT 

000016 

#0-51 

Z.DSP 

000000 

#6-51 

Z.FLG 

000010 

#6-51 

Z.LEN 

=  000016 

#6-51 

Z.LLN 

000006 

#6-51 

Z.MAP 

000020 

#6-51 

Z.NAM 

000004 

#6-51 

Z.PCB 

000012 

#6-51 

Z.SCH 

000007 

#6-51 

6-51 


6-51 
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S'L;SUB  -  Session  control  subrou  MACRO 
Break  the  logical  link 

352 
353 
35A 
355 
356 
357 
358 
359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
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.SBTTL  Break  the  logical  link 

**-BRKLNK-Break  the  logical  link 

This  routine  is  called  to  destroy  a  logical  in  any  state. 

Inputs: 

R1  =  Disconnect  reason  code 
R3  =  Virtual  address  of  LLT 
R5  =  Address  of  database  descriptor 


SE 
Fl 


00074A  010163  000100 
000750  012702  000756' 
000754 


Registers  modified: 
RO,  R1,  R2,  RA 


BRKLNK::MOV 
MOV 
CALLR 


R1,L.DCR(R3> 
#DSTATE-2,R2 
KILLNK 


Set  up  disconnect  reason  code 
Point  to  disconnect  substate  table 
Disconnect  the  link 


000760 
000762 
000764 
000766 
000770 
000772 


002 
006 
000 
006 
377 
004 


000 
002 
002 
002 
377 
002 


User  and  network  substate  table 


DSTATE: 


.BYTE 

USSCNF 

NSSDON 

;  Connect  initiate  sent 

.BYTE 

USSDIS 

NSSSDl 

;  Received  CI,  sent  CC 

.BYTE 

USSDON 

NSSSDI 

;  Received  CI 

.BYTE 

US$D  S 

NSSSDl 

;  Normal  data  transfer 

.BYTE 

-1,-- 

;  Disconnect  in  progress 

.BYTE 

USSDSC 

NSSSDl 

;  Disconnect  pending 
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Flush  I/O  packets  from  a  window  block 


SE 

Pr 


837 
838 
839 
840 
8A1 
842 
843 
844 
845 
846 
847 
848 
849 

850  002100 

851  002104 

852  002112 

853  002116 

854  002122 
855 

856  000222 

857  000222 

858  000224 

859  000230 

860  000232 

861  000236 

862  000242 
863 

864  000244 

865  000250 

866  000252 

867  000256 

868  000262 
869 

870  000264 

871  000270 

872  000272 

873  000276 


874 
875 


000302 


876  000304 


.SBTTL  Flush  1/0  packets  from  a  window  block 

•*-FLSHI0-Flush  I/O  packets  from  a  window  block 

Flush  any  transmit  or  receiue  I/O  packets  from  the  window  block. 

Inputs: 

R4  =  Address  of  window  block 

R5  =  Address  of  database  descripto'- 

Registers  modified: 
RO,  R1,  R2,  R3 


016403 
0''1405 
0.5064 

011604 

016403 
001405 
005064 

011604 

016403 
001404 
005064 


000016 
000016 

000024 
000024 

000022 
000022 


FLSHIO: 

:SAVMAP 

RECMAP 

CALL 

RESMAP 

RETURN 

.PSECT 

FLSHI: 

SAVRG 

MOV 

BEQ 

CLR 

CALL 

MOV 

10$: 

MOV 

BEQ 

CLR 

CALL 

MOV 

20$: 

MOV 

BEQ 

CLR 

CALL 

30$: 


RESRG 
RETURN 


FLSHI 


SHIGH 

<R4> 

W.SNDQ(R4),R5 

10$ 

U.SNDQ(R4) 

FLSHRQ 

(SP),R4 

W.fiCVQ(R4),R3 

20$ 

W.RCVQ(R4) 

FLSHRQ 

(SP),R4 

W.CINT(R4),R3 
30$ 

W.CJNT(R4) 
FLSHRQ 

<R4> 


;  Save  current  mapping 

;  Recover  user  apr6  mapping 

;  Call  routine  in  psect  $HIGH 

;  Restore  previous  mapping 


Save  address  of  window  block 
Get  pending  transmit  queue 
If  EQ,  no  pending  requests 
Clear  out  pending  queue 
Flush  all  requests 
Recover  window  block  address 

Get  pending  receive  queue 
If  EQ,  no  pending  requests 
Clear  out  pending  queue 
Flush  all  requests 
Recover  window  block  address 

Get  interrupt  message  transmit 
If  EQ,  no  pending  request 
Clear  out  pending  queue 
Flush  all  requests 

Restore  wndow  block  address 
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Process  descriptor  name 


1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

133? 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 


002576 
002600 
002602 
002604 

002610 
002614 
002616 
002620 
002622 

002624 
002626 
002630 
002632 
002634 

002640 
002644 
002646 
002652 
002656 

002662 
002666 


112205 
110520 
112220 
012701  000020 

022705  000002 

103424 

005305 

100422 

001406 

112220 
112220 
112220 
112220 
162701   000004 


005720 

112720  000040 


.SBTTL  Process  descriptor  name 

h 

»*-PRONAI*l-Process  descriptor  name 

Process  the  source  or  destination  descriptor  from  the  connect 
initiate  message. 

Inputs:  ,  J.   u,  , 

RO  =  Pointer  into  connect  pending  block 
R2  =  Pointer  to  start  of  name  descriptor  in  message 

Outputs: 

R2  =  Moued  past  name  descriptor 

'C  Clear  -  Valid  name  descriptor  processed 

'C  Set   -  Format  error  in  name  descriptor 

Registers  modified: 
Rl,  R5 


PRONAM:  MOVB 

Mova 

MOVB 
MOV 

CMP 
BLO 
DEC 
BMI 
BEQ 

MOVB 
MOVB 
MOVB 
MOVB 
SUB 


10$: 
20$: 

30$: 


5AVRG 

TST 

MOVB 

SOB 

RESRG 

CALL 
RETURN 


(R2)t,R5 
R5,(R0)t 
(R2)+,(R0)t 
#16.,R1 

#2,R5 
30i 

§0$ 

10$ 

(R2)+,(R0)t 
(R2)+,(R0)t 
(R2)+,(R0)+ 
(R2)+,(R0)+ 
#4,R1 

<R0,R1> 
(R0)  + 
#•  ,(RO)t 
Rl  J0$ 
<R1,R0> 

PROIMG 


Get  the  format  type  code 
and  into  pending  connect  block 
Store  object  type  in  pending  connect  block 
Set  max  field  length 

Valid  format  type? 

If  LO,  no  ...  C-bit  set 

Format  type  0? 

If  MI,  yes  ...  all  done 

If  EQ,  type  1  ...  just  move  the  data 

Copy  group  code 

Copy  user  code 

Reduce  maximum  field  size 

Save  registers 

Skip  count  field 

Fill  field  with  spaces 

Restore  registers 

Process  image  field 
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Symbol  table 


EVtHFE= 

EV$1FL= 

EV$IFO= 

EV$IFS= 

EV$1NF= 

EV$LDL= 

E\/$LDN= 

EVSLDO= 

EV$LDS= 

EV$LSC= 

EV$LUP= 

EV$NOL= 

EV$NRC= 

EViNSC= 

EV$NUL= 

EVSNVR= 

EV$OPL= 

EV$PCC= 

EV$PCI= 

E\/$PCM= 

EV$PFE= 

EV$PPC= 

EV$RCF= 

EV$RDC= 

EV$RDR= 

EV$RJE= 

EV$RSC= 

EVSRUL= 

E\/$SNA= 

EV$SNF= 

EV$SPE= 

EV$XCE= 

EV$XDI= 

EVtXGU= 

EV$XMX= 

EV$XRS= 

EV$XSC= 

EV$X2S= 

EV.CCB= 

EV.CIR= 

EV.LCB= 

EV.LIN= 

EV.MAP= 

EV.MOD= 

EV.NOD= 

EV.PRT= 

ESDATA 

ESEVTS 

ESLCN 

ESLIN 

ESMOD 

ESNBR 

E$NBS 

ESNCR 

E$NC5 

E$MC 

ESNLEN 


000506 

000413 

000A15 

OOOAH 

000515 

000407 

010A16 

000A11 

000410 

000500 

000412 

000402 

000416 

000200 

000401 

000406 

000403 

034000 

034001 

034002 

000404 

034003 

000517 

010001 

010002 

035106 

000501 

000405 

035000 

000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 

000100 

000004 

000002 

000040 

000010 

000200 

000020 

000000 

000016 

000000 

000012 

000014 

000020 

00003- 

000036 

000044 

000050 


ESNLLA 

000012 

FR$CDF= 

000002 

IN.ILS= 

000001 

L.ILSQ 

000052 

ESNLNK 

000000 

FR$DAO= 

000011 

lOFIN  = 

»**«♦*  GX 

L.ILTT 

000066 

ESNML 

000040 

FR$EXC= 

000000 

lOREDO 

000452RG 

002  L.LDA 

000032 

E$NMR 

000024 

FR$FRM= 

000010 

I$$RAR= 

000000 

L.LIA 

8892^^ 

ESNMS 

000030 

FR$FTL= 

000005 

I$$RDN= 

000000 

L.LLA 

000002 

ESNNOD 

000002 

rR$OPN= 

000004 

I.PRM  = 

******  GX 

L.LNG 

000124 

E$NOD 

000010 

FR$RFD= 

000006 

.TCB  = 

******  GX 

L.LNO 

000026 

E$NRT 

000042 

FR$SBU= 

000012 

KJLLNK 

002364RG 

L.LPT 

000065 

ESNRTP 

000005 

FR$SHO= 

000003 

KISAR6= 

******  GX 

L.LSA 

000030 

FSNSEG 

000010 

FR$UBU= 

000013 

KSAR6  = 

******  GX 

L.LSFD 

000046 

ESNTIM 

000046 

FR$UPT= 

000014 

K$$CNT= 

177546 

L.LSFI 

000044 

ESNUSE 

000004 

FS.AST= 

000000 

K$$CSR= 

177546 

L.LTT 

000062 

ESPORT 

000014 

FS.C1B= 

002000 

K$$LDC= 

000000 

L.MASQ 

000070 

ESPRM 

000002 

FS.CRA= 

001000 

K$$TPS= 

000074 

L.MAST 

000073 

ESSTAT 

000006 

FS.DJS= 

013000 

LA.ACK= 

100000 

L.MASZ 

000072 

ESSTRT 

000006 

FS.DVC= 

001000 

LA.CRS= 

020000 

L.NIN 

000020 

E$TC8 

000004 

FS.ENB= 

012000 

LA.MSK= 

170000 

L.NXN 

000016 

E$$XPR= 

000000 

FS.EXI= 

001000 

LA.NAK= 

110000 

L.NXIH 

000010 

E.CTL 

000020 

FS.GET= 

006000 

LA.NMS= 

010000 

L.OPD 

000103 

E.DATA 

000046 

FS.HLT= 

000000 

LA.RES= 

040000 

L.OPDL 

000102 

E.EVT 

000002 

FS.INJ= 

000000 

LA.UND= 

004000 

L.REM 

000006 

E.LCN 

000042 

FS.KIL= 

000000 

LDB6T  = 

******  GX 

L.RFC 

000050 

E.LEN 

000216 

FS.LCL= 

100000 

LDBRT  = 

******  GX 

L.RLA 

000004 

E.LIN 

000024 

FS.LTM= 

001000 

LD$LP  = 

000000 

L.RNO 

000022 

E.LNK 

000000 

FS.MNT= 

004000 

LF.DRD= 

000004 

L.RTO 

000060 

E.MOD 

000036 

FS.MSN= 

014000 

LF.FRC= 

000001 

L.RTYD 

000055 

E.NOD 

000034 

FS.REA= 

001000 

LF.HFO= 

000010 

L.RTYI 

000057 

E.PDV 

000021 

FS.RET= 

000000 

LF.HMF= 

000040 

L.SEC 

000064 

E.PORT 

000040 

FS.REZ= 

003000 

LF.HSF= 

000020 

L.SEGZ 

000076 

E.PRM 

000026 

FS.RLB= 

002000 

LF.IRD= 

000002 

L.STA 

000000 

E.PVC 

000044 

FS.RNG= 

011000 

LF.MMF= 

000200 

L.TC 

000042 

E.SIZ 

000022 

FS.RST= 

000000 

LF.MSF= 

000100 

L.TIC 

000043 

E.TIME 

000004 

FS.RTN= 

001000 

LS.DLS= 

100000 

L.TIPD 

000013 

FC.CCP= 

000020 

FS.SET= 

005000 

LS.FCC= 

000004 

L.TIPI 

000012 

FC.CTL= 

000006 

FS.SFC= 

005000 

LS.FCO= 

000001 

L.THRD 

000054 

FC.KCP= 

000016 

FS.SFR= 

006000 

LS.FC1= 

000002 

L.TMRI 

000056 

FC.KIL= 

000004 

FS.SFS= 

004000 

LS.ILS= 

100000 

L.TYP 

000001 

FC.MAN= 

000024 

FS.SPW= 

040000 

LS.MAK= 

000020 

L.USA 

000024 

FC.MLD= 

000026 

FS.STM= 

000000 

LS.MNK= 

000040 

L.USTA 

000036 

FC.PCT= 

000030 

FS.STP= 

002000 

LS.RES= 

000360 

L.VER 

000015 

FC.PWR= 

000022 

FS.STR= 

001000 

LS.RSV= 

000300 

L.WIND 

000040 

FC.RCE= 

000002 

FS.TRM= 

003000 

LT.CCA= 

000020 

MAPOBJ 

002430RG 

FC.RCP= 

000014 

FS.ULB= 

001000 

LT.D]R= 

000010 

MA. CI  = 

000040 

FC.IIM= 

000010 

FS.XKL= 

002000 

LT.LCL= 

000001 

MA. DA  = 

000000 

FC.XCP= 

000012 

FS.XOF= 

010000 

LT.LPL= 

000002 

MA. a  = 

000020 

FC.XME= 

000000 

FS.XON= 

007000 

LT.NOT= 

000040 

MC.CC  = 

000040 

FDISP 

000340R 

002  FS.ZER= 

002000 

LT.RSU= 

000200 

MC.CI  = 

000020 

FLCON 

000356R 

002  F$$LVL= 

000001 

LT.SLI= 

000C04 

MC.DC  = 

000100 

FLSHIO 

002100RG 

GETLDB 

002242RG 

LT.TDA= 

000100 

MC.DI  = 

000060 

FLSHMB 

002124RG 

GETSDB 

002266RG 

L$$ASG= 

000000 

MC.NO  = 

000000 

FLSHRQ 

000306R 

002  G$$TPP= 

000000 

L$$DRV= 

000000 

MC.RC  = 

000140 

FLSHl 

000222R 

002  G$$TSS= 

000000 

L$$P11= 

000001 

MD.BM  = 

000040 

FLSLST= 

♦*♦»♦♦  GX 

G$$TTK= 

000000 

L$$11R= 

000000 

MD.EM  = 

000100 

FLVFY 

000356R 

002  G$$WRD= 

000000 

L.CSTA 

000037 

MD.  LS= 

000040 

FNDMBX 

000412RG 

002  ri.LUN  = 

**»«**  GX 

L.CTR 

000074 

MD.  M  = 

000020 

FR$BCC= 

000007 

IE.ABO= 

«♦»»»*  GX 

L.DCR 

000100 

MF.ACK= 

000004 

FR$CCF= 

000001 

IN.DAT-^ 

000400 

L.FLAG 

000014 

MF.CTL= 

000010 
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SES 
Ses 
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CCCCCCCC 
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EEEEEEEEEE 

ssssssss 

TTTT 

TTTTT 

CCCCCCCC 

BBBBB8BB 

ss 

EE 
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T       C' 
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ss 
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BB     BB 

ss 

EE 

ss 
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ss 
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ss 
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BBBBBBBB 

ss 
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BB     BB 

ss 

EE 

ss 

BB     BB 
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ss 

BB     BB 

ss 

EE 

ss 

BB     BB 
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EEEEEEEEEE 

ssssssss 

CCCCCCCC 

BBBBBBBB 

ssssssss 

EEEEEEEEEE 
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BBBBBBBB 
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Session  control  tinier  seruice  action  routines 


109 

no 

111 
112 
113 
11A 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12'. 
125 
126 
127 
128 
129 

130  000110 

131  0001 U 

132  000122 

133  000124 

134  000126 

135  000130 

136  000132 

137  000134 

138  000136 
139 

140  000142 

141  000146 

142  000150 

143  000154 
144 

145 
146 
147 

148  000160 

149  000162 

150  000164 

151  000174 
152 

153 
154 
155 
156 

157  000176 

158  000202 

159  000206 
160 

161  000210 

162  000212 

163  000214 

164  000216 
165 


005713 
100004 


.SBTTL  Session  control  timer  service  action  routines 
♦•-TIMXXX-Session  control  timer  service  action  routines 


Inputs 


These  routines  are  called  to  time  session  control  services  for  a 
logical  link. 

S2  =  Address  of  data  subchannel  timer 

R3  =  Virtual  address  of  LIT 

R5  =  Address  of  database  descriptor 


Registers  modi f led: 

RO,  R1,  R2,  R3,  R4 

.ENA8L  LS8 

*«-T]MClS-Connect  initiate  sent 

»*-TlMCC-Connect  initiate  received,  connect  confirm  sent 


017701   OOOOOOG 

116165  000043  000014 

105712 

001423 

105322 

001021 

105312 

005402 


116301  000065 

001002 

012701  000047 


riMCIS: 
TIMCC: 


10$: 


MOV 

M0V8 

TST8 

8E0 

DECS 

BNE 

DECS 

BLE 

CALLR 


aDECPT,R1  ;  Get  address  of  DEC  home  block 

D$0UTT(R1),N$DLV(R5)  ;  Reset  infinity  for  outgoing  connects 

(R2)  ;  Is  the  timer  running? 

20$  ;  If  EQ,  no 

(R2)+  ;  Reduce  time  to  go 

20$  ;  If  NE,  timer  still  running 

(R2)  ;  Have  we  exhausted  the  retry  count? 

10$  ;  If  LE,  yes  ...  break  the  logical  link 

RTRANS  ;  Retransmit  the  CC  or  CI  message 


MOVB 
BNE 
MOV 
15$:    CALLR 


L.LPT(R3),R1 
15$ 

#ER$C0M,R1 
BRKLNK 


Copy  possible  'object  did  not  respond' 
If  NE,  that  assumption  is  correct 
Set  up  disconnect  reason  code 
Break  the  logical  link 


**-TIMCIR-Connect  initiate  received 


TIMCIR:  TST 
8PL 
CALLE 

20$:    RETURN 


(R3) 

20$ 

ACKCI 


Did  we  have  a  resource  allocation  failure? 

If  PL,  no 

Try  to  resend  the  CI  ACK 


*»-TIMDIP-Disconnect  in  progress 


032713  OOO".  :0 
001004 

105712 
001402 
105312 
001366 


TIMDIP:  CALL 
BIT 
BNE 


TRMUSR 

#Lf.LCL*400,(R3) 

30$ 


TSTB  (R2) 

BEQ  30$ 

DECS  (R2) 

BNE  20$ 


Process  user  disconnect  state 
Is  this  a  local  Logical  link? 
If  NE,  '63  ...  don  t  worry  about  timers 

Is  the  isconnect  timer  running? 

C  ,  it  down  the  timer 
If  NE,  still  active 
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SESCSP  -  Session  cc 
Symbol   table 


LI  .NOT  = 
LT.RSU= 
LT.SLI= 
LT.TDA= 
LS$ASG= 
L$$DRV= 
L$$P11= 

L$snR= 

L.CSTA 

L.CTR 

L.OCR 

L.FLAG 

L.ILSQ 

L.ILTT 

L.LDA 

L.LIA 

L.LLA 

L.LNG 

L.LNO 

L.LPT 

L.LSA 

L.L5FD 

L.LSFI 

L.LTT 

L.MASQ 

L.MAST 

L.MASZ 

L.NIN 

L.NXN 

I  .NXTH 

L.OPD 

L.OPDL 

L.REM 

L.HFC 

L.RLA 

L.RNO 

L.RTQ 

L.RTYD 

L.RTYI 

L.SEC 

L.SEGZ 

L.STA 

L.Tr 

L.TIC 

L.TIPD 


.    ABS.      177776  000 

000516  001 

$HIGH       0004U  002 

Errors  detecteci:  0 


000002 

L.TIPI 

000012 

0000^0 

L.TMRD 

000054 

000200 

L.TMR] 

000056 

000004 

L.TYP 

000001 

000100 

L.USA 

000024 

000000 

L.USTA 

000036 

000000 

L.VER 

000015 

000001 

L.WIND 

000040 

000000 

MA. CI  = 

000040 

000037 

MA. DA  = 

000000 

000074 

MA.IL  = 

000020 

000100 

MC.CC  = 

000040 

oooou 

MC.Cl  = 

000020 

000052 

MC.DC  = 

000100 

000066 

MC.DI  = 

000060 

000032 

MC.NO  = 

000000 

000034 

MC.RC  = 

000140 

000002 

MD.BM  = 

000040 

000124 

MD.EM  = 

000100 

000026 

MD.ILS= 

000040 

000065 

MD.IM  = 

000020 

000030 

MF.ACK= 

000004 

000046 

MF.C1L= 

000010 

000044 

MF.DAT= 

000000 

000062 

M$$CRB= 

000124 

000070 

M$$CRX= 

000000 

000073 

M$$FCS= 

000000 

000072 

M$$M6E= 

oooooc 

000020 

M$$MUP= 

000000 

000016 

M$$NET= 

000000 

000010 

M$$OVR= 

000000 

000103 

M.MAIL 

oooou 

000102 

M.MAX 

000011 

000006 

M.MBL 

000020 

000050 

M.NAST 

000007 

000004 

M.NEXT 

000002 

000022 

M.RESP 

000016 

000060 

M.SPA 

000012 

000055 

M.TASK 

000004 

000057 

M.USE 

000010 

000064 

NC.FMO= 

000000 

000076 

NC.FM1= 

000001 

000000 

NC.FM2= 

000002 

000042 

NDISP 

000352R 

000043 

NF$BLK= 

000100 

000013 

NF$DMO= 

000010 

(RW,I,G8L,ABS,0VR) 
(PV,I,LCL,REL,CON) 
(hW,I,LCL,REL,CON) 


*•  Assembler  statistics 


Work  file  reads:  74 
Work   file  writes:  80 


b  Friday  28 

H 

-Jun-85  19: 

56  Page  15-2 

NF$M0U= 

000040 

N.CDA 

000142 

SCNGNQ 

000034R 

002 

NF$RST= 

000002 

N.CDAC 

000140 

SESTIM= 

****** 

GX 

NF$SCN= 

000020 

N.CDDS 

000070 

SRSTD  = 

****** 

GX 

NF$SHU= 

000004 

N.CDEV 

000062 

S7PCT  = 

****** 

GX 

NF$TIM= 

000200 

N.CID 

000064 

ST$CC  = 

000004 

NMCLH  = 

*»♦»♦»  GX 

N.CIDC 

000062 

ST$CIR= 

000006 

NMCON 

000370R 

002  N.CPS 

000106 

ST$CJS= 

000002 

NMEVT 

000376R 

002  N.CPSC 

000104 

ST$DAT= 

000010 

NHVFY 

000406R 

002  N.CTL 

000000 

ST$DIP= 

000012 

NS$DON= 

000000 

N.CUIC 

000066 

ST$PND= 

000014 

NS$SDI= 

000002 

N.CUNI 

000064 

S$$WRG= 

000000 

NS$UDC= 

000004 

N.DDE 

000010 

S$$YSZ= 

007600 

NSACQ 

000000 

N.DDEC 

000006 

TKTCB  = 

****** 

GX 

NSACTL 

000032 

N.DFM 

000004 

TSKRT  = 

****** 

GX 

NSCIR 

000034 

N.DGP 

000006 

T$$KMG= 

000000 

N$DLA 

000020 

N.DNM 

000014 

T$$MIN= 

000000 

N$DLY 

000014 

N.DNMC 

000012 

T.PCB  = 

****** 

GX 

NSELEN 

000054 

N.DOT 

000005 

T.RCVL= 

****** 

GX 

N$ENC 

000042 

N.DUS 

000010 

T.ST3  = 

****** 

GX 

NSERRC 

000022 

N.SDE 

000042 

T3.REH= 

****** 

GX 

NSFLG 

000005 

N.SDEC 

000040 

U1SAR6= 

****** 

GX 

N$FNC 

000006 

N.SEGZ 

000002 

US$CNF= 

000002 

NSGENO 

000052 

N.SFM 

000036 

US$DIS= 

000006 

N$GTM 

000015 

N.SGP 

000040 

US$DON= 

000000 

NSHIGH 

000033 

N.SND 

000030 

US$DSC= 

000004 

NSLLT 

000026 

N.SNM 

000046 

US$EAC= 

000012 

NSLLTM 

000024 

N.SNHC 

000044 

US$WDS= 

000010 

N$LVC 

000036 

N.sor 

000037 

VFYNAM= 

****** 

GX 

NSMBXO 

000050 

N.SUS 

000042 

V$$CTR= 

001000 

NSPLLT 

000030 

P$$P45= 

000000 

X$$DBT= 

000000 

NSSLA 

000016 

P$$WRD= 

000000 

$CLQia= 

****** 

GX 

NSSNOD 

000012 

P.HDR  = 

******  GX 

$CNQIO= 

****** 

GX 

N$TIM 

000004 

QIODSP 

000026R 

002  SCOPT  = 

****** 

GX 

N$VC8 

000010 

QRHVF  = 

******  GX 

$CTQIO= 

****** 

GX 

N$$ACC= 

000001 

Q$$0PT= 

000010 

$DMQI0= 

****** 

GX 

N$$EVL= 

000001 

RDBRT  = 

******  GX 

$DSQI0= 

****** 

GX 

N$$LDV= 

000001 

REJECT= 

******  GX 

$IOPKT= 

****** 

GX 

N$$MLL= 

000001 

REQTSK 

00031 6R 

$RCCB  = 

****** 

GX 

N$$MOV= 

000010 

REQTS1 

000334R 

$RQCPY= 

****** 

GX 

N$$NCT= 

000001 

RET 

000350R 

002  $RQTCB= 

****** 

GX 

N$rPEM= 

000001 

R$$DER= 

000000 

$SESPD= 

****** 

GX 

N$$SES= 

000001 

R$$K11=: 

000001 

$$SHFT= 

000001 

N$$SMC= 

«»**»*  GX 

R$$SND= 

000000 

$$$   = 

000062 

002  N.CAC 

000120 

R$$11M= 

000000 

.SERCP= 

****** 

GX 

N.CACC 

000116 

R$$11S= 

000000 

.$$$$.= 

000034 

N.CBL  = 

000142 

SESDSP  -  Session 
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Symbol  table 


AC$DNT= 

AC$X25= 

AE$C1R= 

AE$LIN= 

AE$MOD= 

ALOCB  = 

ALOCDB 

A$$CHK= 

A$tCPS= 

A$$PR1= 

A$$TRP= 

BYTE3  = 

CLIASZ= 

CL$DLL= 

CL$ECL= 

CL$L[)N= 

CL$MAN= 

CLSPAZ= 

CL$PLH= 

CL$PLL= 

CL$PRT= 

CL$ROU= 

CL$SES= 

CL$SGE= 

CL$SSE= 

CL$TRN= 

CL$XL2= 

CL$XL3= 

CL$X2S= 

C$$ORE= 

C$$RSH= 

DEAC8  = 

DEALDB 

DECPT  = 

DEVHD  = 

DL$AST= 

DL$HLT= 

DL$!ST= 

DL$MAI= 

DL$OFF= 

DLSON  = 

DL$RJN= 

DLSSHU= 

DL$SYN= 

DSAMXC 

DSAMXH 

DSANN 

D$BRPR 

DSBRTM 

DSDELF 

OSDELW 

DSEND  = 

DSFNB 

DSHIOR 

D$HOST 

DSINAC 


000002 
000001 
000003 
000001 
OOOOOA 

******  QX 

000274R 

000000 

000000 

000000 

000000 

000300 

010500 

000500 

000300 

010A00 

000000 

03^100 

03^000 

000600 

03^200 

010000 

000200 

035000 

035100 

000400 

013700 

013600 

013500 

000400 

177564 

.»***♦  GX 

000362RG 

**♦*«»  GX 

******  GX 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 

000005 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 


D$]PL 

D$LID 

DSLNAM 

DSLNUM 

DSLST 

DSMAXC 

002  DSMAXH 
DSMAXV 
DSMLL 
DSMNOD 
D$NA 
DSNBEA 
DSNBRA 
D$NEND= 
DSNLN 
D$NN 
DSOUTT 
OSRETF 
D$RNN 
DSRTMR 
DSSEG 
D$SER 
DSSQRL 
D$$BUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$VNM= 
D.NAM  = 
D.UCB  = 
D.UNIT= 
EF$ACT= 

002  EVLSES= 
EV$ACF= 
EV$ADR= 
EV$ADU= 
EV$APL= 
EV$ARC= 
EV$AUC= 
EV$AUS= 
EV$CDF= 
EV$C02= 
EV$DBR= 
EV$GAS= 
EV$HCE= 
EV$HCI= 
EV$HFE= 
EV$IFL= 
EV$IF0= 
EV$IFS= 
EVIINF= 
EV$LDL= 
EV$LDN= 
EV$LD0= 
EV$LDS= 
EV$LSC= 
EV$LUP= 


000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

******  GX 

******  GX 

******  GX 

000001 

******  GX 

000201 

000420 

000417 

000400 

000421 

OOjOIO 

000003 

000520 

000011 

000302 

035101 

035114 

035113 

000506 

000413 

000415 

000414 

000515 

000407 

010416 

000411 

000410 

000500 

000412 


EV$N0L= 

EV$NRC= 

EV$NSC= 

EV$NUL= 

EV$NVR= 

EV$0PL= 

EV$PCC= 

tV$PCI= 

EV$PCM= 

EV$PFE= 

EV$PPC= 

EV$RCF= 

EV$RDC= 

EV$RDR= 

EV$RJE= 

EV$RSC= 

EV$RUL= 

EV$SNA= 

EV$SNF= 

EV$SPE= 

EV$XCE= 

EV$XD]= 

EV$XGW= 

EV$XMX= 

EV$XRS= 

EV$XSC= 

EV$X2S= 

EV.CCB= 

EV.CIR= 

EV.LCB^ 

EV.L1N= 

EV.MAP= 

EV.MOD= 

EV.NOD= 

EV.PRT= 

ESDATA 

ESEVTS 

E$LCN 

ESLIN 

ESMOD 

E$N8R 

E$NBS 

E$NCR 

E$NCS 

ESNIC 

ESNLEN 

E$NLLA 

ESNLNK 

ESNML 

E$NMR 

ESNMS 

ESNNOD 

E$N0D 

E$NRT 

ESNRFP 

ESNSEG 

ESNIIM 


000402 

000416 

000200 

000401 

000406 

000403 

034000 

034001 

034002 

000404 

034003 

000517 

010001 

010002 

035106 

000501 

000405 

035000 

000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 

000100 

000004 

000002 

000040 

000010 

000200 

000020 

000000 

000016 

000000 

000012 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000010 

000042 

000005 

000010 

000046 


ESNUSE 

ESPORT 

E$PRM 

ESSTAT 

ESSTRT 

E$TCB 

E$$XPR= 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SJZ 

E.TJME 

FR$BCC= 

FR$CCF= 

FR$CDF= 

FR$DAO= 

FR$EXC= 

FR$FRM= 

FR$FTL= 

FR$OPN= 

FR$RFD= 

FR$SBU= 

FR$SHO= 

FR$UBU= 

FR$UPT= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

MO$SAC= 

MO$SPR= 

MO$SSV= 

MO$25A= 

MO$25P= 

MO$25S= 


000004 

M0$29S= 

000010 

000014 

M$HI6H= 

000003 

000002 

M$$CRB= 

000124 

000006 

M$$CRX= 

000000 

000006 

M$$FCS= 

000000 

000004 

M$$M6E= 

000000 

000000 

M$$MUP= 

000000 

000020 

M$$NET= 

000000 

000046 

M$$0VR= 

000000 

000002 

M$3100= 

000000 

000042 

M$3101= 

000001 

000216 

M$3102= 

000002 

000024 

M$3103= 

000003 

000000 

NF$BLK= 

000100 

000036 

NF$DMO= 

000010 

000034 

NF$MOU= 

000040 

000021 

NF$RST= 

000002 

000040 

NF$SCN= 

000020 

000026 

NF$SHU= 

000004 

000044 

NF$TIM= 

000200 

000022 

NM$ARA= 

176000 

000004 

NM$NOD= 

001777 

000007 

NT$AKD= 

000020 

000001 

NT$AKI= 

000022 

000002 

NT$CC  = 

000016 

000011 

NT$CON= 

000000 

000000 

NT$CTL= 

000000 

000010 

NT$DAT= 

000002 

000005 

NTSDC  = 

000012 

000004 

NT$DIS= 

000014 

000006 

NT$DLS= 

000006 

000012 

NT$ILS= 

000010 

000003 

NT$IMS= 

000002 

000013 

NT$INT= 

000004 

000014 

NT$RET= 

000032 

000001 

NT$ROU= 

000024 

000000 

NT$RTR= 

000030 

000000 

NT$TSP= 

000026 

000000 

NSACQ 

000000 

000000 

NSACTl 

000032 

000000 

N$CIR 

000034 

000000 

N$DLA 

000020 

177546 

N$DLY 

000014 

177546 

NSELEN 

000054 

000000 

N$ENC 

000042 

000074 

NSERRC 

000022 

000000 

N$FLG 

000005 

000000 

N$FNC 

000006 

000000 

NSGENQ 

000052 

000001 

N$GTM 

000015 

000000 

NSHIGH 

000033 

000016 

N$LLT 

000026 

000012 

NSLLTM 

000024 

000014 

NSLVC 

000036 

000006 

NSMBXQ 

000050 

000002 

NSPLLT 

000030 

000004 

NSSLA 

000016 
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42 

A3 

AA 

A5 

A6 

A7 

A8 

A9 

50 

51 

52 

53 

5A  000000 

55  000000 

56 

57 


.S8TTL  Macro  definitions 


.MCALL 
.MCALL 
.MCALL 


. If  DF  R$$MPL 
.IF  NDF  R$$PRO 
.MCALL  GINS 


SAVRG,RESRG,MAP,CALLX,EVT$,MAPLLT,RETC 

RQST$,DIR$,WSIG$S 

EVLDF$,ECDDB$ 


.ENDC 
.ENDC 

E\/LDF$ 
ECDDBS 


000001 


N$$SES  =  1 


Define  event  logger  offsets 
Define  ECL  database  offsets 

This  module  is  part  of  session  control 


I.  3 


SESMN  -  Session  control  main  lo  MACRO  V05.O3b  Friday  28-Jun-85  19:57  Page  7 


SESMNHS   created  by  macro  on  28-JUN-85  at  19:57 
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PAGE  6 

CREF   OA.OO 


MACRO  NAME 

CALL 

CALLR 

CALLX 

DIH$ 

ECDDBS 

EVLDFS 

EVT$ 

MAP 

MAPLLT 

OFF$ 

RESRG 

RETC 

RETURN 

RQST$ 

R50$ 

SAVRG 

SWSTKS 

USIGSS 

XQT 


REFERENCES 

8-83 

8-12A 
#6-AA 
#6-A5 
#6-46 
#6-46 
#6-44 
#6-44 
#6-44 
#10-155 
#6-44 
#6-44 

8-87 
#6-45 
#10-155 
#6-44 

8-83 
#6-45 
#7-61 


8-85 

8-103 

9-141 

6-55 

6-54 

8-118 


#10-156 


8-106 

10-155 

10-155 

8-102 
9-146 
8-89 


8-93 

8-114 
#9-146 


-121 


10-156 
#10-156 


8-102 
9-146 


8-113 


10-156 


-90 
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Process  received  DC  message 

.S8TTL  Process  received  DC  message 

**-RCVDC-Process  received  DC  message 

This  routine  processes  received  DC  messages. 

Inputs:  ,  .  , 

R2  =  Pointer  to  field  following  source  link  address 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416  001176 

112267 

OOOOOOG 

417  001202 

112267 

000001 G 

418 

419  001206 

420  001216 

103431 

421 

422  001220 

423  001226 

026563 

000016  000004 

424  001234 

001022 

425  001236 

016700 

OOOOOOG 

426  001242 

020027 

000051 

427  001246 

001002 

428  001250 

012700 

000046 

429 

430  001254 

010063 

000100 

431  001260 

121327 

000006 

432  001264 

001406 

433  001266 

012702 

001302" 

434  001272 

005063 

000054 

435  001276 

436 

437  001302 

438 

439 

440 

441 

442 

443  001304 

002 

000 

444  001306 

012 

000 

445  001310 

377 

377 

446  001312 

006 

000 

447  001314 

377 

000 

448  001316 

004 

000 

RCVDC: 


MOVB 
M0V8 

CALLE 
BCS 

COUNTS 

CMP 

BNE 

MOV 

CMP 

BNE 

MOV 

MOV 

CMP8 

BEQ 

MOV 

CLR 

CALL 


100$:    RETURN 


(R2)+,$REASN 
(R2)+,$REASN+1 

FNDLLT 
100$ 

E$NMR 
N$SLA(R5),L.RLA(R3) 


Get  reason  code  from  message 


Find  LLT  associated  with  the  link 
If  CS,  no  match  ...  toss  the  message 


10$: 


100$ 

$REASN,RO 

RO,#ER$STA 

lOi 

#ER$ABO,RO 

R0,L.DCR(R3) 

(R3),#ST$CIR 

100$ 

#DCSTA-2,R2 

L.TMRD(R3) 

KILLNK 


^Count  message  received 

If  NE,  not  for  this  logical  link 

Get  the  reason  code 

Is  this  a  'NO  LINK'  message? 

If  NE,  no 

Change  code  to  session  control  error 

Save  disconnect  reason  code 

Does  user  have  the  connect? 

If  EO,  yes  ...  toss  message  for  now 

Point  to  disconnect  substate  table 

No  need  to  send  any  more  DI's 

Kill  the  logical  link 


Received  DC  user  and  network  substate  table 


DCSTA: 


.BYTE 
.BrTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


US$CNF,NS$DON 

US$EAC,NS$DON 

-1.-1 

US$DIS,NS$DON 

-I.NSSDON 

US$DSC,NS$DON 


CI  sent 

Received  CI,  sent  CC 

Received  CI 

Normal  data  transfer 

Disconnect  in  progress 

Disconnect  pending 
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SYMBOL 

VALUE 

REFERENCES 

TSRPRI 

000040 

#6-51 

TSSVC 

000034 

#6-51 

T$T5 

000030 

#6-51 

T$T6 

000032 

#6-51 

USRCC 

r  ****** 

(iX 

11-331 

USRCI 

=  ****** 

GX 

9-206 

USRINT 

=     ****** 

GX 

7-77 

USSCNF 

=  000002 

12-398 

13-443 

USSDIS 

=  000006 

12-401 

•3-446 

USSDSC 

=  000004 

12-403 

•  3-448 

USSEAC 

=  000012 

12-399 

13-444 

SBYTE 

-   ****** 

GX 

♦11-309 

*12-379 

SCALLX 

r  ****** 

GX 

8-118 

9-216 

9-237 

10-264 

11-302 

11-316 

11-320 

11-343 

12-368 

12-389 

13-419 

16-557 

16-569 

18-624 

SINFO 

=     ****** 

GX 

*9-158 

*11-287 

15-511 

SOPDAT 

~     ****** 

GX 

14-476 

SOPLNG 

=     ****** 

GX 

11-309 

12-379 

*14-474 

SRCCB 

=:     ****** 

GX 

8-116 

9-226 

♦9-230 

P-236 

•9-238 

•11-348 

12-388 

•12-390 

SREASN 

r  ****** 

GX 

*12-362 

*12-363 

12-373 

•13-416 

•13-417 

13-425 

•16-558 

16-564 

SSEGMT 

=  ****** 

GX 

*9-161 

•9-162 

*11-290 

•11-291 

15-530 

•15-532 

15-534 

SSRVCS 

-  ****** 

GX 

*9-157 

9-164 

*11-286 

11-293 

15-520 

.SERCP 

000000 

RG 

#7-70 

11-347 


16-565 
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Symbol  table 


ACCLLT= 

♦♦*«*•  GX 

CP.2FR= 

000030 

C.RSV 

000002 

FC.HLD= 

000026 

IS.DAO= 

»»**«*  GX 

ADDMAI= 

t»«»»t  GX 

CS.AB0= 

000100 

C.STA 

000007 

FC.PCT= 

000030 

IS.SUC= 

******  GX 

A$$CHK= 

000000 

CS.BR0= 

000002 

C.STS 

000012 

FC.PWR= 

000022 

I$$RAR= 

000000 

AS$CPS= 

000000 

CS.SUF= 

000200 

C.URM 

177776 

FC.RCE= 

2929?? 

$$RDN= 

000000 

A$$PRI= 

000000 

CS.CES= 

000002 

C.XACP 

000004 

FC.RCP= 

000014 

.PRM  = 

*♦*♦♦«  GX 

A$$TRP= 

000000 

CS.CHN= 

000010 

C.XID 

000035 

FC.riM= 

000010 

KISAR6= 

******  GX 

CB.CCB= 

000002 

CS.CHP= 

000200 

C.XLEN 

000044 

FC.XCP= 

000012 

K$$CNT= 

177546 

CB.DDM= 

OOOOAO 

CS.DCR= 

000400 

C.XPLI 

000040 

FC.XME= 

000000 

K$$CSR= 

177546 

CB.DLC  = 

000020 

CS.DEF= 

000004 

C.XPT 

000034 

FLSHI0= 

»*♦»**  GX 

K$$LDC= 

000000 

CB.RDB= 

000004 

CS.DEV= 

000002 

C.XSVC 

000042 

FS.AST= 

000000 

K$$IPS= 

000074 

CB.SDB= 

000010 

CS.DIS^ 

000040 

C.XTC 

000037 

FS.CI8= 

002000 

LA.ACK= 

100000 

CB.5LI= 

000100 

CS.ENA= 

000001 

C.X25 

000036 

FS.CRA= 

001000 

LA.CRS= 

020000 

CB.XLB= 

000001 

CS.ENB= 

000020 

DISCMP 

000520RG 

FS.DIS= 

013000 

LA.MSK= 

170000 

CCBGT  = 

*♦*»»*  GX 

CS.ERR= 

100000 

D$$BUG= 

177514 

FS.DVC= 

001992 

LA.NAK= 

110000 

CCBRT  = 

»**•*•  GX 

CS.FTL= 

001000 

D$$ISK= 

000000 

FS.EN8= 

012000 

LA.NMS= 

010000 

CC.LLC= 

000200 

CS.HCR= 

000001 

D$$L11= 

000001 

FS.EXI= 

001000 

LA.RES= 

040000 

CE.ABO= 

100362 

CS.HFE= 

002000 

D$$YNC= 

000000 

FS.GET= 

006000 

LA.WND= 

004000 

CE.DAO= 

100346 

CS.LST:: 

040000 

D$$YNH= 

000000 

FS.HLT= 

000000 

LD$LP  = 

000000 

CE.DIS= 

100366 

CS.MTL= 

004000 

ER$ABM= 

000010 

FS.JNI= 

000000 

LF.DRD= 

000004 

CE.ERR= 

100370 

CS.RNG= 

000010 

ER$ABO= 

000046 

FS.KIL= 

000000 

LF.FRC= 

000001 

CE.ILN= 

100350 

CS.RDV= 

000004 

ER$ABT= 

000011 

FS.LCL= 

100000 

LF.HFO= 

000010 

CE.LIO= 

100356 

CS.RSN= 

010000 

ER$ACC= 

000042 

FS.LTM= 

001  coo 

LF.HMF= 

000040 

CE.MOP= 

100372 

CS.SHU= 

000001 

ER$CDI= 

000052 

FS.MNT= 

004000 

LF.HSF= 

000020 

CE.NTE= 

100361 

CS.SID= 

000002 

ER$CaM= 

000047 

FS.MSN= 

014000 

LF.IRD= 

000002 

CE.RTE= 

100376 

CS.STR= 

000004 

ER$FMT= 

000005 

F.S.REA= 

001000 

LF.MMF= 

000200 

CE.SRC= 

100364 

CS.SUC= 

000001 

ER$MLB= 

000006 

FS.RET= 

000000 

LF.MSF= 

000100 

CE.STP= 

100352 

CS.TM0= 

020000 

ER$NNF= 

000012 

FS.REZ= 

20^999 

LS.DLS= 

100000 

CE.TME= 

100354 

CS.XUR= 

000004 

ER$NOD= 

000002 

FS.RL8= 

002000 

LS.FCC= 

000004 

CE.TMO= 

100374 

CV$MSK= 

000003 

ER$NSL= 

000013 

FS.RNG= 

011000 

LS.FCO= 

000001 

CE.UNS= 

100344 

CV$31  = 

000001 

ER$NSR= 

000003 

FS.RST= 

000000 

LS.FC1= 

000002 

CF.CHN= 

000001 

CV$32  = 

000000 

ER$RES= 

000001 

FS.RTN= 

001000 

LS.]LS= 

100000 

CF.EOM= 

000004 

CV$40  = 

000002 

ER$STA= 

000051 

FS.SET= 

005000 

LS.MAK= 

000020 

CF.HDR= 

000020 

CX.GDQ= 

000001 

ER$UOB= 

000004 

FS.SFC= 

005000 

LS.MNK= 

000040 

CF.LB  = 

100000 

CX.REM= 

000020 

ESNBR 

000014 

FS.SFR= 

006000 

LS.RES= 

000360 

CF.LIN= 

000002 

CX.REQ= 

000002 

E$NSS 

000020 

FS.SFS= 

004000 

LS.RSV= 

000300 

CF.SOM= 

000010 

CX.RUI= 

000040 

E$NCR 

000034 

FS.SPW= 

040000 

LT.CCA= 

000020 

LF.SYN= 

000040 

CX.SMC= 

000010 

E$NCS 

000036 

FS.STM= 

000000 

LT.DIR= 

000010 

CF.TRN= 

000100 

CX.UNL= 

000004 

E$NIC 

000044 

FS.STP= 

002000 

LT.LCL= 

000001 

CL$MFL= 

000010 

C$$ORE= 

000400 

ESNLEN 

000050 

FS.STR= 

001000 

LT.LPL= 

000002 

CL$SFL= 

000004 

C$$RSH= 

177564 

ESNLLA 

000012 

FS.TRM= 

003000 

LT.NOT= 

000040 

CL$TYP= 

000001 

C.ADD 

000034 

EINLNK 

000000 

FS.WL8= 

001000 

LT.RSU= 

000200 

CL.MU1= 

000001 

C.8ID 

OOC003 

E$NML 

000040 

FS.XKL= 

002000 

LT.SLI= 

000004 

CL.M02= 

000002 

C.BUF 

000014 

E$NMR 

000024 

FS.X0F= 

010000 

LT.TDA= 

000100 

CL.RES= 

177774 

C.8UF1 

0C0014 

ESNMS 

000030 

FS.X0N= 

007000 

L$$ASG= 

000000 

CM.CIR= 

000002 

C.8UF2 

000024 

ESNNOD 

000002 

FS.ZER= 

002000 

L$$DRV= 

000000 

CM.CON= 

000200 

C.CNT 

0OU020 

ESNRF 

000042 

F$$LVL= 

000001 

L$$P11= 

000001 

CM.FMT= 

100000 

C.CNT1 

000020 

EINRTP 

000005 

G$$FPP-- 

000000 

L$$11R= 

000000 

CM.HRD= 

000002 

C.CNT2 

000030 

ESNSEG 

000010 

G$$TSS= 

000000 

L.CSTA 

000037 

CM.LIN= 

000000 

C.FLG 

000022 

ESNTIM 

000046 

G$$TTK= 

000000 

L.CTR 

000074 

CM.LOO= 

000001 

C.FLG1 

000022 

ESNUSE 

000004 

G$$URD= 

000000 

L.DCR 

000100 

CH.XLO= 

000004 

C.FLG2 

000032 

ESSTRT 

000006 

IE.DAO= 

**♦♦*«  GX 

L.FLAG 

000014 

CPVCNC 

OOOOOOR 

C.FNC 

000010 

E$$XPR= 

000000 

E.NRJ= 

******  GX 

L.  LSQ 

000052 

CP.DCF= 

000040 

C.LIN 

000006 

FC.CCP= 

000020 

E.URJ= 

»*»*»»  GX 

L.  LTT 

000066 

CP.HDL= 

000007 

C.LNK 

000000 

FC.CTL= 

000006 

N.DAT= 

000400 

L.LDA 

9992|2 

CP.PS  = 

177400 

C.MOD 

000011 

FC.KCP= 

000016 

N.ILS= 

000001 

L.LIA 

000034 

CP.PS!= 

000200 

C.NSP 

000004 

FC.KJL= 

000004 

lODUN  = 

******  GX 

L.LLA 

000002 

CP.XCF= 

000100 

C.PRO 

000042 

FC.MAN= 

000024 

lOSUC  = 

»*»»**  GX 

L.LNG 

000124 
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SE! 

Mac 


113 

1H 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

Ul 

1^2 

H3 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 


.SBTTL     Connect   receiued  acknowledgement 

**-SLICRA-Connect  received  acknowledgement 

This  routine  is  called  to  acknowlege  the  receipt  of  an   incoming 
connect. 

Inputs: 

R4  =  Address  of  fCB 

C.NSP  -  Physical  address  of  LLT  (LLA) 

C.FLG2  -  'JLA 

C.STS  -  Acknowlegement  status 

C.STA  -  Source  PDV  index 
R5  =  Address  of  database  descriptor 

Registers  modi  fied: 
RO,  R1,  R2,  R3 


.PSECT 

SLICRA:  CALLE 
BCS 

H0V8 

Move 
Move 

MOV 
CALL 

Move 

BMI 

CALLE 
RETURN 


10$: 


20$: 
30$: 


CALL 
BCS 

MAPLLT 
CLR 
MOVE 
MOVB 

NEG 
MOV 
CLR 
CALLE 

CALLR 

CALLR 


CHKLLA 
30$ 


Check  for  a  valid  LLA 

If  CS,  invalid  LLA  supplied 


C.FLG2(R4),L.ULACR3) 
C.STA(R4),L.PDVC(R3) 
C.STA(R4),L.PDVD(R3) 
C.STS(R4),-(SP)  ;  Save  acknowlegement  status 


RLSCI 

(SP)+,R1 

10$ 

ACKCI 


aCSBGT 
20$ 


Release  the  CI  resources 
Recover  acknowledgement  status 
If  MI,  reject  the  connection  now 

Acknowledge  the  CI 


Allocate  a  combined  CCB  and  small  data  buffer 
If  CS,  none  available 


;  Recover  mapping  to  the  LLT 

C.NSP(R4)       ;  No  logical  link  for  this  message 

#NT$DC,C.RSV(R4);  This  will  be  a  disconnect  confirm 
L.CHN(R3),C.LIN(R4) 

R1  ;  Form  NSP  reason  code 

R1 ,N$ERRC(R5)   ;  Set  up  reason  code  for  DC  response 

N$DLA(R5)       ;  Clear  out  source  link  address 

SENDDC         ;  Send  the  DC  to  break  the  link 

REMLNK         ;  Remove  the  logical  Link  data  structures 

RLSCI  ;  Release  CI  resources 
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610 

611 

612 

6-' 3 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 


.SBTTL  Find  node  mapping  by  address 
♦♦-FNDADD-Find  node  mapping  by  node  address 


Inputs 


Scan  the  remote  name  blocks  to  find  a  match  on  the  specified  node 
address. 

R5  =  Address  of  database  descriptor 


Outputs; 

•C  Clear 
'C  Set 

Registers  modified: 
R1,  R3 


Valid  address  mapping  found 
No  valid  address  mapping  found 


FNDADD. 

MOV 
MOV 

aDECPT,R3 
D$RNN(R3),R3 

10$: 

MOV 
CALL 
MOV 
BEQ 

(R3),-(SP) 
aCEACC 
(SP)+,R3 
20$ 

CMP 
BNE 

R.ADD(R3),$W0RK 
10$ 

ADD 

MOV 
CALL 

#R.NAM,R3 

#$W0RKt2,R0 

NODIMG 

20$: 

TST 
SEC 
RETURN! 

(PC)* 

;  Point  to  the  DEC  home  bloci<. 

;  Point  to  remote  node  listhead 

;  Get  address  of  next  block 

;  Gain  access  to  the  block 

;  Retrieve  mapped  address 

;  If  EQ,  no  more 

;  Match  on  node  address? 

;  If  NE,  no  ...  keep  looking 

;  Point  to  remote  node  name 

;  Point  to  output  workspace 

;  Convert  to  image  field 

;  Indicate  success 

;  Indicate  failure 
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SESSLP 

IS 

CREATED  BY 

MACRO  ON 

MACRO  CROSS 

RE 

ERENCE 

MACRO  NAME 

REFERENCES 

CALLE 

#6-44 

CCBDF$ 

#6-45 

6-49 

CNBDFS 

#6-45 

6-bi 

DHBDFI 

#6-46 

6-bb 

ECDDBS 

#6-45 

6-!)0 

MAP 

#6-44 

MAPLLT 

#6-44 

MSGDFS 

#6-45 

6-5<^ 

PDVDFS 

#6-45 

6-51 

RESRG 

#6-44 

RNBDFS 

#6-45 

6-54 

SAVRG 

#6-44 

SLIDFS 

#6-45 

6-48 
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.SBTTL  Convert  RAD50  to  ASCII 

**-C5TA-Conuert  RAD50  to  ASCII 

Convert  3  RAD50  character  to  ASCII. 

Inputs: 

R1  =  RAD50  word  to  be  converted 

R2  =  Address  of  next  byte  in  output  buffer 

Outputs: 

R2  =  Address  of  next  byte  in  output  buffer 

Registers  modified: 
RO,  R1 


SESSUB  -  Sessior 

contrc 

Convert  RAD50  tc 

ASCII 

381 

382 

383 

38A 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397  000000 

398 

399  000000 

400  000004 

010046 

401  000006 

402  000012 

010046 

403  000014 

404 

405  000020 

110022 

406  000022 

112622 

407  000024 

112622 

408  000026 

.PSECT  $HIGH 


C5TA: 


CALL 

MOV 

CALL 

MOV 

CALL 

CVTC 

R0,-(SP) 

CVTC          ; 

R0,-(SP) 

CVTC 

M0V8 
M0V8 
MOVe 
RETURN 

R0,(R2)+ 

(SP)+,(R2)+ 

(SP)+,(R2)t 

Convert  first  character 

and  save  it 
Convert  second  character 

and  save  it 
Convert  third  character 

Store  it 

and  second  character 
and  first  character 
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ESSUB  -  Session  control  subrou  MACRO 
Flush  queue  ot  1/0  requests 

878 
879 
880 
881 
882 
883 
88^ 
885 


887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
90A 
905 
906 
907 
908 
909 
910 
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.SBTTL  Flush  queue  of  I/O  requests 

•»-FLSHRQ-Flush  queue  of  I/O  requests 

Complete  a  queue  of  I/O  requests  in  error  without  removing  the  LUN 
interlock. 

Inputs: 

R3  =  Pointer  to  I/O  packet  queue 
R5  =  Address  of  database  descriptor 


SE 

Re 


000306  011346 

000310  012700  OCdOOOC 

0003U  005001 


Registers  modified: 
RO,  R1,  R3,  R4 


000316  005063  000016G 

000322 

000326  012603 

000330  001366 

000332 


FLSHRQ: 

MOV 

(R3),-(SP) 

MOV 

It.  E.ABO8377,R0 

CLR 

R1 

.IF  DF 

N$$BUF 

TST 

I.FCN(R3) 

BPL 

10$ 

CLR 

I.PRMt12(R3) 

CALL 

aOUEBF 

BR 

20$ 

10$: 

.ENDC 

CLR 

I.PRM+16(R3) 

CALL 

SIOFIN 

20$: 

MOV 

(SP)t,R3 

BNE 

FLSHRQ 

RETURN 

Save  address  of  next  I/O  packet 
Complete  request  in  error 


Is  this  a  buffered  I/O  request? 
If  PL,  no 

Indicate  no  data  to  be  moved 
Complete  the  request 
Continue  in  common  code 


Clear  RMS  record  locking  flag 
Complete  the  request 
Get  address  of  next  I/O  packet 
Loop  till  all  done 
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Reject  a  logical  link  internally 


13A7 
1348 
13A9 
1350 
1351 
1352 
1353 
135A 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
13c3 
1364 
1365 
1366 
1367 
1368 
1369 
1370 


002670 

002676 

002702  016403  000006 

002706 

002716 

002722 

002726 

002732 

002740 


.SBTTL  Reject  a  logical  link  internally 

•*-REJECT-Reject  a  logical  link  internally 

Reject  a  logical  link  because  the  network  software  is  unable 
to  handle  the  request. 

Inputs: 

R1  =  Reason  for  the  reject 

R4  =  Address  of  pending  connect  CCS 

R5  =  Address  of  database  descriptor 

Registers  modi  f led: 
R1,  R4 


REJECT: 


SAVRG 

<R0,R2,R3> 

SAVMAP 

MOV 

C.LIN(P4),R3 

CALLE 

ACCLLT 

CALL 

RLSCl 

CALL 

BRKLNK 

RESMAP 

RESRG 

<fi3,fi2,R0> 

RETURM 


Save  some  registers 

Save  current  mapping 

Get  physical  address  of  LLT 

Gain  access  to  LLT 

Release  the  connect  resources 

Break  the  logical  link 

Restore  mapping 

Restore  registers 
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Symbol  table 


MF.DAT= 

MO$SAC= 

MOISPR= 

MO$SSV= 

MO$25A= 

MO$25P= 

MO$25S= 

M0$29S= 

MVFBF  = 

MtHIGH=: 

M$$CRG- 

MSICRX 

M$SFCS= 

M$$HGE= 

M$$MUP= 

MS$NET= 

M$$OVR= 

M$3100= 

M$3101= 

M$3102= 

M$3103= 

M.MAIL 

M.HAX 

M.MBL 

M.NAST 

M.NEXT 

M.RESP 

M.SPA 

M.TASK 

M.USE 

NC.FMO= 

NC.FM1= 

NC.FM2= 

NE$ABM= 

NE$ABO= 

NE$ACC= 

NE$ACT= 

NE$COM= 

NE$FCF= 

NE$FMT= 

NE$GEN= 

NE$IFC= 

NE$ILS= 

NE$IMG= 

NE$MLB= 

NE$NNF= 

NE$NOD= 

NE$NSD= 

NE$NISL  = 

NE$NSR= 

NE$RES= 

NE$SSR= 

NE$5SS= 

NE$TCN= 

I^E$TCO= 

NF$TPA= 

NEiUDB= 


000000 

000016 

000012 

OOOOU 

000006 

000002 

000004 

000010 

*'•**»  GX 

000003 

000124 

000000 

DOOOOO 

000000 

000000 

000000 

000000 

000000 

000001 

000002 

000003 

000014 

000011 

000020 

000007 

000002 

000016 

000012 

000004 

000010 

000000 

000001 

000002 

000010 

000046 

000042 

000042 

000047 

000050 

000005 

000007 

000030 

00004  3 

000042 

000006 

000012 

000002 

000003 

000013 

000003 

000001 

000000 

000045 

000040 

000006 

000010 

000004 


NF$BLK= 

NF$DMa= 

NF$M0U= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$T1M= 

NH$ARA= 

NM$N0D= 

NOOP 

NO.DTR= 

NO.FAL= 

NQ.FA1= 

NO.NCU= 

NO.RTL= 

NO.TAS= 

NO.TCL= 

N0.TC1= 

NO.TLK= 

NSTATE 

NS$D0N= 

NS$SDI= 

NS$UDC= 

NT$AKD= 

NT$AKI= 

NT$CC  = 

NT$C0N= 

NT$CTL= 

NT$DAT= 

NT$DC  = 

NT$D1S= 

NT$DLS= 

NT$1LS= 

NT$IMS= 

NT$INT= 

NT$RET= 

NT$ROU= 

NT$RTR= 

NT$TSP= 

NT.AB0= 

NT.ABT= 

NT.C0N= 

NT.DSC= 

NT.EVT= 

NT.INT= 

NT.MOP= 

NT.NSP= 

NT.VFY= 

NSACQ 

NSACTL 

N$CIR 

N$DLA 

NSDLV 

NSELEN 

NSENC 

NSERRC 

NSFLG 


000100 

000010 

000040 

000002 

000020 

000004 

000200 

176000 

001777 

003506R 

000077 

000021 

000001 

000023 

000022 

000000 

000017 

000005 

000020 

003510RG 

000000 

000002 

000004 

000020 

000022 

000016 

000000 

000000 

000002 

000012 

000014 

000006 

000010 

000002 

000004 

000032 

000024 

000030 

000026 

000005 

000004 

000001 

000003 

000006 

000002 

000010 

000010 

000007 

000000 

000032 

000034 

000020 

000014 

000054 

000042 

000022 

000005 


NSFNC 

000006 

OF.PRO= 

000040 

RT$OFF= 

000001 

NSGENO 

000052 

OF.RLU=: 

000100 

RT$0N  = 

000000 

NSGTH 

000015 

OF.SMC= 

000200 

R$$DER=: 

000000 

NSHIGH 

000033 

OP$INI= 

000000 

R$$K11= 

000001 

NSLLT 

000026 

OP$TER= 

000001 

R$$SND= 

000000 

N$LLTM 

000024 

O.FLG 

000003 

R$$11M= 

000000 

NSLVC 

000036 

O.LEN 

000012 

R$$11S= 

000000 

NSMBXQ 

000050 

O.LNK 

000000 

R.ADD 

000010 

NSPLLT 

000030 

O.MXC 

000004 

R.FLAG 

000012 

N$SLA 

000016 

O.NAM 

000006 

R.LEN 

000014 

NSSNOD 

000012 

O.TYP 

000002 

R.LNK 

000000 

NSTIM 

000004 

PHSHDE  - 

000004 

R.NAM 

000002 

N$VC8 

000010 

PH$LOC= 

000002 

SAVOPT 

003276RG 

N$$ACC= 

000001 

PH$MTS= 

000003 

SC$OFF= 

000001 

N$$ACK= 

OOOOU 

PH$UMP= 

000000 

SC$0N  = 

000000 

N$$EVL= 

000001 

PH$WCS= 

000001 

SC$RST= 

000003 

N$$HDR= 

000007 

PNTCCB 

002516RG 

SC$SHU= 

000002 

N$$LDV= 

000001 

PROJMG 

002554R 

SENODI= 

******  GX 

N$$MLL= 

000001 

PRONAM 

002576R 

SPRAST= 

******  GX 

N$$M0V= 

000010 

P$$P45=: 

000000 

STSCC  = 

000004 

N$$NCT= 

000001 

P$$WRD= 

000000 

ST$CIR= 

000006 

N$$OVR= 

000022 

P.HDR  = 

******  GX 

ST$CIS= 

000002 

N$$PEM= 

000001 

Q$$OPT= 

000010 

ST$DAT= 

000010 

N$$SES= 

000001 

REJECT 

002670RG 

ST$DIP= 

000012 

N.CAC 

000120 

REMLNK 

002742RG 

ST$PND= 

000014 

N.CACC 

000116 

RETRES 

003074RG 

SV$DUM= 

000001 

N.CBL  = 

000142 

RETTB 

0031 34R 

SV$L0A= 

000000 

N.CDA 

000142 

RE$ADC= 

000004 

S$ABO  = 

000022 

N.CDAC 

000140 

RE$ADF= 

000017 

S$ACC  = 

000002 

N.CDDS 

000070 

RE$ADR= 

000007 

S$BUF  = 

000026 

N.CDEV 

000062 

RE$BLK= 

000010 

SSCNR  = 

000000 

N.CID 

000064 

RE$CAF= 

000014 

S$CON  = 

000000 

N.CIDC 

000062 

RE$DAT= 

000001 

S$DAT  = 

000002 

N.CPS 

000106 

RE$DRP= 

000016 

S$DIS  = 

000020 

N.CPSC 

000  04 

RE$LDT= 

000013 

S$DRQ  = 

000012 

N.CTL 

000000 

RE$LSN= 

000012 

S$DSR  = 

000006 

N.CUIC 

000066 

RE$NML= 

000001 

S$GLN  = 

000024 

N.CUNI 

000064 

RE$OPE= 

000004 

S$INT  = 

000004 

N.DDE 

000010 

RE$OPR= 

000000 

S$IRQ  = 

000016 

N.DDEC 

000006 

RE$RCV= 

00000' 

S$MRQ  = 

000010 

N.DFM 

000004 

RE$SED= 

OOOOU 

SSNOT  = 

000010 

N.DGP 

000006 

RE$SKU= 

000006 

S$NT1F= 

000001 

N.DNM 

000014 

RE$STA= 

000002 

S$PB0M= 

000040 

N.DNMC 

000012 

RE$SUM= 

000003 

S$PEOM= 

000100 

N.DOT 

000005 

RE$SYN= 

000000 

S$PMOM= 

000000 

N.DUS 

000010 

RE$THE= 

000021 

S$PMSG= 

000200 

N.SDE 

000042 

RE$TMO= 

000000 

S$PSEG= 

000100 

N.SDEC 

000040 

RE$TMR= 

000020 

SSREJ  = 

000004 

N.SEGZ 

000002 

RE$UPT= 

000002 

SSSND  = 

000006 

N.SFM 

000036 

RE$URE= 

000005 

SSSNI  = 

000014 

N.SGP 

000040 

RE$VER= 

000005 

S$TMDA= 

000002 

N.SND 

000030 

RE$VRQ= 

000015 

S$$WRG= 

000000 

N.SNM 

000046 

RF.LOO= 

100000 

S$$YSZ= 

007600 

N.SNMC 

000044 

RLSCI 

003144RG 

S.EABL= 

100200 

N.SOT 

000037 

RMVWND 

0031 76RG 

S.EABM= 

100370 

N.SUS 

000042 

RSNDD1= 

**»**»  GX 

S.EABO= 

100367 

OBJHD  : 

»*«**♦  GX 

RT$INI= 

000002 

S.EABS= 

100202 
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SE: 
Se5 


1 
2 
3 
^ 
5 
6 
7 
8 
q 
10 

11 

12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
^1 
42 
43 
44 


.TITLE  SESTCB  -  TCB  cooy  routine  for  RSX-11M 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliabilit)  of 
its  software  on  equipment  which  is  net  supplied  by  DEC. 

Module  description: 

ACP  user  TCB  copying  routine 

Distributed  systems  software  engineering 

Ident  history: 

4.00  07-N0V-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  V^.O 


.MCALL   SAVRG.RESRG 


SE 
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Session  control  timer  serj/ice  action  routines 

166  000220  30$:    CaLLR   TRMNET         ;  Process  networK  disconnect  state 

167 

168  .DSABL  LS8 

169 

170        000001  .END 


I  16 

SESTIM  -  Session  control  timer  MACRO  V05.03b  Friday  28-Jun-85  20:01  Page  8-2 


I    1 

SESDSP  -  Session  control  dispat  MACRO  V05.03b  Friday  28-Jun-85   19:56     Page  15-3 
Symbol   table 

Size  ot  work  file:  22605  Words  (  89  Pages) 
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N$SNOD 

NSTIM 

NSVCB 

Nt$ACC= 

N$$ACK= 

NS$EVL= 

N$$HDR= 

N$$LDV= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$OVR= 

N$$PEM= 

N$$SES= 

OP$INI= 

OP$TER= 

PDVID  = 

PDVTA  = 

PH$HDE= 

PH$LOC= 

PH$HTS= 

PH$UHP= 

PH$UCS= 

P$tP45= 

P$$WRD= 

Q$$OPT= 

RDBSZ  = 

RE$ADC= 

RE$ADF= 

RE$ADR= 

RE$BLK= 


000012 

OOOOOA 

000010 

000001 

000011 

000001 

000007 

000001 

000001 

000010 

000001 

000022 

000001 

000001 

000000 

000001 

******  Qx 

**»«*«  GX 

OOOOOA 

ooooo: 

000003 

000000 

000001 

000000 

000000 

000010 

******  GX 

000004 

000017 

000007 

000010 


RE$CAF= 
RE$DAT= 
RE$DRP= 
RE$LDT= 
RE$LSN= 
RE$NML= 
RE$0PE= 
RE$OPR= 
RE$RCV= 
RE$SED= 
RE$SKW= 
RE$STA= 
RE$SUM= 
RE$SYN= 
RE$TME= 
RE$TMO= 
RE$TMR= 
RE$UPT= 
RE$URE= 
RE$VER= 
RE$VRQ= 
RT$INI= 
RT$OFF= 
RTSON  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
R$$11S= 
SC$OFF= 
SC$ON  = 


OOOOU 
000001 
000016 
000013 
000012 
000001 
000004 
000000 
000001 
000011 
000006 
000002 
000003 
000000 
000021 
000000 
000020 
000002 
000003 
000005 
000015 
000002 
000001 
000000 
000000 
000001 
000000 
000000 
000000 
000001 
000000 


.  ABS.  000216 
000000 
SHIGH   000412 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REl,CON) 
(RW,I,LCL,REL,CON) 


►**  Assembler  statistics 


Work   file  reads:  94 

Work   file  writes:  73 

Size  of  work  file:  20412  Words  (  80  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-11M/PlJS 

Elapsed  time:  00:00:19.52 

SV:SESI^JI1  lS.V2,[131,134]SESIN111S/CR/-SP  =  SY: 


SC$RST= 

000003 

TSNLEN 

000010 

SC$SHU= 

000002 

TSNNUL 

000002 

SESINI 

OOOOOORG 

002  TSNOPL 

000006 

SES$DV= 

051516 

TSNRNI 

000042 

SV$DUM= 

000001 

TSNRPL 

000005 

SV$LOA= 

000000 

TSNRUL 

000007 

S$$WRG= 

000000 

T$NVR 

000001 

S$$YSZ= 

007600 

TSRPRI 

000040 

TKTCB  = 

******  GX 

TSSVC 

000034 

TTNS  = 

»*♦*«*  GX 

T$T5 

000030 

TSFLAG 

000044 

T$T6 

000032 

TSLIF 

000013 

T$$KMG= 

000000 

TSLIFL 

000013 

T$$MIN= 

000000 

TSLIFO 

000013 

US.MDM= 

****** 

GX 

TSLIFS 

000013 

US.MNT= 

****** 

GX 

TSLIN 

000000 

US.0FL= 

****** 

GX 

TSLIPS 

000006 

U.ACP  = 

****** 

GX 

T$LLD 

000012 

U.STS  = 

****** 

GX 

TSLLDC 

000045 

U.ST2  = 

****** 

GX 

TSLLDL 

000012 

U.VCB  = 

****** 

GX 

TSLLDO 

000012 

V$$CTR= 

001000 

TSLLDS 

000012 

W0RD1  = 

000200 

T$LLEN 

000046 

W0RD2  = 

000000 

TSLOPR 

000002 

X$$DBT= 

000000 

TSLTCL 

000024 

ZF.C0U= 

001000 

TSLTIM 

000026 

ZF.DDM= 

000001 

TSLTPR 

000014 

ZF.DIA= 

004000 

TSLTPS 

000020 

ZF.DLC= 

000002 

TSNAPL 

000004 

ZF.DVP= 

100000 

T$NFE 

000000 

ZF.IN1= 

040000 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.HFL= 

ZF.MTM= 

ZF.HUX= 

ZF.PSE= 

ZK.SLI 

ZF.TIM 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DS° 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

z.pce 

Z.SCH 

$CALLX= 

$ECLIN= 

$ENC0D= 

$SESDB= 

$SESPD= 

$UCB  = 

$XPTIN= 


000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

****** 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


GX 
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59 
60 
61 
62 
63 
6^. 


.SBTTL  Define  local  macros 

.MACRO  XQT.DPB 

JSR  R5,$XC)TDR 

.WORD  DP9 

.ENDM  XQT 
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Session  control  main  logic 
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Get  optional  data  from  message 


450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
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.SBTTL  Get  optional  data  from  message 

**-GET0PT-6et  optional  data  from  message 

Copy  the  optional  data  from  the  message  to  the  optional  data  buffer 
witnin  the  task. 

Inputs: 

R2  =  Pointer  to  optional  data  field  count 

R3  =  Virtual  address  of  LLT 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


001320  112201 

001322  022701  000020 

001326  103410 

001330  010167  OOOOOOG 

001334  001405 

001336  012700  OOOOOOG 

001342  112220 
001344 

001350 


Outputs 


'C  Clear  -  Optional  data  copied  successfully 

'C  Set   -  Message  format  error  -  optional  data  field  too  long 


Registers  modified: 
RO,  R1,  R2 


GETOPT 

10$: 
20$: 


MOVB 

CMP 

SLO 

MOV 
BED 
MOV 

Move 

S08 
RETURN 


(R2)+,R1 

#16.,R1 

20$ 

R1,$0PLNG 

20$ 

#$OPDAT,RO 

(R2)+,(R0)t 

R1,10$ 


Get  byte  count  from  message 

Is  it  too  long? 

If  1.0,  yes  (C-bit  set) 

Save  length  of  optional  data 
If  EQ,  none 

Point  to  optional  data  buffer 
Copy  the  data 
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SESPR011S 

CREATED  BY  MACRO  ON  28- 

-JUN-85  AT  19 

57    F 

MACRO  CROSS 

REFERENCE 

C 

MACRO  NAME 

REFERENCES 

CALL 

8-114 

9-177 

9-188 

9-200 

11-299 

11-318 

11-331 

12-365 

CALLE 

#6-44 

8-118 

9-216 

9-237 

12-568 

12-389 

13-419 

16-557 

CALLR 

7-70 

CALLX 

#8-118 

8-118 

#9-216 

9-216 

#11-316 

11-316 

#•1-320 

11-320 

#12-389 

12-389 

#3-419 

13-419 

CCBDFS 

#6-45 

6-47 

COUNTS 

#6-44 

9-197 

9-198 

11-310 

CTRDFS 

#6-45 

6-51 

DHBDFS 

#6-46 

6-53 

ECDDBS 

#6-45 

6-48 

LLTDFS 

#6-45 

6-49 

MAP 

#6-44 

8-101 

9-186 

18-621 

MAPLLT 

#6-44 

MSGDFS 

#6-45 

6-50 

RESRG 

#6-44 

RETURN 

8-121 

9-217 

9-239 

10-273 

16-576 

17-596 

18-626 

SAVRG 

#6-44 

SOB 

9-185 

14-478 

XPTDFS 

#6-45 

6-52 

I  6 

PAGE  5 

CREF   04.00 

9-201 
12-371 
10-264 
16-569 

9-206 
12-386 
11-302 
18-624 

9-222 

13-435 

11-316 

9-229 

16-567 

11-320 

9-233 

11-343 

10-271 
11-347 

#9-237 

#11-343 

#16-557 

9-237 

11-343 

16-557 

#10-264 
#11-347 
#16-569 

10-264 
11-347 
16-569 

#11-302 
#12-368 
#18-624 

11-302 
12-368 
18-624 

11-311 


12-380 


12-381 


12-382 


13-422 


11-345 


11-349 


12-392 


13-437 


14-480 


15-542 


•  ■>F'lE»«1D««SlSQ!0 
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Symbol  table 


L.LNO 

I. LPT 

L.LSA 

L.LSFC 

L.LSFI 

L.LTT 

L.MASQ 

L.f.AST 

L.MASZ 

L.NIN 

L.NXN 

L.NXTH 

L.OPD 

L.OPDL 

L.REM 

I. RFC 

L.RLA 

L.RNO 

L.RTQ 

L.RTYD 

l.RTYl 

L.SEC 

L.SEGZ 

L.STA 

L.TC 

L.TIC 

L.TIPD 

L.TIPI 

L.TMRD 

L.TMRI 

L.TYP 

L.USA 

L.USTA 

L.VER 

L.WIND 

MA. CI  = 

MA. DA  = 

MA.IL  = 

MC.CC  = 

MC.CI  = 

MC.DC  = 

MC.DI  = 

MC.NO  = 

MC.RC  = 

MD.BM  = 

MD.EM  = 

MD.IL5= 

MD.IM  = 

MF.ACK= 

MF.CTL= 

MF.DAT= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

MSSf'UP^ 

M$$N£T= 


000026 

000065 

000030 

000046 

0000A4 

000062 

000070 

000073 

000072 

000020 

000016 

000010 

000103 

000102 

000006 

000050 

OOOOOA 

000022 

000060 

000055 

000057 

000064 

000076 

000000 

0OO0A2 

0000A3 

000013 

000012 

000054 

000056 

000001 

000024 

000036 

000015 

000040 

000040 

000000 

000020 

000040 

000020 

000100 

000060 

000000 

000140 

000040 

000100 

000040 

000020 

000004 

000010 

000000 

000124 

000000 

000000 

000000 

000000 

000000 


H$$0VR= 

M.MAIL 

H.MAX 

M.MBL 

M.NAST 

M.NEXT 

H.RESP 

M.SPA 

M.TASK 

M.USE 

NC.FM0= 

NC.FM1= 

NC.FM2= 

NE$ABM= 

NE$ABO= 

NE$ACC= 

NE$ACT= 

NE$C0M= 

NE$FCF= 

NE$FMT= 

NE$GEN= 

NE$IFC= 

NE$ILS= 

NE$IMG= 

NE$ML8= 

NE$NNF= 

NE$NOD= 

NE$NSD= 

NE$NSL= 

NE$NSR= 

NE$RES= 

NE$SSR= 

NE$SSS= 

NE$TCN= 

NE$TCO= 

NE$TPA= 

NE$U0B= 

NF$BLK= 

NF$DM0= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$TIM= 

NM$ARA= 

NM$N0D= 

NO.DTR= 

NO.FAL= 

N0.FA1= 

N0.NCU= 

NO.RTL= 

rjO.TAS= 

N0.TCL= 

N0.TC1= 

NO.riK  = 

NS$DON= 

NS$SDI= 


000000 

000014 

000011 

000020 

000007 

000002 

000016 

000012 

000004 

000010 

000000 

000001 

000002 

000010 

000046 

000042 

000042 

000047 

000050 

000005 

000007 

000030 

000043 

000042 

000006 

000012 

000002 

000003 

000013 

000003 

000001 

000000 

000045 

000040 

000006 

000010 

000004 

000100 

000010 

000040 

000002 

000020 

000004 

000200 

176000 

001777 

000077 

000021 

000001 

000023 

000022 

000000 

000017 

000005 

000020 

000000 

000002 
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NS$UDC= 

000004 

N$$PEM= 

000001 

TSNLEN 

000010 

NT$AKD= 

000020 

N$$SES= 

000001 

TSNNUL 

000002 

NT$AKi= 

000022 

N.RAC 

000070 

TSNOPL 

000006 

NT$CC  = 

000016 

N.RACC 

000066 

TSNRNI 

000042 

NT$CON= 

000000 

N.RDE 

000012 

TSNRPL 

000005 

NT$CTL= 

000000 

N.RDEC 

000010 

TSNRUL 

000007 

NT$DAT= 

000002 

N.RFM 

000006 

TSNVR 

000001 

NTSDC  = 

000012 

N.RGP 

000010 

TSRPRl 

000040 

NT$DIS= 

000014 

N.RID 

000034 

TSSVC 

000034 

NT$DLS= 

000006 

N.RIDC 

000032 

T$T5 

000030 

NT$JLS= 

00001  1 

N.RND 

000000 

T$T6 

000032 

NT$IMS= 

0000:2 

N.RNH 

000016 

T$$KMG= 

000000 

NT$INT= 

000004 

N.RNMC 

000014 

T$$MIN= 

000000 

NT$RET= 

000032 

N.ROT 

000007 

USRCC 

0001 36RG 

NT$ROU= 

000024 

N.RPS 

000056 

USRCNF 

000220RG 

NT$RTR= 

000030 

N.RPSC 

000054 

USRDIS 

000364RG 

NT$TSP= 

000026 

N.RQL  = 

000110 

USROSC 

00031 2RG 

NT.ABP= 

000005 

N.RUS 

000012 

US$CNF= 

000002 

NT.ABT= 

000004 

PNTCCB= 

«*»***  GX 

US$D1S= 

000006 

NT.CON= 

000001 

P$$P45= 

000000 

US$D0N= 

000000 

NT.DSC= 

000003 

P$$WRD= 

000000 

US$DSC= 

000004 

NT.EVT= 

000006 

Q$$OPT= 

000010 

US$EAC= 

000012 

NT.INT= 

000002 

RMVLNK 

000102R 

US$WDS= 

000010 

NT.MOP= 

000010 

RMVWND= 

**»**♦  GX 

VE.FAI= 

177777 

NT.NSP= 

000010 

R$$DER= 

000000 

VS.NPV= 

000001 

NT.VFY= 

000007 

R$$K11= 

000001 

VS.PRV= 

000002 

NSACQ 

000000 

R$$SND= 

000000 

VZ.NVD= 

000000 

NSACTL 

000032 

R$$11M= 

000000 

V$$CTR= 

001000 

NSCJR 

000034 

R$$11S= 

000000 

WK.ACK= 

000001 

NSDLA 

000020 

STSCC  = 

000004 

WK.AST= 

000200 

NSDLY 

000014 

ST$CIR= 

000006 

UK.DIS= 

000010 

NSELEN 

000054 

ST$CIS= 

000002 

UK.INT= 

000020 

NSENC 

000042 

ST$DAT= 

000010 

UK.RCV= 

000004 

NSERRC 

000022 

ST$DIP= 

000012 

UK.SND= 

000002 

NSFLG 

000005 

ST$PND= 

000014 

WS.DIP= 

000010 

NSFNC 

000006 

S$$WRG= 

000000 

WS.INT= 

000002 

NSGENQ 

000052 

S$$YSZ= 

007600 

US.KAS= 

000004 

NSGTM 

000015 

TSFLAG 

000044 

WS.STA= 

000001 

NSHIGH 

000033 

TSLIF 

000013 

W.CINT 

000022 

NSLLT 

000026 

TSLIFL 

000013 

W.CSND 

000020 

NSLLTM 

000024 

TSLIFO 

000013 

W.CTL 

000000 

NSLVC 

000036 

TSLIFS 

000013 

W.KAST 

000014 

NSMBXQ 

000050 

TSLIN 

000000 

W.LLT 

000004 

NSPLLT 

000030 

TSLIPS 

000006 

W.LUN 

000003 

NSSLA 

000016 

TSLLD 

000012 

U.MBOX 

0000^2 

NSSNOD 

000012 

TSLLDC 

000045 

W.RCVQ 

000024 

NSTIM 

000004 

TSLLDL 

000012 

U.SEGZ 

000006 

NSVCB 

000010 

TSLLDO 

000012 

W.SNDQ 

000016 

N$$ACC= 

000001 

TSLLDS 

000012 

W.STAT 

000002 

N$$ACK= 

000011 

rSLLEN 

000046 

W.TMP 

000010 

N$$EVL= 

000001 

TSLOPR 

000002 

W.UBL 

000026 

N$$HDR= 

000007 

TSLTCL 

000024 

X$$DBT= 

000000 

N$$LDV= 

000001 

TSLTIM 

000026 

$CALLX= 

******  GX 

N$$MLL= 

000001 

TSLTPR 

000014 

$IOPKT= 

******  GX 

N$$MOV= 

000010 

TSLTPS 

000020 

$MAIBX= 

******  GX 

N$$NCT= 

000001 

rSNAPL 

000004 

$OPDAT= 

******  GX 

M$$OVR= 

000022 

TSNFE 

000000 

SOPLNG= 

******  GX 
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Macro  definitions 


se; 

Ma( 


16^ 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 


.SBTTL     SLI  outgoing  connect  request 
•  *-SLKON-SLI   outgoing  connect   request 


Inputs 


This  routine  is  called  to  perform  an  outgoing  connect  request  for 
the  system  level  interface. 

R4  =  Address  of  fCB 

C.8UF1  -  Connect  request  block 

C.8UF2  -  Optional  receive  data  buffer 

C.FLG2  -  uLA 

C.LIN  -  Flow  control  options 

C.STA  -  Source  PDV  index 
R5  =  Address  of  database  descriptor 


SLICON 


10$: 


100$: 


MAP 

MOV 

MOV 

MOV 

MOVB 

SOB 

MOVB 

CLR 

MOVB 

CALL 

BCS 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

RETURN 

MOV 
CALLR 


Map  to  the  connect  request  block 
Get  virtual  address  of  block 
Point  to  internal  connect  block 
Get  size  of  connect  block 
Copy  connect  block  to  local  buffer 


C.BUF(R4) 

C.8UF+2(R4),R2 

#$CN8LK,R1 

C.CNT(RA),RO 

(R2)  +  ,(R1H 

RO.IOl 

C.LIN(RA),$FLOW  ;  Set  up  requested  flow  control  options 
$LTM  ;  No  long  term  timer  support 

#LT.SL1,$LTYPE  ;  This  is  a  system  level  interface  link 


SNDCON 

100$ 

$RCCB,R'i 

R4,L.ACC(R3)    .  . 

C.FLG2(R4),L.ULA(R3) 

C.STA(R4),L.PDVC(R3) 

C.STA(R4),L.PDVD(R3) 


Transmit  the  connect  request 
If  CS,  error 
Recover  initial  CCB 
Save  control  CCB 


N$ERRC(R5),R1 
XMEERR 


Get  the  error  code 

Complete  the  request  in  error 
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SESSLI  -  Sessi 
Macro  defim'ti 

6A7 
6'.8 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
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ons 

.SBTTL  User  disconnect  completion 
♦♦-SLIDSC-User  disconnect  completion 


Complete  the  user  disconnect  request  when  the  network  disconnect 
processing  has  finished. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2,  R4 


SL]DSC::TSr 
BNE 
CALL 

CMPB 
BNE 

MOVB 

MOV 

MOV 

CALL 

RETURN 


10$: 


L.TJP](R3) 

10$ 

FLSXMT 


Are  there  any  transmits  outstanding? 
If  NE,  yes  ...  delay  completion 
Flush  pending  transmits 


#NS$D0N,L.CSTA(R3) 

10$  ;  Wait  until  network  processing  is  complete 

*US$D0N,L.USTA(R3) 

L.PCTL(R3),R4   ;  Get  address  of  control  CCB 
#S.SSUC,R1      ;  Disconnect  has  completed  with  success 
XMECM2         ;  Complete  the  request 


S! 
S! 

s; 
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410 

All 

412 

413 

4H 

415 

416 

417 

418 

419 

420 

421 

422 

423  000030 

424 

425 

426 

427 

428 

429 

430  000030 

431  000032 

432  000036 
433 

454 
435 

436  000042 

437  000044 

438  000046 

439  000050 
440 

441  000052 

442  000056 

443  000060 
444 

445  000062 

446  000066 

447  000072 

448  000076 

449  000102 


.SBTTL  Convert  one  RAD50  character 

«*-CVTC-Con\;ert  one  RAD50  character 

Convert  the  next  RAD50  character  to  ASCII. 

Inputs: 

R1  =  Packed  RAD50  word 

Outputs: 

RO  =  Next  character  from  word 
R1  =  Remaining  RAD50  characters 


CVTC: 


.IF  DF   R$$EIS 


010100 

012701  000050 


010146 
010001 
012600 
001412 

020027  000033 

002405 

001402 

062700  000011 

062700  177711 

062700  000040 

062700  000040 


10$ 
20$ 
30$ 


CLR 
OIV 

.IFF 

MOV 
MOV 
CALL 

.ENDC 

MOV 
MOV 
MOV 
BEQ 

CMP 
BLT 
BEQ 

ADD 
ADD 
ADD 
ADD 
RETURN 


RO 
#50, RO 


RI.RO 
#50, R1 
aCEDIV 


R1,-(SP) 
R0,R1 
(SP)+,RO 
30$ 

R0,#33 

20$ 

10$ 

#22-1 l.RO 
#11-100, RO 
#100-40, RO 
#40, RO 


Clear  upper  part 
Divide  them  up 


Copy  dividend 
Set  up  divisor 
Perform  the  division 


Save  remainder 
Quotient  to  remainder 
Recover  remainder 
If  ZERO,  blank 

Test  middle 
If  LT,  alpha 
If  EQ,  dollar 


SESSUB  -  Session 
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912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926  00212A 

927 

928  002124 

929  002126 

930  002132 

010367 

OOOOOOG 

931  0021 3o 

062703 

000014 

932 

933  002K2 

011304 

934  002144 

001432 

935  002146 

005700 

936  002150 

001410 

937  002152 

105764 

000010 

938  002156 

100403 

939  002160 

120064 

oooon 

940  002164 

001402 

941 

942  002166 

010403 

943  002170 

000764 

944 

945  002172 

011413 

946  002174 

116401 

000010 

947  002200 

042701 

177600 

948 

949  002204 

950  002210 

006301 

951  002212 

952  002220 

953  002224 

954  002230 

000744 

955 

956  002232 

957  002236 

958  002240 

959 

960  000334 

961 

962  000334 

963 

964 

965 

966 

967 

968  000340 

000356 
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.S8TTL  Flush  ei/ents  from  mailbox 

*»-FLSHMB-Flu5h  events  from  mailbox 

Flush  events  from  the  mailbox. 

Inputs: 

RO  =  LUN  of  events  to  be  flushed  or  zero  if  all  events 

R3  =  Address  of  mailbox 

R5  =  Address  of  database  descriptor 

Registers  modified: 
R1,  R2,  R3 


SE 
Re 


.PSECT 


FLSHMB: 

: SAVRG 
SAVMAP 
MOV 
ADD 

<R4> 

R3,$MA1BX 
#M.MA1L,R3 

10$: 

MOV 

BEQ 

TST 

BEQ 

TSTS 

BMI 

CMPB 

BEQ 

(R3),R4 

40$ 

RO 

30$ 

C.FNC(R4) 

20$ 

R0,C.M0D(R4) 

30$ 

20$: 

MOV 
BR 

R4,R3 
10$ 

30$: 

MOV 

MOVB 

BIC 

(R4),(R3) 

C.FNC(R4),R1 

#*C<177>,R1 

SAVRG 

ASL 

RECMAP 

CALL 

RESRG 

BR 

<R0,fi3> 
R1 

aFDISP-2(R1) 

<R3,R0> 

10$ 

40$: 

RESMAP 

RESRG 

RETURN 

<R4> 

.PSECT 

$HIGH 

.CC8RT 

CALLR 

aCCSRT 

;  + 

;  Resource  return  dispatch  table 

FDISP:   .WORD   FLCPM 


Get  a  free  register 
Save  mapping 
Set  up  mailbox  address 
Point  to  mailbox  listhead 

Get  next  entry  on  mailbox 

If  EQ,  no  more 

Are  we  flushing  the  entire  list? 

If  EQ,  yes 

Is  this  a  connect-type  function? 

If  MI,  yes  ...  no  LUN  to  match 

Is  request  for  this  LUN? 

If  EQ,  yes 

Move  on  to  next  entry  in  list 
and  try  again 

Unlink  entry  from  list 
Get  CCB  function  code 
Isolate  function  code 


Form  word  index 

Allow  dispatch  table  to  be  in  APR  6 

Dispatch  to  processing  routine 


Check  next  entry 

Restore  mapping 
Restore  register 


Need  one  more  indirection  to  handle 
vectored  exec 


connect  request 
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1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 

1387  002742 

1388  002750  016503  000026 

1389  002754  016304  000060 

1390  002760  001402 

1391  002762 
1392 

1393  002766 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 

1403  002766  016301  000070 

1404  002772 
1405 

1406  003002  016304  000052 

1407  003006  001405 

1408  003010  011463  000052 

1409  003014 

1410  003020  000770 
1411 

1412  003022  005000 

1413  003024  156300  000002 

1414  003030  006300 

1415  003032  066500  000040 

1416  003036  005010 
1417 

1418  003040 
1419 

1420  003044  016500  000030 

1421  003050  012701  000124 
1422 
1423 
1424 

1425  003054 
1426 
1427 
1428 
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.SBTTL  Remove  an  LLT 

♦♦-REMLNK-Remoue  an  LLT 

Remove  the  databases  describing  a  logical  link. 

Inputs: 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  always  set 


Registers  modified: 
RO,  R1,  R3,  R4 


REMLNK::mPLLT 
MOV 
MOV 
BEQ 
CALL 


10$: 


20$: 


30$: 


40$: 


MOV 

BEQ 

MOV 

MOVB 

CALL 

.ENDC 

MOV 
CALLE 

MOV 

BEQ 

MOV 

CALL 

BR 

CLR 

BISB 

ASL 

ADD 

CLR 

CALL 

MOV 
MOV 

.IF  DF 

CALLX 

.IFF 


N$LLT(R5),R3 
L.RTQ(R3),R4 
10$ 
RETRES 


;  Recover  mapping  to  LLT 

;  Recover  address  of  LLT 

;  Get  address  of  message  awaiting  retransmission 

;  If  EQ,  none 

;  Return  resources 


.IF  DF  N$$SLI 


L.ACC(R3),R4 

20$  ; 

#S.EABL,C.STS(R4) 

*FC.XCP,C.FNC(R4) 

aLLCRS 


Is  there  a  pending  connect/accept  CCB? 
If  EQ,  no 


Complete  the  request  in  error 


L.MASQ(R3),R1 
FLSLST 

L.ILSQ(R3),R4 

40$ 

(R4),L.ILSQ(R3) 

RETRES 

30$ 

RO 

L.LLA{R3),R0 

RO 

N$LVCt2(R5),R0 

(RO) 

DEAD8 

N$PLLT(R5),R0 
#L.LNG,R1 

l^$$MLL 

$DEACX,AUX 


;  Get  address  of  message  reassembly  queue 
;  Flush  the  list 

;  Get  next  I/LS  message  awaiting  ACK 
:  If  EQ,  none 

Remove  message  from  queue 

Return  the  resources 
and  try  again 


Get  local  link  address 

Form  word  offset 

Compute  address  in  LLT  table 

Remove  entry  from  the  LLT  table 

Deallocate  the  ECL  database 

Get  physical  address  of  LLT 
Size  of  the  block 


Deallocate  the  block 
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S.EACR= 
S.ECBE= 
S.EDBO= 
S.EERR= 
S.EIDM= 
S.E1NF= 
S.EIOF= 
S.ELNS= 
S.ELST= 
S.ELWS= 
S.EMTL= 
S.ENOF= 
S.ENRO= 
S.ENSL= 
S.ENUR= 
S.ECTB= 
S.ERBO= 
S.ERES= 
S.ERNS= 
S.ETM1= 
S.EUNN= 
S.EURO= 
S.SEOM= 
S.SSUC  = 
TKTCB  = 
TLACHK 

.  ABS. 


100336 

100204 

100206 

100210 

1002H 

100212 

100373 

100365 

1OO2I6 

100220 

100222 

100224 

100332 

100327 

100331 

100372 

100226 

100377 

100375 

100230 

100376 

100374 

000003 

000001 

»»»♦*»  3X 

003332RG 


TRMLNK 

TRMNET 

TRMUSR 

TSfLAG 

TSLIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

TSLLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 


003450RG 

003454RG 

0O3532RG 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 


177776 
003562 
SHIGH  000500 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 
(RW,I,LCL,REL,C0N) 


»»•  Assembler  statistics 


Work  tile  reads: 
Work  f i le  writes: 
Si'ze  of  work  file: 
Size  of  core  pool : 
Operating  system: 


189 

170 

36286  Words 

17608  Words 

RSX-11M/PLUS 


(  142  Pages) 
(  67  Pages) 


Elapsed  time:  00:01 :05.40 
SY:SESSUB11S.y2,[131,134]S 


TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

TSNVR 

TSRPRI 

T$SVC 

T$T5 

T$T6 

T$$KMG= 

T$$MIN= 

T.PCB  = 

T.RCVL= 

UISAR6= 

USRCNF= 

USRDIS= 

USRDSC= 

USTATE 

US$CNF= 

US$D1S= 

USSDON- 

US$DSC= 

US$EAC= 

US$WDS= 

VE.FAI= 


I  u 
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000006 

VS.NPV= 

000001 

W.SNDQ 

000016 

000042 

VS.PRV= 

000002 

U.STAT 

000002 

000005 

VZ.NVD= 

000000 

W.TMP 

000010 

000007 

V$$CTR= 

001000 

W.WBL 

000026 

000001 

WK.ACK= 

000001 

X$$DBT= 

000000 

000040 

WK.AST= 

000200 

ZTIM2  = 

****** 

GX 

000034 

WK.DIS= 

000010 

$AL0CX= 

****** 

GX 

000030 

UK.INT= 

000020 

$BYTE  :^ 

****** 

GX 

000032 

WK.RCV= 

000004 

$CALLX= 

****** 

GX 

000000 

WK.SND= 

000002 

$DEACX= 

****** 

GX 

000000 

W0RD1  = 

000302 

$ENCOD= 

****** 

GX 

**♦*♦*  GX 

W0RD2  = 

000010 

$I0PKT= 

****** 

GX 

»«****  GX 

WS.DIP= 

000010 

$LADDR= 

****** 

GX 

»***»*  GX 

US.INT= 

000002 

$MAIBX= 

****** 

GX 

*♦*♦»•  GX 

US.KAS= 

000004 

$MENU  = 

****** 

GX 

****»♦  GX 

WS.STA= 

000001 

$OPDAT= 

****** 

GX 

******  GX 

W.CINT 

000022 

$0PLNG= 

****** 

GX 

003516RG 

W.CSND 

000020 

SRCCB  = 

****** 

GX 

000002 

U.CTL 

000000 

$RQNAM= 

****** 

GX 

000006 

W.KAST 

000014 

$SEGMT= 

****** 

GX 

000000 

W.LLT 

000004 

$SESDB= 

****** 

GX 

000004 

W.LUN 

000003 

$$SHFT= 

000001 

000012 

U.MBOX 

000012 

$$$   = 

000062 

000010 

W.RCVQ 

000024 

.CCBRT 

000334R     002           | 

}77777 

W.SEGZ 

000006 

.$$$$.= 

000034 

1.SML/ML,[130, 

110]NETL1B/ML,[130 

10]RSXMCS/PA:1, 

[131, 10]V2, SESSUB 

SE 
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^.6 

A8 
49 
50 
51 
52 
53 

5-; 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
^A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 


.IF  NDF  R$$MPL 
.IF  DF  N$$MCP 
.SBTTL  Copy  and  install  TCB 

•*-$TC8CP-Copy  and  install  TCB 

This  routine  is  called  to  copy  an  installed  TCB  into  an  allocated 
TCB  and  link  it  into  the  system  task  directory.  Specifically, 
this  routine  doe?  the  following: 

1.  Copy  the  contents  of  the  installed  TCB  into  the  allocated  TCB 

2.  Initialise  all  listheads  in  the  allocated  TCB. 

3.  Transfer  any  send  packets  destined  for  the  allocated  TCB 

4.  Set  up  the  task  name  in  the  new  TCB 

5.  Link  the  new  TC8  into  the  system  task  directory  immediately 
after  the  TCB  input  as  the  prototype  installed  TCB 

Inputs: 

RO  =  Address  of  the  allocated  TCB 

r1  =  Address  of  the  installed  (prototype)  TCB 

R3  =  Address  of  the  task  name  double-word  for  the  allocated  TCB 

Outputs: 

RO  and  Rl  preserved 


.PSECT  $HI6H 


5$: 


$TC8CP::SAVNR 
SAVRG 
MOV 
MOV 
ASR 
CLR 
SOB 
TST 
M0V8 
CLRB 
CLR 
MOV 
MOV 
ADD 
CALL 


10$: 


CALL 

CLR 

CLR 

CMP 

MOV 

ADD 

MOV 

BIC 

MOV 

BJC 

MOV 

MOV 

MOV 


<R0,R1> 

RO,RA 

TLGTH,R2 

R2 

(R4)  + 

R2,5$ 

(R0)  + 

T.DPR1(R1),(R0)+ 

(R0)  + 

(R0)  + 

(R3)t,(R0)'- 

(R3)+,(R0)+ 

*T.RCVL,R1 

40$ 

a(SP)t 

(R0)  + 

(R0)  + 

(RO)  +  ,(RO)<- 

*TS.EXE!TS.OUT,( 

#T.ST2-T.EFLG,R1 

(R1)+,(R:) 

#*CT2.CH<,(R0)+ 

(R1)+,(R0) 

*T3.REMIT3.MCRIT 

(R1)+,(R0)+ 

(Rl)t,(R0)+ 

(R1)+,(R0)+ 


Save  M   and  R5 

Save  TCB  addresses 

Copy  allocated  TCB  address 

Get  length  of  TCB 

Set  number  of  words  to  zero 

Clear  all  of  TCB 

Skip  over  utility  link  word  (T.LNK) 
Init  running  priority  (T.PRI) 
Init  I/O  count  (T.IOC) 
Point  to  task  name  field  (T.CPCB) 
Copy  task  name 

Point  to  installed  TCB  RCVD  list 

Setup  receive  queue 

Mark  T.RCVL  call 

Setup  AST  queue 

Clear  EFN  words  (T.EFLG) 

Point  to  status  words  (T.UCB)  (T.TCBL) 
R0)+  ;  Init  first  status  word 

;  Point  to  installed  TCB  second  status  word 
;  Copy  second  status  word  (T.ST2) 
;  Clear  all  but  checkpointabi li ty  (T.ST2) 
;  Copy  third  status  word  (T.ST3) 
3.CAL,(R0)+  ;  Clear  necessary  bits  (T.$T3) 

(T.DPRI+T.LBN) 

(T.LBN+1) 

(T.LDV) 


SESTCB 
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ACCLLT= 

......  GX 

D$$BUG= 

177514 

ACKCl  = 

•••««•  GX 

DSSISK: 

OOOOOO 

A$tCHK= 

OOOOOO 

D$$L11= 

000001 

AS$CPS= 

000000 

D$$YNC= 

OOOOOO 

At$PRI= 

OOOOOO 

D$$YNM= 

OOOOOO 

At$TRP= 

OOOOOO 

ER$ABM= 

000010 

BRKLNK= 

«•••*•  GX 

ER$AB0= 

000046 

CL$MfL= 

000010 

ER$ABT= 

000011 

CL$SFL= 

000004 

ER$ACC= 

000042 

CL$TYP= 

000001 

ER$CD1= 

000052 

CL.MU1= 

000001 

ER$C0M= 

000047 

CL.MU2= 

000002 

ER$FMT= 

000005 

CL.RES= 

177774 

ER$MLB= 

000006 

C\/$MSK= 

000003 

ER$NNF= 

000012 

CV$31  = 

000001 

ER$NOD= 

000002 

CV$52  = 

OOOOOO 

ER$N5L= 

000013 

CV$^0  = 

000002 

ER$NSR= 

000003 

CSSORE= 

000400 

ER$RES= 

000001 

C$$RSH= 

177564 

ER$STA= 

000051 

OECPT  = 

»..»♦»  GX 

ER$U0B= 

000004 

DSAMXC 

000072 

E$$XPR= 

OOOOOO 

DSAMXH 

000074 

F$$LVL= 

000001 

DSANN 

OOOOOO 

G$$TPP= 

OOOOOO 

D$BRPR 

000102 

G$$TSS= 

OOOOOO 

OSBRTM 

000100 

G$$TTK= 

OOOOOO 

DSDELF 

000045 

G$$URD= 

OOOOOO 

DSDELW 

000046 

1N.DAT= 

000400 

DSEND  = 

000104 

IN.ILS= 

000001 

DSFNB 

000034 

I$$RAR= 

OOOOOO 

DSHIOR 

000024 

1$$RDN= 

OOOOOO 

DSHOST 

000022 

K$$CNT= 

177546 

OSINAC 

000044 

K$$CSR= 

177546 

DtlNCT 

000042 

K$$LDC= 

OOOOOO 

DSIPL 

000051 

K$$TPS= 

000074 

DSL  ID 

000020 

LA.ACK= 

100000 

DSLNAM 

000006 

LA.CRS= 

020000 

DSLNUM 

000014 

LA.MSK= 

170000 

DSLST 

000047 

LA.NAK= 

noooo 

DSMAXC 

000064 

LA.NMS= 

010000 

DSMAXH 

000066 

LA.RES= 

040000 

DSMAXV 

000070 

LA.WND= 

004000 

DSMLL 

000040 

LDSLP  = 

OOOOOO 

DSMNOD 

000041 

LF.DRD= 

000004 

D$NA 

000062 

LF.FRC= 

000001 

DSNBEA 

000056 

LF.HFO= 

000010 

DSNBRA 

000054 

LF.HMF= 

000040 

D$NEND= 

000054 

LF.HSF= 

000020 

DSNLN 

000030 

LF.IRD= 

000002 

D$NN 

000060 

LF.MMF= 

000200 

DSOUTT 

000043 

LF.MSF= 

000100 

DSRfTF 

000050 

LS.DLS^ 

100000 

OSRNN 

000002 

LS.FCC= 

000004 

DSRTMR 

000076 

LS.FCO= 

000001 

DSSEG 

00CO36 

LS.FC1= 

000002 

DSSER 

000032 

LS.IL5= 

100000 

DSSORl 

000052 

LS.MAK= 
LS.MNK= 
LS.RES= 
LS.RSV= 
LT.CCA= 
LT.DIR= 
LT.LCL= 
LT.LPL= 
LT.NOT= 
LT.RSU= 
LT.SLI= 
LT.TDA= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$S11R= 
L.CSTA 


.CTR 
.DCR 
.FLAG 
.ILSQ 
.JLTT 
.LDA 
.LIA 
LLA 
,LNG 
,LNO 


L.LPT 
L.LSA 
L.LSFD 
LSFI 
LTT 
MASQ 
MAST 
MASZ 
NIN 
,NXN 
_.NXTH 
L.OPD 
L.OPDL 
L.REM 
L.RFC 
L.RLA 
L.RNO 
L.RTQ 
L.RTYD 
L.RTYI 
L.SEC 
L.SEGZ 


,STA 

.TC 

.TIC 

.TIPD 

.TIP! 

.TMRD 


000020 

000040 

000360 

000300 

000020 

000010 

000001 

000002 

000040 

000200 

000004 

000100 

OOOOOO 

OOOOOO 

000001 

OOOOOO 

000037 

000074 

000100 

000014 

000052 

000066 

000032 

000034 

000002 

000124 

000026 

000065 

000030 

000046 

000044 

000062 

000070 

000073 

000072 

000020 

000016 

000010 

000103 

000102 

000006 

000050 

000004 

000022 

000060 

000055 

000057 

000064 

000076 

OOOOOO 

000042 

000043 

000013 

000012 

000054 
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L.TMRI 

000056 

NSLLT 

000026 

L.TYP 

000001 

NSLLTM 

000024 

L.USA 

000024 

N$LVC 

000036 

L.USTA 

000036 

N$MBXQ 

000050 

L.VER 

000015 

NSPLLT 

000030 

L.WIND 

000040 

NSSLA 

000016 

MA. CI  = 

000040 

NSSNOD 

000012 

MA. DA  = 

OOOOOO 

NSTIM 

000004 

MA.IL  = 

000020 

H$\/C.B 

000010 

MC.CC  = 

000040 

N$$ACC= 

000001 

MC.CI  = 

000020 

N$$EVL= 

000001 

MC.DC  = 

000100 

N$$LDV^ 

000001 

MC.DI  = 

000060 

N$$MLL= 

000001 

MC.NO  = 

OOOOOO 

N$$H0V= 

000010 

MC.RC  = 

000140 

N$$NCT= 

000001 

MD.BM  = 

000040 

N$$PEM= 

000001 

MD.EM  = 

000100 

N$$SES=: 

000001 

MD.ILS= 

000040 

P$$P45= 

OOOOOO 

MD.IM  = 

000020 

P$$URD= 

OOOOOO 

MF.ACK= 

000004 

0$$0PT= 

000010 

MF.CTL= 

000010 

RTRANS= 

******  GX 

MF.DAT= 

OOOOOO 

R$$DER= 

OOOOOO 

H$$CRB= 

000124 

R$$K11= 

000001 

M$$CRX= 

OOOOOO 

R$$SND= 

OOOOOO 

M$$FCS= 

OOOOOO 

R$$11M= 

OOOOOO 

M$$MGE= 

OOOOOO 

R$$11S= 

OOOOOO 

M$$MUP= 

OOOOOO 

SESTIM 

OOOOOORG 

M$$NET= 

OOOOOO 

ST$CC  = 

000004 

M$$0VR= 

OOOOOO 

ST$CIR= 

000006 

NC.FM0= 

OOOOOO 

ST$CIS= 

000002 

NC.FM1= 

000001 

SnDAT= 

000010 

NC.FM2= 

000002 

ST$DIP= 

000012 

NF$BLK= 

000100 

ST$PND= 

000014 

NF$DM0= 

000010 

S$$WRG^ 

OOOOOO 

NF$M0U= 

000040 

S$$YSZ= 

007600 

NF$RST= 

000002 

T  MCC 

0001 22R 

NF$SCN= 

000020 

T  MCIR 

0001 60R 

NF$SHU= 

000004 

T  MCIS 

00011  OR 

NF$TIM= 

000200 

TIMDIP 

0001 76R 

NS$DON= 

OOOOOO 

TIMDSP 

000074R 

NS$SDI= 

000002 

TIMNOP 

000072R 

NS';WDC  = 

000004 

TRMNET= 

******  GX 

NSACQ 

OOOOOO 

TRMUSR= 

******  GX 

NSACTL 

000032 

T$$KM6= 

onooo 

NSCIR 

000034 

T$$MIN= 

OOJOOO 

NSDLA 

000020 

US$CNF= 

000002 

NSDLY 

000014 

US$DIS= 

000006 

NSELEN 

000054 

US$DON= 

OOOOOO 

N$ENC 

000042 

US$DSC= 

000004 

NIERRC 

000022 

US$EAC= 

000012 

NSfLG 

000005 

US$WDS= 

000010 

N$FNC 

000006 

V$$CTR= 

001000 

NSGENQ 

000052 

X$$DBT= 

OOOOOO 

NSGTM 

000015 

$CALLX= 

».*♦*»  GX 

NSHIGH 

000033 

$$SHFT= 

000001 
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PAGE   1 

CREF       04.00 


S'l         JL 

Vt    JE 

REFERENCES 

ACPID^ 

000000 

R6 

#8-124 

AUXTSK 

000164 

R 

8-201 

#10-288 

CB.CCB 

=  000002 

10-316 

CCBDSP 

000000 

R 

#7-63 

8-151 

CCBRT 

r     ****** 

GX 

10-318 

CMPDV 

=     ****** 

GX 

8-126 

lS.LST 

=  040000 

10-322 

10-327 

ex. REM 

=  000020 

11-376 

11-438 

CX.REQ 

=  000002 

9-258 

11-437 

CX.RUl 

=  000040 

11-410 

ex. SMC 

=  000010 

10-304 

C.ADD 

000034 

10-292 

10-295 

C.BID 

000003 

10-316 

C.BJF 

000014 

11-412 

C.BUF2 

000024 

12-492 

C.CNT2 

000050 

12-506 

C.FNC 

000010 

8-148 

9-249             11-360 

C.MOD 

oooon 

8-149 

9-258           *10-304 

C.NSP 

000004 

*11-442 

C.PRO 

000042 

•10-306 

C.STS 

000012 

10-315 

10-327 

DFCPT 

=   ****** 

GX 

9-246 

■NCT 

000042 

9-247 

,  xiABO 

=  000046 

9-251 

lODUN 

000466 

rs 

#15-667 

I0DUN1 

000464 

RG 

15-661 

#15-665 

lOERR 

000454 

RG 

#15-660 

lOFIN 

~      ****** 

GX 

15-680 

lOSUC 

000460 

RG 

#15-663 

IS. sue 

-  ****** 

GX 

15-663 

I.FCN 

=   ****** 

GX 

8-178 

8-182 

1.LN2 

~  ****** 

GX 

8-189 

15-678 

I.PRM 

=  ****** 

GX 

♦15-679 

I.TCB 

r    ****** 

GX 

8-165 

KISAR6 

r:     ****** 

GX 

*8-136 

*8-150           •8-191 

NDISP 

000352 

R 

11-363 

#11-451 

NFSBLK 

=  000100 

8-154 

8-194 

NFSSCN 

=  000020 

8-197 

9-237 

NFSTIM 

^  000200 

8-127 

8-145             8-161 

NMCLH 

n  ****** 

GX 

10-288 

10-312 

NMCON 

000370 

R 

11-451 

#12-486 

NMEVT 

000376 

R 

11-456 

#12-499 

NMVFY 

000406 

R 

11-459 

#12-515 

NSFLG 

000005 

*6-127 

•8-145           •8-154 

NiGENO 

000052 

9-239 

9-265 

N$GTM 

000015 

»9-244 

•9-247 

N$TIM 

000004 

8-129 

♦8-133 

N$$ACC 

-^  000001 

11-458 

12-513 

NSIEVL 

=  000001 

*^2„ 

NttEXT 

~    ****** 

8-204 

N$I*1CP 

=r      ****** 

10-297 

11-380           11-395 

M$$5E3 

=  000001 

#6-54 

•11-376 


11-410 


•11-437 


11-438 


-200 


9-'67 


♦11-443 


-161 


12-486 


8-194 


12-'.99 


8-197 


13-520 


♦9-237 


♦9-267 
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04.00 


SYMBOL 

VALUE 

REFERENCES 

ACSDNT 

=  000002 

#6-49 

ACtX25 

=  000001 

#6-49 

AESCIR 

=  000003 

#6-49 

AESLIN 

=  000001 

#6-49 

AESMOD 

=  000004 

#6-49 

ALOCB 

r  i^**-*** 

GX 

8-161 

ALOCDB 

000274 

^ 

7-109 

#8-157 

BYTE3 

=  000300 

#7-112 

7-112 

#7-112 

7-112 

#7-112 

7-112 

7-112 

7-112 

CLSASZ 

=  010500 

#6-49 

CLSDLL 

=  000500 

#6-49 
6-49 

6-49 
6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

CLSECL 

=  000300 

'(,-49 

6-49 

CLSLDN 

=  010400 

#6-49 

6-49 

CLSMAN 

=  000000 

#6-49 

6-49 

6-49 

6-49 

CLSPAZ 

=  034100 

#6-49 

6-49 

6-49 

CLSPLH 

=  034000 

#6-49 

6-49 

6-49 

6-49 

6-49 

CLSPLL 

=  000600 

#6-49 

CLSPRT 

=  034200 

#6-49 

CLSROU 

=  010000 

#6-49 

6-49 

6-49 

CLSSES 

=  000200 

#6-49 

6-49 

6-49 

CLSSGE 

=  035000 

#6-49 

6-49 

6-49 

CLSSSE 

=  035100 

#6-49 

6-49 

6-49 

6-49 

6-49 

CLSTRN 

=  000400 

#6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

6-49 

CL$XL2 

=  013700 

#6-49 

CL$XL3 

=  013600 

#6-49 

6-49 

CL$X2S 

=  013500 

#6-49 

6-49 

DEACB 

-  ****** 

GX 

9-196 

DEALDB 

000362 

RG 

8-174 

#9-190 

DECPT 

=   ****** 

GX 

7-127 

DEVHD 

=      ****** 

GX 

7-86 

DLSAST 

=  000002 

#6-49 

DLSHLT 

=  000000 

#6-49 

DLSIST 

=  000001 

#6-49 

DLSMAI 

=  000004 

#6-49 

DlSOFF 

=  000001 

#6-49 

DLSON 

=  000000 

#6-49 

DLSRUN 

=  000003 

#6-49 

DLSSHU 

=  000002 

#6-49 

DLSSYN 

=  000005 

#6-49 

D$SE6 

000036 

7-128 

7-133 

•7-136 

D.NAM 

-   ****** 

GX 

7-89 

D.UCB 

-   ****** 

GX 

7-94 

D.UNIT 

—      ****** 

GX 

7-91 

EFSACT 

=  000001 

#6-49 

EVLSES 

-  ****** 

GX 

7-112 

EV$ACF 

=  000201 

#6-49 

EVSADR 

=  000420 

#6-49 

EVSADU 

=  000417 

#6-49 

EVSAPL 

=  000400 

#6-49 

EVSARC 

=  000421 

#6-49 
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SESMN  -  Session 
Session  control 

66 

67 

68 

69 

70 

71 

72 

73 

7A  000000 

75 

76  000000 

77 

78 

79 

80 

81 

82 

83  000000 

84 

85  000004 

86  000010 

87  000012 
88 

89  OOOOK 

90  000022 
91 

92  000030 

93  000034 

94  000040 

95  000046 
96 

97  000050 

98  000054 

99  000056 
100  000062 
101 

102  000064 

103  000070 

104  000100 

105  000102 

106  000110 
107 

108  000112 

109  000116 

110  000124 

111  000132 

112  000140 

113  000144 

114  000150 
115 

116  000160 

117  000166 

118  000170 

119  000204 
120 

121  000206 

122  000222 
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main  logic 

.SBTTL  Session  control  main  logic 
I- 
**-$SES0N-Session  control  main  logic 


This  routine  will  be  entered  when  the  network  ACP  (session  control) 
is  mounted. 


.PSECT  $HIGH 


SSESON: 


10$: 


20$: 


103507 


016705  OOOOOOG 

132765  000010  000005 
001770 

105765  000032 

001365 

005765  000050 

001362 


103004 

152765  000200  000005 


016700  OOOOOOG        30$: 

142760  OOOOOOG  OOOOOOG 

152760  OOOOOOG  OOOOOOG 

152760  OOOOOOG  OOOOOOG 

005060  OOOOOOG 


132765  000004  000005 
001407 

000406 

40$: 
142765  000054  000005  50$: 


R$$MPL 
R$$PRO 
TRNVEC 


.IF  DF 
.IF  NDF 
XQT 
.ENDC 
.ENDC 


SUSTK$  10$ 


CALL 

BCS 

RETURN 

XQT 
XQT 

MOV 
CALL 
BITS 
BED 

TSTB 
BNE 
TST 
BNE 

SWSTK$ 

CALLX 

BCC 

8IS8 

RETURN 

MOV 

BIC8 

BISB 

BIS8 

CLR 

CALL 

CALLX 

BITS 
BEQ 
EVT$ 
BR 

EVTI 
BICB 


SESINI 
100$ 


Translate  executive  vector 


Enter  system  state 

;  Initialise  session  control 
;  If  CS,  initialisation  failure 


Try  to  start  level  1  routing 
Try  to  start  level  2  routing 

Point  to  the  ECL  database 
Enter  main  idle  loop 

Loop  until  we  are  requested  to  dismount 

Are  there  any  active  logical  links? 
If  NE,  yes  ...  keep  running 
Are  there  any  active  mailboxes? 
If  NE,  yes  ...  keep  running 

Enter  system  state 

;  Initiate/check  for  circuit  shutdown 
If  CC,  all  circuits  shutdown 

Leave  system  state 

$UC8,R0        ;;  Get  address  of  UC8 

*US.MDM,U.STS(RO)  ; ;  Clear  the  'dismount  in  progress'  flag 

#US.MNT,U.STS(RO)  ; ;  Set  the  'not  mounted'  flag 

*US.OFL,U.ST2(R0)  ;;  Set  the  'off  line  '  flag 

U.ACP(RO)      ;;  Dismount  the  network 

DEALDB        ; ;  Deallocate  session  control  databases 

$XPTDC,XPT      ;;  Finalize  XPT  shutdown 

*NF1  ,N$FLG(R5);;  Did  we  exit  via  the  shut  state 
40$  ;;  If  EQ,  no 

2,0,,,  $OPR,SC$6fF*400!SC$SHU 
56$ 

2,0,,,RE$OPR,SC$OFF»400ISC$ON 
*NF$MOU 1 NF  $DM0 : NF  $SHU,N$F  LG (R5 ) 


RCPl 
RCP2 

$SESDB,R5 
ACPIDL 

*NF$DM0,N$FLG(R5) 
20$ 

N$ACTL(R5) 
20$ 

N$M8XQ(R5) 
20$ 

20$ 

$XPTDS,XPT 

30$  ; , 

#NF$TIM,N$FLG(R5) 
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Table  ot  contents 

Macro  definitions 

Receiued  message  processing 

Process  received  session  control  message 

Process  received  C]  message 

Process  a  returned  CI  message 

Process  received  CC  message 

Process  received  DI  message 

P'ocess  received  DC  message 

Get  optional  data  from  message 

Process  requested  connect  services 

Send  a  disconnect  initiate  message 

Retransmit  disconnect  initiate  message 

Retransmit  message 


ft- 

A? 

!- 

SI 

H- 

n 

9- 

1% 

10- 

;ai 

11- 

r'/S 

V- 

1S1 

n- 

40S 

K- 

4S() 

1S- 

4«^ 

16- 

SAA 

1/- 

Sr'H 

18- 

^98 
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SESPRO  - 
Process 

^82 

48A 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 


Session  control 
-equested  connec 


001352 
001354 
001362 
001366 
001374 

001376 
001402 
001406 
001410 
001414 
001420 

001426 
001432 
001436 
001442 
001446 
001450 

001454 
001456 
001464 
001470 
001474 
001476 

001504 
001510 
001512 

001520 
001524 
001532 
001534 


001542  016763 


J  5 

protoc  MACRO  V05.03b  Friday  28-Jun-85  19:57  Page  15 
t  services 

.SBTTL  Process  requested  connect  services 

h 

♦*-PR0C0N-Process  requested  connect  services 


005000 
016563 
017701 
026561 
001014 

012700 
116401 
001407 
012700 
010163 
016463 

116701 
110163 
042701 
020127 
002402 
052700 

050013 
016563 
116701 
032701 
001403 
152763 

032701 
001403 
152763 

017701 
026167 
103003 
016167 


Inputs 


Process  the  services  requested  by  the  connect  initiate  or  connect 
confirm  message. 

R3  =  Virtual  address  of  LLT 
R4  =  Address  of  CCB 

C.LIN  -  Channel  #  message  was  received  on 
R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1 


000012  000006 
OOOOOOG 
000012  000014 


000400 
000006 

001000 
000006 
000040  000010 

OOOOOOG 
000015 
177774 
000002 

010000 


PROCON:  CLR 
MOV 
MOV 
CMP 
BNE 

MOV 

MOVB 

BEQ 

MOV 

MOV 

MOV 


10$: 


20$: 


000016  000004 

OOOOOOG 

000004 

000020  000014 

000010        30$: 

000040  000014 

OOOOOOG       40$: 
000036  OOOOOOG 

000036  OOOOOOG 

OOOOOOG  000076  50$: 


MOVB 

MOVS 

BIC 

CMP 

BLT 

BIS 

BIS 

MOV 

MOVB 

BIT 

BEQ 

BIS8 

Bir 

BEQ 

Bise 

MOV 
CMP 
BHIS 
MOV 

MOV 

.IF  DF 

Move 


RO  ;  Assume  no  type  bits  to  be  set 

N$SN0D(R5),L.REM(R3) 

aDECPT.RI      ;  Point  to  our  node  name 

N$SN0D(R5),D$LNUM(R1)  ;  Check  the  node  source 

10$  ;  If  NE,  connect  was  not  from  ourselves 

#LT.LCL*400,RO  ;  Assume  this  is  an  internal  link 
C.LIN(R4),R1    ;  Get  the  channel  # 
10$  ;  If  EQ,  internal  loopback 

#LT.LPL*400,R0  ;  This  is  a  loopback  link 
R1,L.REM(R3)    ;  Store  channel  # 
C.ADD+4(R4),1 .NXTH(R3)  ;  Save  next  hop 

$INF0,R1  ;  Get  remote  NSP  version  number 

R1,L.VER(R3)  ;   and  save  for  later 

#*C<CV$MSK>,R1  ;  Isolate  remote  NSP  version  # 

R1,#CV$40  ;  Is  it  version  4.0  or  later?? 

20$  ;  If  LT,  no 

#LT.CCA*400,R0  ;  Indicate  that  we  can  send  cross  channel  ACK's 

R0,(R3)       ;  Set  link  type  flags 

N$SLA(R5),L.RLA(R3) 

$SRVCS,R1      ;  Get  requested  services 

#CL$SFL,R1      ;  Segment  flow  control? 

30$  ;  If  EQ,  no 

#LF.HSF,L.FLA6(R3) 

#CL$MFL,R1     ;  Message  flow  control? 
40$  ;  If  EQ,  no 

#LF.HMF,L.FLAG(R3) 


SS 
SS 

SS 
SS 


SS 

s; 


aDECPT,R1 
D$SEG(R1),$SEGMT 
50$ 
D$SEG(R1),$SEGMT 


Point  to  our  node  name 

Is  requested  size  larger  than  our  segment  size? 

If  HIS,  no 

Use  our  maximum  segment  size 


$SEGMT,L.SEGZ(R3) 

N$$SLI 

C.LIN(R4),L.CHN(R3) 
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corir  1  r  PC 


[, 
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»*F!LE**ID»'SLSQ10 


ssssssss 

EEEEEEEEEE 

ssssssss 

OOQQQQ 

in 

111 

000000 

ssssssss 

EEEEEEEEEE 

ssssssss 

QQQQQQ 

11] 

III 

000000 

ss 

EE 

SS 

QQ 

QQ 

00     00 

ss 

EE 

ss 

OU 

QQ 

00      00 

ss 

EE 

SS 

QU 

QQ 

00      00 

ss 

EE 

ss 

QQ 

QQ 

00      00 

ssssss 

EEEEEEEE 

SSSSSS 

QU 

QU 

00     00 

ssssss 

EEEEEEEE 

ssssss 

QU 

QQ 

00      00 

ss 

EE 

SS 

QU 

QQ   QQ 

00      00 

ss 

EE 

ss 

QQ 

QU   QQ 

00      00 

ss 

EE 

ss 

QQ 

QQ 

00      00 

ss 

EE 

ss 

QU 

QU 

00      00 

ssssssss 

EEEEEEEEEE 

ssssssss 

QQQQ   QQ 

111 

111 

000000 

ssssssss 

EEEEEEEEEE 

ssssssss 

QQQQ   QQ 

111 

111 

000000 

SE? 
Syn 

t$S 

Err 


Wor 
Wor 
Si; 
Si; 
Opf 

Eli 
SY 


1          1 

SSSSSSSS 

1          1 

SSSSSSSS 

111 

1        111 

SS 

111 

1        111 

ss 
ss 
ss 
ssssss 
ssssss 
ss 
ss 
ss 
ss 

IT 

111       111 

111 

ssssssss 

111 

111       111 

111 

ssssssss 
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SE 


$$SHFT=  000001 

ABS.   177776 
000600 
Errors  detected: 
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Symbol  table 


SES 
Mac 


000 
001 
0 


.$$$$.=  000034 

(RW.I.GBL.ABS.OVR) 
(RW,1,LCL,REL,C0N) 


*»♦  Assembler  statistics 


Work   file  reads:  102 

Work   f i le  writes:  102 

Size  of  work  file:  259A9  Words   (  102  Pages) 

Size  of  core  pool;  17608  Words   (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


SY:SESQI0lTs;v2?n31 J 3l]SESQI011S/CR/-SP=SV: CI  J ]RSXMCM.SML/ML,C1 30,11 OJNETLIB/ML, [130,1 0]RSXMCS/PA:1, [131,1 03V2, SESQIO 
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SE 


SESSLI  -  Session  contfol 
Macro  definitions 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2H 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

2A0 

241 

242 

243 


J  8 

system  MACRO  V05.03b  Friday  28-Jun-85  19:58  Page  11 

.SBTIL  Connect  request  compLetion 

**-SLICC-Connect  request  compLetion 

A  connect  request  has  been  completed  with  a  connect  confirm  (CO 
message. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modi  f ied: 
RO,  R1,  R2,  R4 


SE' 
Mai 


SLICC: 


10$: 

20$: 
30$: 


MOV 
CLR 
MOV 

MOV 

MOV 

CMP 

BLOS 

MOV 

MOV 

MOV 
BEQ 

MOV 

MAP 

MOV 

MOVB 

SOB 

MOV 
MOV 
CALL 

MOV 

MAPLLT 

RETURN 


L.ACC(R3),R4    ;  Get  address  of  initiating  CCB 

L.ACC(R3)      ;  None  present  now 

L.SEGZ(R3),C.CNT(R4);  Return  negotiated  segment  size  to  user 


#S.SSUC,-(SP) 

$OPLNG,R0 

R0,C.CNT2(R4) 

lOi 

C.CNr2(R4),R0 

#S.ELST,(SP) 

R0,C.CNT2(R4) 
30i 

#$0PDAT,R1 

C.eUF2(R4) 

C.8UF2t2(R4),R2 

(R1)+,(R2)- 

R0,20i 


Assume  successful  completion 

Get  length  of  optional  data  in  message 

Did  user  supply  enough  buffer  space? 

If  LOS,  yes 

Use  user  supplied  buffer  size 

Return  data  lost  error 

Return  length  of  optional  data 
If  EQ,  none 

;  Point  to  optional  data 

;  Map  to  the  supplied  buffer 

;  Point  to  the  supplied  buffer 

;  Copy  the  optional  data 


N$PLLT(R5),C.NSP(R4) 


(SP)+,R1 
XMECM2 

N$LLT(R5),R3 


Get  returned  status  code 
Complete  the  request 

Recover  LLT  address 
and  mapping 
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Mjir-rn     Hotini'tinnc 


SE 


SESSLl  -  Session  control 
Macro  definitions 

675 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
68A 
685 
686 
687 
688 
689 
690 
691 
692 
693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
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.SBTTL  Notify  user  of  logicaL  link  disconnect/abort 

**-SLIDIS-Noti fy  user  of  logical  link  disconnect/abort 

Queue  a  CC8  to  the  user  indicating  that  the  logical  link  has  been 
disconnected  or  aborted. 


Sf 


Inputs: 
R3 
R5 


Virtual  address  of  LIT 
address  of  database  descriptor 


Registers  modi  tied: 
RO,  R1,  R2,  R4 


SLJDIS::81S 

TST 
BNE 

CALL 
CALL 
BCS 

MOVB 

MOV 

MOVB 

Move 

NEG8 
MOVB 

CALL 

MOV 

CALL 


100$: 


#LT.DIR*A00,(R3);  Mark  disconnect  received  from  the  network 
;  Any  transmits  outs 


RETURN 


tstanding? 
If'NE,  yes  ...  can't  notify  user  yet 

;  Flush  pending  transmits 

;  Allocate  a  CCB 

;  If  CS,  allocation  failure 


L.TIPI(R3) 
100$ 

FLSXHT 
aCCBGT 
100$ 

#US$WDS,L.USTA(R3) 

N$PLLT(R5),C.NSP(R4) 

L.ULA(R3),C.FLG2(R4) 

L.DCR(R3),C.FLG2+1(RO 

C.FLG2t1(R4)    ;  Form  negative  form  of  disconnect  reason 

L.PDVC(R3),C.STA(R4) 

PNTCCB         ;  Point  CCB  at  optional  data 

#S$DSR*400+FC.RCP,C.FNC(R4) 

aLLCRS         ;  Queue  request  to  control  process 
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SESSUB  -  Session  control  subrou  MACRO  V05.03b  Friday  28-Jun-85  19:59 
Table  of  contents 

Macro  deti nit  ions 

Add  entry  to  general  delivery  queue 

Add  a  new  logical  link  database 

Add  mai I  to  mai  Ibox 

Add  optional  data  to  message 

Allocate  an  ECL  node  database 

Break  the  Logical  link 

Convert  RAD50  to  ASCII 

Convert  one  RAD50  character 

CVTDAS  -  Convert  address  to  ASCII 

Convert  ASCII  to  RAD50 

Con'^ert  C!  message  to  pending  connect  block 

Copy  image  field 

Copy  optional  outgoing  data 

Deallocate  ECL  node  database 

Flush  I/O  packets  from  a  window  block 

Flush  queue  of  I/O  requests 

Flush  events  from  mailbox 

Flush  pending  connect/verification  request 

Find  mailbox 

Allocate  a  data  buffer  for  message  transmission 

Requeue  I/O  request 

Kill  logical  link 

Map  object  number  to  task  name 

Point  CCB  buffer  descriptor  at  optional  data 

Process  image  field 

Process  descriptor  name 

Reject  a  logical  link  internally 

Remove  an  LLT 

Return  resources 

Release  connect  initiate  resources 

Remove  window  block  resources 

Save  optional  data  in  LLT 

Check  temporary  link  address 

Terminate  a  logical  link 

Process  user  disconnect  state 


6- 

4? 

!- 

6/ 

H- 

9H 

9- 

Vll 

10- 

r'4'5 

11- 

?n 

V- 

<SV 

li- 

<K1 

lA- 

410 

IS- 

4')1 

16- 

Ml 

1/- 

SH6 

18- 

Uk 

19- 

ISh 

?0- 

/H9 

VI- 

HV 

■??- 

H/H 

?',- 

9V 

?A- 

9// 

?f^- 

104H 

71- 

10/H 

?«- 

1H6 

V9- 

11S9 

^0- 

119? 

■il- 

V4() 

V- 

V// 

1^- 

Mo;^ 

^4- 

i«/ 

^^- 

IV? 

^t- 

14V 

V- 

1469 

^H- 

1491 

';9- 

IS^H 

AO- 

1')6? 

41- 

16?() 

Kl- 

1684 
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SESSUB  -  Session  control  subrou  MACRO  V05.03b  Friday  28-Jun-85  19:59  Page  15 
CVTDA5  -  Conuert  address  to  ASCII 


451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
465 
464 

465  000104 

466  000110 

467  000112 

468  000116 

469  000122 

470  000126 

471  000130 

472  000134 

473  000136 

474  000142 
475 

476  000144 

477  000146 

478  000150 

479  000152 
480 

481 
482 
483 
484 
485 
486 
487 
488 

489  000154 

490  000156 
491 

492 
493 

494  000162 

495  000166 

496  000170 

497  000172 

498  000176 

499  000200 
500 

501  000202 

502  000204 

503  000206 
504 

505  000210 

506  000212 

507  000214 


.SBTTL  CVTDAS  -  Coni/ert  address  to  ASCII 

*»-CVADAS-Conuert  node  address  to  ASCII  and  store  in  connect  block 

Inputs: 

RO  -  address  of  connect  block 
R5  -  ECL's  ddb  address 

Outputs: 

N.SND  in  connect  block  contains  ASCII  node  address 

Registers  modi  tied: 
R1,R5 


010002 

016500  000012 

062702  000030 

004467  000016 

000202' 

004467  000010 

000210' 


012403 
012305 
012346 


CVADAS 


CVT: 
10$: 


SAVRG 

MOV 

MOV 

ADD 

JSR 

.WORD 

JSR 

.WORD 

RESRG 

RETURN 

SAVRG 
MOV 
MOV 
MOV 


012601 


062700  000060 

110022 

010100 


000204 

000002 
024000 
002000 

000004 
001750 
000144 


CVTARE: 


CVTADD: 


MOV 
CLR 
DIV 

.IFF 

MOV 
CALL 

.ENDC 

ADD 

MOVS 

MOV 

SOB 

RESRG 

RTS 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 


<R0,R2> 

R0,R2 

N$SNOD(R5),R0 

#N.SND,R2 

R4,CVT 

CVTARE 

R4,CVT 

CVTADD 

<R2,R0> 


<R3> 

(R4)+,R3 
(R3)+,R5 
(R3)+,-(SP) 


.IF  DF  R$$EIS 


R0,R1 

RO 

(SP)'-,RO 


CSP)+,R1 
aCEDIV 


#60, RO 

R0,{R2)t 

R1,R0 

R5,10$ 

<R3> 

R4 

2 

10240. 

1024. 

4 

1000. 

100. 


Save  some  registers 
Copy  address  of  connect  block 
Get  node  address  to  convert 
Point  to  name  in  connect  block 
Convert  area  to  ASCII 

Convert  node  address  to  ASCII 


Get  address  of  conversion  table 
Get  number  of  digits  to  convert 
Get  divisor 


Set  up  for  divide 


Convert  to  ASCII 
Store  ASCII  digit 
Get  remainder 
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Flush  events  from  mailbox 


Si 
R( 


969  0005A2 

970  0003A4 

971  000346 

972  000350 

973  000352 

974  00C35A 
975 


OOOOOOG 
000334' 
000334' 
000334' 
003074' 
000356' 


WORD 

CMPINT 

2 

-  interrupt  message 

WORD 

.CC8RT 

< 

-  user  disconnect 

WORD 

.CC8RT 

4 

-  user  abort 

WORD 

.CC8RT 

5 

-  network  abort 

WORD 

RETRES 

6 

-  network  event 

WORD 

FLVFY 

/ 

-  network  uerification 

WORD 

FLMOP 

10 

-  mop  event 
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SESSUB  -  Session  control  subrou  MACRO  V05.03b  Friday  28-Jun-85  19:59  Page  35-1 
Remove  an  LIT 


H29 

U30 

1A31 

U32 

1433  00306A  105365  000032 

U3A  003070  000261 

U35  003072 


CALL 

aDEACS 

.ENDC 

0EC8 

SEC 

RETURN 

N$ACTL(R5) 

;  Deallocate  the  block 

;  Reduce  count  of  active  logical  links 
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SES5UB115  CREATED  BY  MACRO  ON  28-JUN-85  AT  20:00 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ACCLLT 

ACSDNT 

AC$X25 

ADDGNQ 

ADDLNK 

ADDMAl 

ADDOPT 

AESCIR 

AEtLIN 

AESMOD 

ALLDB 

ALOCB 

BRKLNK 

BYTE3 

CAT5 

CB.SDB 

CCBGT 

CCBRT 

CEACC 

CEDIV 

CEMUL 

CLSASZ 

CLSDLL 

CLSECL 
CLSLDN 
CLSMAN 
CLSPAZ 
CLSPLH 
CLSPLL 
CLSPRT 
CLSROU 
CLSSES 
CLSSGE 
CLSSSE 
CLSTRN 


CL$XL2 

CL$XL3 

CL$X2S 

CL.MUI 

CL.MU2 

CL.RES 

CMPINT 

CM. CON 

CNTRL 

CNVCI 

CPYIMG 

CPYOPT 

CSBGT 

CSBRT 


****** 
000002 
000001 
000000  RG 
000056  RG 
000356  RG 
000426  RG 
000003 
000001 
OOOOOA 
00052A  RG 
****** 

000744  RG 
000050 
000774  RG 
000010 

******   Q 

******  G 
******   G 


GX 


GX 


****** 
****** 
010500 
000500 

000300 
010400 
000000 
034100 
034000 
000600 
034200 
010000 
000200 
035000 
035100 
000400 


013700 
013600 
013500 
000001 
000002 
177774 


GX 


000200 
001134  R 
001152  RG 
001662  R 
001702  RG 
.*».».  GX 


REFERENCES 

34-1365 
#6-54 
#6-54 
#7-80 
#8-115 
#9-224 
#10-258 
#6-54 
#6-54 
#6-54 

8-167 

17-627 
#12-366 
#11-326 
#16-528 

36-1450 

17-621 

17-718 

8-136 

14-432 

16-565 
#6-54 
#6-54 

6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-5''. 
#6-5-* 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 

6-54 

6-54 
#6-54 
#6-54 
#6-54 

17-680 

17-699 

17-676 

23-969 

40-1608 

16-533 
#17-608 

17-683 
#19-772 

27-1111 

36-1467 


40-1602 
24-1014 

#11-297 

34-1367 
#11-326 


23-962 
17-646 
15-490 


6-54 
6-54 
6-54 
6-54 
6-54 
6-54 
6-54 


6-54 
6-54 
6-54 
6-54 
6-54 
6-54 


6-54 
6-54 


#16-579 
17-688 


11-326 


36-1464 
30-1215 


6-54 


6-54 
6-54 
6-54 


6-54 
6-54 
6-54 
6-54 
6-54 
6-54 


17-693 


J 

PAGE   1 

U 

CREF       04. 

00 

11-326 

11-326 

37-1487 
38-1527 

6-54 

6-54 

6-54 

6-54 

6-54 

6-54 

6-54 

6-54 

6-54 

6-54 
6-54 
6-54 

6-54 
6-54 
6-54 

6-54 
6-54 

6-54 
6-54 

6-54 
6-54 

6-54 
6-54 

17-708 

#18-747 

SE 
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105 

10^ 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1H 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

KO 

HI 

^2 

K3 

U4 

U5 

146 

147 

U8 

U9 

150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 


15$: 


20S: 


30$: 


32$: 


33$: 


37$: 


40$: 


50$: 
60$: 


MOV 

SIT 
BED 
MOV 
MOV 
MOV 
CMP 
CMP 
CMP 
MOV 

BIT 

BEQ 

CALL 

MOV 

CLR 

TST 

CALL 


BIT 
BEQ 
CALL 
CLR 

MOV 
ADD 
BIT 
BEO 

CMP 
CMP 

BIT 
BEQ 
CMP8 

BIT 
BEQ 

Move 

TST 

RESRG 

MOV 

MOV 

RETURN 

CLR 
MOV 
CMP 
BEQ 
CMP 
BNE 
MOV 
MOV 
MOV 
BEQ 
CMP 


(Rl)t,R2  ;  Pickup  PCB  address 

#PS.SYS,P.STAT(R2)  ;  System  controlled  partition? 

15$  ;  If  EQ,  no 

P.MAIN(R2) ,R2  ;  Ensure  pointing  to  main  partition 

R2,(R0)t  ;  Set  PCS  pointer  (T.PCB) 

(Rl)+,(RO)t  ;  (T.MXSZ) 

(R1)+,(R0)t  ;  (T.ACTL) 

(Rl)+,(RO)t  ;  (T.SAST) 

(R1)t,(R0)+  ;  (T.CKR,  T.TIO) 

(R1)+,(R0)+  ;  Set  task  size  (T.TKSZ) 

#FE.PLA,aFMASK  ;  Is  PLAS  available  on  this  system? 

20$  ;  If  EQ,  no 

a(SP)t  ;  Set  up  attachment  listhead 

(Rl)+,(RO)t  ;  Copy  offset  word  (T.OFF) 

(R0)+  ;  Clear  SREF  with  EFN  count  (T.SRCT-1) 

(R1)+  ;  Aduance  installed  TCB  pointer 

a(SP)t  ;  Set  up  receive  by  reference  listhead 

;  Mark  T.RRFL  call 

Is  parent-of fsrinn  task  available  on  this  system 

If  EQ,  no 

Setup  OCB  listhead 

Clear  rundown  count 

Get  address  of  features  mask 

Point  to  second  features  word 

Is  stop-bit  synchronization  supported  ? 

If  EQ,  no 

(T.EFLM) 

(T.EFLM+2) 


SE 
Sy 


Er 


Wo 
WO 
Si 
Si 
Op 

El 
St 


#FE.OFF,aFMASK   ; 
30$ 

a(SP)t 

(ROJ  ; 

FMAS<,R4 

#2,R4 

#F2.STP,(R4) 

32$ 

(R1)+,(R0)+     ; 

(R1)+,(R0)t 

#F2.SWP,(R4) 

33$ 

(R0)+,(R1)+ 

#F2.AHR,(R4) 

37$ 

(fi1)+,(R0)* 

(SP)  + 

<R1,R0> 

T.TC8L(R1),T.TC8L 

R0,T.TCBL(R1) 


(RO) 

R0,2(R0) 

(SP),#10$ 

50$ 

(SP),#20$ 

80$ 

R1,R5 

R5,R4 

(r5),R5 

80$ 

44(R5),-2(R3) 


Is  swapping  priority  there  ? 

If  EQ,  no 

(T.SPRI) 

Is  alternate  header  placement  supported 

If  EQ,  no 

(T.HDLN)  else,  copy  header  length 

Pop  coroutine  address 
Recover  TCB  addresses 
(RO)  ;  Link  allocated  TCB  into  STD 


Init  listhead  in  allocated  TCB 

Is"it  the  RCVD  list? 

If  EQ,  yes 

Is  it  the  RRFL  list? 

If  NE,  no 

init  pointer  to  start  of  list 

Save  pointer  to  previous 

Point  to  next  in  the  list 

If  EQ,  there  is  none 

Match  on  first  word  of  task  name? 
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Symbol  table 


.  ABS. 

0001?4 

000 

(RW, 

.GBL.ABS.OVR) 

000224 

001 

(Rg, 

,LCL,REL,C0NJ 

Errors 

detected: 

0 

«•  Assembler  statistics 


Work   tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  15706  Words   (  62  Pages) 

Size  of  core  pool:  16552  Words   (  63  Pages) 

Operating  system:  RSX-11M/PLU5 


it?SE!TIMlTs!v2?n3l!l3A]SESTlM11S/CR/-SP=SY:C1J]RSXMCM.SML/ML,C150J10]NETLiB/ML,[130J0]RSXMCS/PA:1,C13U 
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CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

NtSSi  I 

; 

****** 

7-63 

N$$SMC 

= 

****** 

GX 

10-305 

N$$VCT 

= 

****^  * 

8-136 

8-150 

8-191 

N.CUIC 

000066 

11-413 

P.HPR 

= 

****** 

GX 

8-167 

(jICDSP 

000026 

R 

#7-94 

8-192 

QRMVF 

= 

****** 

GX 

8-158 

RDBRT 

r 

X***** 

GX 

9-254 

10-320 

REJECT 

r 

****** 

GX 

9-252 

reqtsk; 

000316 

R 

9-260 

#11-360 

REQTS1 

00033^ 

R 

10-507 

#11-365 

RET 

000350 

R 

8-124 

#10-333 

R$$MPi 

- 

****** 

11-365 

11-380 

R$$PnO 

= 

****** 

11-417 

SCNGNQ 

000034 

R 

8-137 

#9-237 

SESTIM 

r 

■.■■*♦*** 

GX 

8-132 

SR5TD 

= 

****** 

GX 

11-371 

STPCT 

- 

****** 

GX 

8-220 

TKTCB 

=: 

****** 

GX 

8-156 

TSKRT 

3 

•♦*♦** 

GX 

11-422 

T.PCB 

- 

GX 

8-166 

T.RCVL 

= 

****** 

GX 

8-157 

T.ST3 

= 

****** 

GX 

*ll-440 

T3.REM 

= 

****** 

GX 

11-440 

UISAR6 

- 

****** 

GX 

8-136 

8-150 

8-191 

VFYNAM 

= 

****** 

GX 

12-515 

X$$HDR 

- 

****** 

8-169 

15-670 

15-682 

SCLQIO 

r 

GX 

7-93 

I^CNQIO 

= 

****** 

GX 

7-94 

SCOPT 

= 

****** 

GX 

10-306 

SCTQIO 

r 

****** 

GX 

7-96 

SDMQ.O 

r 

****** 

GX 

7-92 

tDSQIO 

= 

****** 

GX 

7-95 

$DPKT 

~ 

****** 

GX 

*8-163 

15-667 

SRCCB 

= 

****** 

GX 

»8-147 

SRQCPY 

r 

GX 

.10-305 

$RQTCB 

= 

**♦*♦♦ 

GX 

.11-378 

SSESPD 

~ 

#***»• 

GX 

8-126 

.SERCO 

= 

*  *  ft  *  *  * 

GX 

7-83 

-200 


11-443 


-200 


11-443 


SESDSP! 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


EVSAUC 

=  000010 

#6-49 

EVSAUS 

=  000003 

#6-49 

EV$CDF 

=  000520 

#6-49 

EVSCOZ 

=  000011 

#6-49 

EV$DBR 

=  000302 

#6-49 

EVSGAS 

=  035101 

#6-49 

EVSHCE 

=  0351H 

#6-49 

EVSHCI 

=  035113 

#6-49 

EVSHFE 

=  000506 

#6-49 

EVSIFL 

=  000A13 

#6-49 

EVSIFO 

=  000A15 

#6-49 

EVSIFS 

=  GOOAH 

#6-49 

EVSINF 

=  000515 

#6-49 

EVSLOL 

=  000407 

#6-49 

EVSLDN 

=  010416 

#6-49 

EVSLDO 

=  000411 

#6-49 

EVSLDS 

=  000410 

#6-49 

EVSLSC 

=  000500 

#6-49 

EVSLUP 

=  000412 

#6-49 

EVSNHL 

=  000402 

#6-49 

EVSNRC 

=  000416 

#6-49 

EV$NSC 

=  000200 

#6-49 

EVSNUL 

=  000401 

#6-49 

EVSNVR 

=  000406 

#6-49 

EVSGPL 

=  000403 

#6-49 

EVSPCC 

=  034000 

#6-49 

EVSPCi 

=  034001 

#6-49 

EVSPCM 

=  034002 

#6-49 

EVSPFE 

=  000404 

#6-49 

EVSPPC 

=  034003 

#6-49 

EVSRCF 

=  000517 

#6-49 

EVSRDC 

=  010001 

#6-49 

EVSRDR 

=  010002 

#6-49 

EVSRJE 

=  035106 

#6-49 

EVSRSC 

=  000501 

#6-49 

EVSRUL 

=  000405 

#6-49 

E\/$SNA 

=  035000 

(/6-49 

EVSSNF 

=  000516 

#6-49 

EVSSPE 

=  035001 

#6-49 

EVIXCE 

=  034110 

#6-49 

EVSXDI 

=  013600 

#6-49 

EVSXGW 

=  034111 

#6-49 

EVSXMX 

=  0005 U 

#u-49 

EVSXRS 

=  000512 

#6-49 

EVIXSC 

=  000513 

#6-49 

EV$X2S 

=  013500 

#6-49 

EV.CC8 

=  000001 

#6-49 

EV.CIR 

=  000020 

#6-49 

EV.LCB 

=  000100 

#6-49 

EV.LIM 

-  000004 

#6-49 

EV.MAP 

-  000002 

#6-49 

EV.MOD 

r  000040 

#6-49 
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Session  control  main  logic 


125  000230  017705 
124  000234 


OOOOOOG 


100$: 


MOV 
CALLR 


aTKTCB,R5 
aDREXT 


Get  my  TCB  address 
and  exit 
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Execute  a  directi^'e 
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2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESPRO  -  Session  control  protocol  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  chaiige  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  protocol  processing 

Ident  history: 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Macro  definitions 
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Process  requested  connect  seruices 


SE 


539 

5A0 
541 
%2   001550 


.ENDC 
RETURN 
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Send  a  disconnect  initiate  message 
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SESQIO  -  Session  control  Q!0  co  MACRO  V05.05b  Friday  28-Jun-85  19:58 
Table  of  contents 

Macro  definitions 

Copy  optional  data  for  connect  completion 

Remoue  logical  link 

Connect  request  completion 

Connect  request  failure 

User  disconnect  completion 

Notify  user  of  logical  link  disconnect/abort 

Disconnect  completion 


f^- 

A? 

1- 

60 

«- 

108 

9- 

HO 

10- 

161 

11- 

194 

V- 

rm 

15- 

269 
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SYMBOL    CROSS   REFERENCE 


K     7 

PAGE   1 

CREf        OA.OO 


SE! 
Mat 


SYMBOL 

VALUE 

REFERENCES 

ACCLLT 

=   ****** 

GX 

13-293 

ADDMAI 

-   ****** 

GX 

12-262 

CCBGT 

=   ****** 

GX 

12-242 

CCBRT 

=   ****** 

GX 

13-291 

CPYCNC 

000000 

R 

#7-81 

9-144 

10-181 

C.FNC 

000010 

*12-254 

C.MOD 

000011 

♦12-260 

C.NSP 

OOOOOA 

»12-247 

C.STS 

000012 

*12-258 

13-290 

DISCMP 

000520 

RG 

#13-283 

EPSABT 

=  000011 

12-250 

ESNBR 

oooou 

#6-49 

E$NBS 

000020 

#6-49 

ESNCR 

000034 

#6-49 

ESNCS 

000036 

#6-49 

ESNIC 

000044 

#6-49 

ESNLEN 

000050 

#6-49 

ESNLLA 

000012 

#6-49 

E$NLN< 

000000 

#6-49 

ESNML 

000040 

#6-49 

ESNMR 

000024 

#6-49 

E$NMS 

000030 

#6-49 

ESNNOD 

000002 

#6-49 

EtNRT 

000042 

#6-49 

ESNRTP 

000005 

#6-49 

ESNSEG 

000010 

#6-49 

E$NT!M 

000046 

#6-49 

ESNUSE 

000004 

#6-49 

ESSTRT 

000006 

#6-49 

FLSHIO 

-   ****** 

GX 

12-265 

lE.DAO 

r  ****** 

GX 

10-184 

lE.NRJ 

-  ****** 

GX 

10-177 

lE.URJ 

=  »»♦*** 

GX 

10-180 

lODUN 

;:  ****** 

GX 

9-155 

10-190 

lOSUC 

r  ****** 

GX 

11-216 

13-298 

IS.DAO 

-  ****** 

GX 

9-147 

IS. sue 

=  ****** 

GX 

9-145 

I.PRM 

~     ****** 

GX 

7-88 

7-90 

7-97 

7-98 

KISAR6 

3  ****** 

GX 

•  7-97 

•7-105 

♦9-158 

L.CSTA 

000037 

11-207 

L.DCR 

000100 

10-178 

12-247 

12-250 

L.SEGZ 

000076 

9-151 

L.USTA 

000036 

•10-175 

•11-213 

•12-245 

•13-295 

L.WIND 

000040 

7-84 

8-122 

9-149 

11-210 

M.USE 

000010 

•8-125 

NSSDON 

=  000000 

11-207 

NT. ABO 

=  000005 

12-252 

NT. AST 

=  000004 

12-249 

NT. DSC 

=  000003 

12-246 

NSLLT 

000026 

9-157 

NSLLTM 

000024 

7-105 

9-158 

N$$BJf 

r  ****** 

12-237 

12-234 


12-257 
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SE 

Ma 


SESSLl  -  Sess 
Macro  detinit 

245 
2A6 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
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.SBTTL  Connect  request  failure 
**-SLICNF-Connect  request  failure 


SE 
Ma 


A  connect  request  failed  because  the  CJ  message  was  returned  from  an 
intermediate  node  or  the  CI  request  timed  out. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modi  f ied: 
RO,  R1,  R2,  R4 


SLICNF::M0V8 
MOV 
CLR 
MOV 
NEG 
CALLR 


#US$D0N,L.USTA(R3) 

L.ACC(R3),R4 

L.ACC(R3) 

L.DCR(R3),R1 

R1 

XMECM2 


Get  the  connect  request  CCB 
No  connect  request  now 
Get  the  reason  for  the  failure 
Negate  the  reason  code 
Complete  the  request  in  error 


SESSLl  -  Session  control 
Macro  definitions 


sy 


L  8 
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SE 
Ms 


SESSLI  - 
Macro  de 

709 
710 
711 
712 
713 
7K 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 


Session  c 
tinitions 
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.SBTTL  Complete  connect  accept  request  in  error 

**-SLIEAC-ConipLete  connect  accept  request  in  error 

A  disconnect  message  has  been  received  in  response  to  a  connect 
accept  message.  This  is  most  likeLy  caused  by  a  duplicate  coinect 
initiate  message  being  received  at  this  node.  Return  the  connect 
accept  CCB  with  an  error  code. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2,  R4 


SLIEAC::MOV 
CLR 
MOV 

Move 

CALL 

Move 

RETURN 


L.ACC(R3),R4    ;  Get  the  pending  connect  accept  CCB 

L.ACC(R3)       ;  None  present  now 

#S.EAeS,C.STS(R4) 

*f C.XCP,C.FNC(RA) 

aLLCRS         ;  Complete  the  accept  in  error 

#US$D0N,L.USTA(R3) 
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3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AG 


.TITLE  SESSUB  -  Session  control  subroutines 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynarci,  MASS. 


The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  subroutines 

Ident  history: 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  VA.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSK  VI. 0 
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MArrn  dpfim'tions 
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CVTDAS  -  Conuert  address  to  ASCII 


508  000?16 

509  000220 


000012 
000001 


.WORD   10. 
.UORD   1. 
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fnnu^rt  ASCII  to  RAD50 


Page  16 


SESSUB  -  Session  control  subrou. 
Flush  oending  connec t/veri f icat i 


977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
99A 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
10U 


K  12 

MACRO  VO5.03b  Friday  28-Jun-85   19:59     Page  24 
on  request 


000356 

000356  016700  OOOOOOG 

000362  105360  000010 

000366  132764  000005  000011 

000374  001404 


000376  012701  000046 
000402 


.SBTTL  Flush  pending  connect/verification  request 

**-FLCON-Flush  connect  request 
•♦-FLVFY-Flush  verification  request 

Flush  a  pending  connect  or  uerification  request  from  the  mailbox 
queue. 

Inputs: 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Registers  modi  tied: 
RO,  R1,  R2,  R3 


Recover  mailbox  address 
Reduce  active  link  count 
M0D(R4) 
If  EQ,  re-queue  on  general  delivery  queue 


000406 


000406 


FLCON: 
FLVFY: 

MOV 
DECB 
BITS 
8EQ 

$MAI8X,R0 
M.USE(RO) 
*CX.GDQICX.UNl,C 
20$ 

.IF 

TST 

BED 

CALL 

.IFTF 

DF  R$$PRO 

C.PR0(R4) 

10$ 

REMVT 

;  DF  R$$PRO 

10$: 

MOV 
CALLR 

#ER$AB0,R1 
REJECT 

20$: 

.IFT 

TST 

BEQ 

;  DF  R$$PRO 

C.PR0(R4) 

10$ 

.ENDC 

;  DF  R$$PR0 

CALLR 

ADDGNQ 

Is  there  a  VT:  allocated?? 

BR  if  not,  just  reject  the  connect. 

Else,  dump  the  virtual  terminal. 


Set  reason  for  rejection 
Reject  the  connection 


Does  this  connect  have  a  VT:?? 

BR  if  not.  **TEMP**  dont  requeue  request. 

...Later  this  will  cause  a  new  VT  to  be 
. .  .allocated. 


Add  CCS  to  general  delivery  queue 
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SESSUB  - 

Session 

Return  resources 

1437 

H38 

U39 

UAO 

14A1 

UA2 

HA3 

HAA 

UA5 

1AA6 

003074 

KA7 

1AA8 

003076 

1AA9 

003102 

1A50 

003106 

U51 

003112 

1A52 

003114 

1A53 

1A5A 

003122 

1A55 

003126 

1A56 

1457 

003130 

1A58 

003132 

1459 

1460 

1461 

1462 

1463 

1464 

003134 

1465 

003136 

1466 

003140 

1467 

003142 
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.5BTTL  Return  resources 
♦*-RE1RES-Return  resources 

Return  the  resources  described  by  a  CCS. 


Inputs: 
R4 


116405  000003 

042705  177761 

120527  000010 

001003 

016464  000026  000016 

017505  003132' 


RETRES: 


10$: 


Address  of  CCB 
SAVRG   <R5> 


Move 

BIG 
CMP8 
BNE 
MOV 

MOV 
CALL 

RESRG 
RETURN 


C.8ID(R4),R5 

#''C<16>,R5 

R5,#CB.SDB 

lOi  ,  ii  iML, 

C.euF2<-2(R4),C.8UF+2(R4) 


Get  a  free  register 

Get  buffer  ID  field 
Isolate  code 

Is  this  a  small  data  buffer? 
If  NE,  no 


aRETrB-2(R5),R5 
(R5) 

<R5> 


Resource  return  dispatch  table 


OOOOOOG 
OOOOOOG 
003141' 
OOOOOOG 


RETTB: 


.WORD  CCBRT 

.WORD  LD8RT 

.WORD  .t1 

.WORD  CSBRT 


Get  address  of  routine 
Return  the  buffer 

Recouer  the  register 


Return  a  CCB 

Return  a  large  data  buffer 

Reserved 

Return  a  combined  CCB  and  small  data  buffer 
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SESSUB11S  CREATED  BY 

MACRO  ON  28-JUN-85  AT 

20:00 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CTRSES 

r  ****** 

r,x 

8-206 

10-263 

17-706 

CVADA5 

000104 

R 

#15-465 

17-661 

CVT 

000144 

R 

15-469 

15-471 

#15-476 

CVTADD 

000210 

R 

15-472 

#15-505 

CVTARE 

000202 

R 

15-470 

#15-501 

CVTBL 

001144 

R 

16-530 

16-571 

#16-582 

CVTC 

000030 

R 

13-399 

13-401 

13-403 

CX.GDQ 

=  000001 

7-80 

24-995 

CX.REQ 

=  000002 

7-80 

CX.UNL 

=  000004 

24-995 

40-1597 

C.BID 

000003 

36-1448 

C.BUF 

000014 

10-266 

♦17-634 

•17-642 

•27-1117 

•31-1257 

•31-1265 

C.BUF2 

000024 

»17-635 

17-640 

•27-1118 

C.CNT 

000020 

•17-698 

•17-704 

•31-1268 

C.FLG2 

000032 

•17-633 

C.FNC 

000010 

23-937 

23-946 

40-1608 

C.LIN 

000006 

34-1364 

40-1601 

C.MOD 

000011 

•7-80 

23-939 

24-995 

C.NSP 

000004 

•27-1122 

40-1595 

C.RSV 

000002 

•27-1120 

C5TA 

000000 

RG 

#13-399 

DEACB 

=      ****** 

GX 

17-716 

37-1486 

38-1533 

DEADB 

001754 

R 

#20-802 

35-1418 

DECPT 

=   ****** 

GX 

7-92 

11-334 

17-613 

DLSAST 

=  000002 

#6-54 

DLSHLT 

=  000000 

#6-54 

PAGE   2 

CREF        04.00 


SE 


#14-423 


17-664 

•31-1266 

36-1452 


•27-1121 


17-643 


17-670 

•36-1452 

37-1484 


40-1597 


17-713 


18-749 


27-1108 


27-1116 


DLSIST 

=  000001 

#6-54 

DLSMAI 

=  000004 

#6-54 

DLSOFF 

=  000001 

#6-54 

DLSON 

=  000000 

#6-54 

DLSRUN 

=  000003 

#6-54 

DLSSHU 

=  000002 

#6-54 

DLSSYN 

=  000005 

#6-54 

DONE 

003506  R 

#41-1648 

41-1654 

41-1662 

DSTATE 

000760  R 

12-367 

#12-374 

DSINCT 

000042 

7-93 

DSLNUM 

000014 

17-614 

DSOUTT 

000043 

11-335 

DtRNN 

000002 

17-644 

EFSACT 

=  000001 

#6-54 

ERtABO 

=  000046 

24-1004 

ERSFMT 

=  000005 

17-631 

ERSRES 

=  000001 

8-116 

17-620 

27-1104 

EVDSC 

-  ***♦•*  GX 

11-319 

EVLSES 

=  ••♦»»«  GX 

11-326 

EVSACF 

=  000201 

#6-54 

EVtADR 

=  000420 

#6-54 

EVSADU 

=  000417 

#6-54 

El/$APL 

--  000400 

#6-54 

EVSARC 

=  000421 

#6-54 

EVSAjr 

=  000010 

#6-54 
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160 
161 
162 
163 
16A 
165 
166 
16? 
168 
169 
170 
171 
172 
173 
17^ 
175 
176 
177 
178 
179 
180 


70$: 


80$: 


000001 


BNE 
CMP 
BNE 

MOV 
BNE 
MOV 
CLR 
MOV 
HOV 
BR 

CMP 

CMP 

CALL 

BR 

.ENDC 

.ENDC 

.END 


60$ 

«6(R5),(R5) 

60$ 

(R5),(RA) 

70$ 

R4,2(R1) 

(r5) 

R5,a2(R0) 

R5,2(R0) 

50$ 

(R0)t,(R0)*- 
(R1)+,(Rl)t 
a(SP)t 
^0$ 


If  NE,  no 

Match  on  second  word  of  task  name? 

If  NE,  no 

Unlink  packet  from  I ist 

If  NE,  was  not  the  last  in  the  list 

Update  last  in  list  pointer 

Clear  link  word 

Link  to  end  of  allocated  TCB  list 

Update  last  in  list  pointer 

Restart  scan 

Bump  both  pointers 

Caii'the  caller  back 
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SESHMl 

S  CREATED  BY 

MACRO  ON  21 

-JUN-85  AT  20:01 

SYMBOL 

-ROSS  REFEREfJCE 

SYMBOL 

VALUE 

REFERENCES 

ACCLLT 

=  ..«»«. 

GX 

7-72 

ACKCl 

r  » t*  t  *  * 

GX 

8-150 

BMKLNK 

=  »•»*** 

GX 

8-H3 

DECPT 

r  ****** 

GX 

8-130 

DSOUTT 

0OOQ';3 

8-131 

ERSCOM 

=  0OOOA7 

8-U2 

LT.LCL 

=  000001 

8-158 

L.LPT 

000065 

8-UO 

L.TMRD 

oooor^ 

7-82 

NF$riM 

=  000200 

7-78 

NtDLY 

oooou 

♦8-131 

NSFLG 

000005 

•  7-78 

NSLVC 

000036 

7-66 

7-67 

NSSEVL 

=  OOOOC-I 

#4-2 

N$$SES 

=  000CO1 

*6-51 

N$$SL1 

-  ****** 

7-99 

N$$VCT 

-■  ****** 

7-72 

8-150 

RTRANS 

=    ****** 

GX 

8-138 

SESTIM 

000000 

RG 

#7-66 

STSDAT 

=  000010 

7-76 

TIMCC 

000122 

R 

7-94 

#8-132 

TIMCIR 

000160 

R 

7-95 

#8-U8 

TIMCIS 

000110 

R 

7-93 

#8-130 

TIMDIP 

000176 

R 

7-97 

#8-157 

TIMDSP 

00007A 

R 

7-83 

#7-93 

■■IMNOP 

000072 

R 

#7-87 

7-105 

TRMNET 

=   ****** 

GX 

8-166 

TRMUSR 

=   ****** 

GX 

8-157 

$C4LLX 

r  ****** 

GX 

7-72 

8-150 

K  16 
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SESDSP1":   CREATED  B*  MACRO  ON  28-JUN-85  AT  19:56 
MACRO  CROSS  RffERENCE 


L  1 

PAGE  3 

CREF   04.00 


MACRO  NAME 

REFERENCES 

CALL 

8-124 

8-132 

8-137 

8-151 

8-158 

8-192 

10-307 

10-318 

10-320 

11-363 

11-371 

n-422 

CALLR 

8-220 

CCBDFt 

#6-45 

6-47 

CNBOFS 

#6-4  5 

6-52 

DHBt)F$ 

#6-45 

6-48 

ECDDBi 

#6-45 

6-49 

LlTD-1 

#6-45 

6-51 

MAP 

#6-44 

MAPLL^ 

#6-44 

MBXDFS 

#6-45 

6-50 

RECMAP 

#6-44 

8-136 

8-150 

8-191 

8-200 

11-443 

RESRG 

#6-44 

11-425 

RETURN 

9-269 

10-333 

11-444 

12-493 

12-507 

12-516 

SAVRG 

#6-44 

11-415 

SUS'ift 

8-124 

8-201     9-252 
15-680 


9-254 


9-260 


15-689 


SESINIIIS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:56 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


L  2 

PAGE  3 

CREF   OA.OO 


EV.NOD 

EV.PRT 

ESDATA 

ESEVTS 

ESLCN 

E$LIN 

ESMOD 

E$NBR 

ESNBS 

E$NCR 

ESNCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

ESNML 

E$NMR 

ESNMS 

ESNNOD 

ESNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESPORT 

ESPRM 

ESSTAT 

ESSTRT 

E$TCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.INK 

E.MOD 

E .  NOD 

E.PDV 

E.PORT 

E.PRM 

E.PV'C 

E.SIZ 

E.TiME 

FRSBCr 

fRSCCF 

FR$CDf 

FRSDAO 

FRtEXC 

FR$FRM 

FRtFTi^ 


=  000010 
=  000200 
000020 
000000 
000016 
000000 
000012 
OOOOH 
000020 
00033A 
000036 
0000A4 
000050 
000012 
000000 
OOOOAO 
00002A 
000030 
000002 
000010 
000042 
000005 
000010 
000046 
000004 
OOOOU 
000002 
000006 
000006 
000004 
000020 
000046 
000002 
000042 
000216 
000024 
000000 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 
=  000007 
:r  000001 
=  000002 
-  000011 

^  oooooc 

=  00001 c 
=  000005 


REFERENCES 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-49 

#6-51 

#6-51 

#6-51 

#6-51 

#6-51 

#6-49 

#6-49 

#6-49 

#6-51 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 

#6-49 
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SESMN  - 
Execute 

126 
127 
128 
129 
130 
131 
132 
133 
13^; 
135 
136 
137 
138 
139 
1^0 
141 
K2 
U3 
U4 
1A5 
1A6 
U7 
1A8 
K9 
150 
151 
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a  di  rec ti ve 


.SSTTL  Execute  a  directive 
I- 
**-$XOTDR-Execute  a  directive 

Execute  a  directive  and  recover  from  possible  dynamic  storage 
allocation  failure. 

Calling  sequence: 

JSR     R5,$XQTDR 
.WORD  <Address  of  DPB> 


Outputs 


0002A0 

0002A4  103011 

0002A6  126727  OOOOOOG  OOOOOOG 

000254  001004 

000256 

000264  000765 

000266  000261 

000270  032505 

000272  000205 


C  Clear  -  Directive  succeeded 
'C  Set   -  Directive  failure  other  than  allocation  failure 

;  Execute  the  directive 
;  If  CC,  successful 

;  Allocation  failure? 

;  If  NE,  no  ...  return  error  to  caller 

;  Wait  for  significant  event 

;  Try  directive  again 

;  Indicate  real  failure 

;  Pop  return  link  leaving  C-bit  atone 


iXQTDR: 

:DIR$ 
BCC 

(R5) 
20$ 

CMPB 
BNE 

USIG$S 
BR 

$DSW,#IE.UPN 
10$ 

$XQTDR 

10$: 
20$: 

SEC 
BIT 
RTS 

(R5)+,R5 
R5 

M  3 
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Local  data  areas 
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Macro  definitions 


42 
43 
44 
45 
46 

47  000000 

48  000000 

49  000000 

50  000000 

51  000000 

52  000000 

53  000000 
54 

5'^ 


000001 


N$$SES 


.SBTIL  Macro  definitions 

.MCALL  SAVRG, RE SRG, MAP, CALLE, COUNTS, MAPLLT 

.MCALL  CC8DFi,ECDDB$,LLTDF$,MSGDF$,CTRDf$,XPTDF$ 

.MCALL  DH8DF$ 

CCBDFS  ;  Define  CCB  offsets 

ECDDBS  ;  Define  ECL  database  offsets 

LLTDFS  ;  Define  LLT  offsets 

MSGDFS  ;  Define  message  values 

CTRDFS  ;  Define  counter  block  offsets 

XPTDFS  ;  Define  transport  message  constants 

DHSDFS  ;  Define  DEC  home  block  offsets 

=  1  ;  This  module  is  part  of  session  control 
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Receii/ed  messaqe  processing 


SESPRO  - 
Send  a  d 

54A 
545 
546 
547 
548 
549 
550 
551 
552 
555 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
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isconnect  initiate  message 


SE 


001552 
001562 
001570 
001574 
001575 
001576 

001600 
001604 

001610 

001614 

001624 
001632 
001636 
001644 

001652 


.SBTTL  Send  a  disconnect  initiate  message 

•*-SENDDI-Send  a  disconnect  initiate  message 

Transmit  a  disconnect  initiate  message  for  this  logical  link. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2,  R4 


016367  000100  OOOOOOG 
004167  OOOOOOG 

014 

070 
103425 

116722  OOOOOOG 
116722  000001 G 


116563  000014  000054 

017701  OOOOOOG 

116163  000050  OOOC55 

112763  000004  000037 


SENDDI : :CALLE   STOPCC         ;  Ensure  stored  CC  is  returned 

L.DCR(R3),$REASN;  Save  disconnect  reason  code 

;  Allocate  a  small  message  buffer 

;  Disconnect  initiate  message 


100$: 


MOV 

JSR     RI.GETSOB 

.BYTE  NT$DIS 

.BVTE  MF.CTLIMC.DI 
100$ 


BCS 

Move 
Move 

CALL 
CALLE 

Move 

MOV 

Move 
Move 

RETURN 


$REASN,(R2)t 
$REASN+1  ,(R2)  + 

ADDOPT 

SNSESD 


If  CS,  allocation  failure 
Fill  in  disconnect  reason 

Add  optional  user  data  to  message 
Transmit  the  message 


N$DLY(R5),L.TMRD(R3) 

aDECPT,R1      ;  Get  DEC  home  block  address 

D$RETF(R1),L.RTYD(R3)  ;  Store  retransmit  factor 

#NS$WDC,L.CSTA(R3) 
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Retransmit  disconnect  initiate  message 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


.TITLE  SESQIO  -  Session  control  QIO  completion  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software,  .or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  a\/ailable  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  QIO  completion  processing 

Ident  history: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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M;ir  rn    rlpfimtions 


SESQiOllS  CREATED  BY  MACRO  ON  28-JUN-85  AT  19:58 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


N$$EVL 

N$$MLL 

N$$SES 

N$$VCT 

PNTCCB 

RMVLN< 

RMVWND 

R$$MPL 

TSFLAG 

T$LIF 

TSLIFL 

TtLIFO 

TSLIFS 

TSLIN 

TSLIPS 

TSLLD 

TSLLD' 

TSLLDl 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSlTCL 

TSLTIM 

TSLTPR 

TILTPS 

TSNAPL 

TSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

T$NRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

USRCC 

USRCNF 

USRDIS 

USRDSC 

USSDON 

USSWDS 

WS.DIP 

W.KA5T 

W.LLT 

W.LUN 

W.MBOK 

W.SEGZ 

W.STAT 


=  000001 
=  000001 
=  000001 

=  **■*♦** 
-  ****** 

000102  R 


GX 
GX 


****** 

0000A4 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

00002A 

000026 

OOOOU 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 

000136  RG 

000220  HG 

000364  RG 

000312  RG 
:  000000 
:  000010 
■■   000010 

000014 

000004 

000003 

000012 

000006 

000002 


REFERENCES 

#4-2 

7-105 
#6-58 

7-97 

12-255 
#8-121 

8--127 

13-283 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#9-144 
#10-175 
#12-234 
#11-207 

10-175 

12-245 

12-259 

11-211 

13-292 

12-260 

8-124 
•9-151 
»12-259 


9-158 
7-105 
10-186 
13-302 


9-158 
11-215 


L  7 

PAGE  2 

CREF   04.00 


13-293 
13-297 


SE 

Ma' 


11-213 


12-261 


13-295 
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M  7 


SE 
Mfl 


SESSLl  -  Sess 
Macro  detlnit 

266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
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SE 
Ma 


.SBTTL  SLI  accept  connection 

♦*-SLIACC-SLI  accept  connection 

This  routine  is  called  to  accept  an  incoming  connect  request. 

Inputs: 

R4  =  Address  of  CCB 

C.NSP  -  Physical  address  of  LLT  (LLA) 

C.8UF1  -  Optional  data  descriptor 

C.FLG2  -  ULA 

C.LIN  -  Flow  control  options 
R5  =  Address  of  database  descriptor 


SLIACC: 


100$: 


MOV 
CALLE 

Move 

CLR 
CALL 

MOV 
MOV 
NOV 

CALL 
BCC 

CLR 

MOV 
CALL 

RETURN 


C.NSP(R4),R3 
ACCLLT 


;  Get  physical  address  of  LLT 
;  Gain  access  to  the  LLT 


C.LIN(R4),$FL0U  ;  Set  up  requested  flow  control 

$LTM  ;  No  long  term  timer  support 

MOVDAT         ;  Copy  optional  data  to  internal  buffer 

#S.SSUC,C.STS(R4) 

R4,L.ACC(R3)    ;  Save  address  of  accept  CCB 

L.SEGZ(R3),C.CNT(R4) 

SNDACC         ;  Accept  the  connection 

100$  ;  If  CC,  wait  for  ACK  response 

L.ACC(R3)      ;  No  pending  control  function  now 

#S.ERES,R1      ;  Resource  allocation  failure 

XMECMP        ;  Complete  the  request 
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S! 
M, 
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Macro  definitions 


733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
7t>2 
765 
764 


.SBTTL  Flush  pending  transmits 
**-FLSXMT-Flush  pending  transmits 

Flush  pending  transmits  and  interrupt  transmits  for  this  logical  link. 


Inputs: 
R3 


FLSXMT 
10$: 


20$: 


50$: 


,w  -  virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


SAVRG   <R4> 


MOV 

BEQ 

MOV 

CLR 

MOV 

M0V8 

CALL 

BR 

MOV 

BEQ 

MOV 

CLR 

MOV 

MOVB 

CALL 

BR 

RESRG 
RETURN 


;  Get  a  free  register 


L.XMTQ(R3),R4   ;  Get  next  transmit  CCB 

20$  ;  If  EQ,  no  more 

(R4),L.XMTQ;^3)  ;  Unlink  CCB  from  chain 

(R4)  ;  Clear  link  word 

#S.EERR,C.STS(R4) 

#FC.XCP,C.FNC(R4) 

aLLCfiS         ;  Comijlete  the  transmit  in  error 

10$  ;  Try  again 

L.INTQ(R3),R4   ;  Get  next  interrupt  CCB 

50$  ;  If  EQ,  no  more 

{R4),L.INTQ(R3)  ;  Unlink  CCB  from  chain 

(ft4)  ;  Clear  link  word 

#S.EERR,C.STS(R4) 

#FC.XCP,C.FNC(R4) 

aLLCRS         ;  Complete  the  interrupt  transmit  in  error 

20$  ;  Try  again 


<R4> 


Restore  the  register 
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A2 
45 
44 
45 
46 
47 
48 
49 

50  000000 

51  000000 

52  000000 
55  000000 

54  000000 

55  000000 

56  000000 

57  000000 

58  000000 

59  000000 

60  000000 

61  000000 

62  000000 
65  000000 
64 

65 


000001 


N$$SES 


.SBTTL  Macro  definitions 


.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 

CC8DF$ 
ECDDSS 
MBXDFS 
CTRDFS 
EVLDF$ 
LLTDFS 
CNBDFS 
RNBDFS 
LLUDFS 
MSGDFS 
OBJDFS 
NSSYMS 
SLJDFS 
DHBDFS 

=  1 


SAVRG, RE SRG, MAP, CALLE,EVT$,CALLX, COUNTS 
SAVMAP,RE5MAP,MAPLLT,RECMAP 
CC8DF$,ECDDB$, MBXDFS, CTRDF$,EVLDF$,LLTDF$ 
CNBDF$,RNBDrj.,LLWDF$, MSGDFS, OBJDFS, NSSYMS 
SLIDES, DHBDFS 


Define  CCB  offsets 

Define  ECL  database  offsets 

Define  mailbox  offsets 

Define  counter  block  offsets 

Define  event  logger  symbols 

Define  LLT  offsets 

Define  connect  pending  block  offsets 

Define  remote  name  block  offsets 

Define  window  block  offsets 

Define  message  values 

Define  object  tal,le  offsets 

Define  NS:  symbols 

Define  SLI  symbols 

Define  DEC  home  block  offsets 

This  module  is  part  of  session  control 
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511 

512 

515 

5K 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526  00077A 

527 

528  00077A 

529  001002 

005001 

530  001004 

012703 

001144- 

531 

532  001010 

112005 

533  001012 

012704 

001134' 

53^.  001016 

•22405 

535  001020 

•  03440 

536  001022 

122405 

537  001024 

101420 

538  001026 

122405 

539  001030 

103434 

S'.O  001032 

122405 

5A1  001034 

101412 

542  001036 

122405 

543  001040 

001406 

544  001042 

I?-' 05 

545  001044 

^■.•■■■06 

546  001046 

,V  '-05 

547  001050 

^K   024 

548 

549  C.1052 

162705 

000027 

550  001056 

162705 

177767 

551  001062 

162705 

177722 

552  001066 

162705 

000100 

553 

554 

555 

556 

557 

558 

559 

560 

561  00'!072 

562  001074 

010146 

563  C01076 

010500 

564  001100 

012301 

565  001102 

566  001106 

062601 

567  001110 

.SBT1L  Convert  ASCII  to  RAD50 

♦  •-CA15-Con\/ert  ASCII  to  RAD50 

Convert  a  string  of  up  to  3  ASCII  characters  to  RAD50  format. 

Inputs: 

RO  =  Address  of  next  ASCII  character 

Outputs: 

RO  =  Address  of  next  ASCII  character 
R1  =  Packed  RAD50  characters 
'C  Clear  -  3  ASCII  characters  converted 
'C  Set   -  non-RAD50  character  detected 


CAT5: 


10$: 


20$ 
30$ 
40$ 
50$ 


.PSECT 

SAVRG 

CLR 

MOV 

H0V8 

MOV 

CMPB 

BLO 

CMPB 

BLOS 

CMPB 

BLO 

CMPB 

BLOS 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BNE 

SUB 
SUB 
SUB 
SUB 


<R3,R4,R5> 

R1 

#CV1BL,R3 

(R0)+,R5 

#CNrRL,R4 

(R4)+,R5 

60$ 

(R4)+,R5 

50$ 

(R4)+,R5 

60$ 

(R4)t,R5 

40$ 

(R4)+,R5 

30$ 

(R4)+,R5 

40$ 

(R4)t,R5 

60$ 

It'   -11, R5 
#11-22, R5 
#22-100, R5 
#100, R5 


.IF  DF  R$$E1S 


MUL 
ADD 

.IFF 

SAVRG 

MOV 

MOV 

MOV 

CALL 

ADD 

RESRG 


(R3)t,R5 
R5,R1 


<R0> 

R1,-(SP) 

R5,R0 

(R3)t,R1 

aCEMUL 

(SP)+,R1 

<R0> 


Save  some  registers 

Initialise  result  register 

Get  address  of  conversion  table 

Get  next  character 

Get  address  of  control  string 

RAD50  character? 

If  LO,  no 

Alphabetic? 

If  LOS,  yes 

RAD50  character? 

If  LO,  no 

Numeric? 

If  LOS,  yes 

If  EQ,  yes 

If  EQ,  yes 
'space'? 
If  NE,  no 

Space 

'$' 

Period/digit 

Alphabetic 


Accumulate  result 


Save  ASCII  string  pointer 

Get  result  so  far 

Get  character 

Get  next  scale  factor 

Accumulate  result 

Restore  ASCII  string  pointer 
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SESSUB  -  Sess 
f lush  oending 

1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
102A 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 

1046 
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connect/uerif icat ion  request 

.IF     DF  R$$PRO 

.SBTTL  Remo\ie   Virtual  Terminal 


•♦-REMVT-Remoue  Virtual  Terminal 

Dissolve  a  virtual  terminal  allocated  for  this  connect. 


Inputs: 

R4  -> 
C.PR0(R4)  -> 

Outputs: 

None. 


fCB  associated  with  the  connect 
Virtual  Terminal  UC8 


Effects:  .    „   ,.    ,,  . 

If  C.PRO  contains  a  pointer  to  the  CO:  device  UCB,  this  call  is 
ignored.  If  C.PRO  points  to  a  virtual  terminal  UCB,  the  VT:  is  deallocated. 


REMVT::  SAVRG 
MOV 
BEQ 
CI>1P 
BEQ 
MOV 
CALL 
CLR 

10$:    RESRG 
RETURN 


<R0,fi1,R2,R3> 

C.PRO(R4),R0 

10$ 

RO,$COPT 

10$ 

#$DEAVT,-(SP) 

$MPDC1 

C.PR0(R4) 

<R3,R2,R1,R0> 


.ENDC   ;  DF  R$$PRO 


3ave  all  corruptable  registers. 

Extract  pointer  to  VT:  UCB. 

BR  if  none. 

Is  this  the  CO:  UCB?? 

BR  IS  yes,  dont  try  and  deallocate  it. 

Setup  to  call  $DEAVT  in  exec  common  one. 

Deallocate  the  VT:. 

Mark  the  VT:  as  deallocated. 

Restore  the  corruptable  registers. 
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SES5UB 
Release 

1469 
U7C 
H71 
1472 
K73 
H74 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
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connect  initiate  resources 

.SSTTL  Release  connect  initiate  resources 
•*-RLSCl-Release  connect  initiate  resources 


003144 

003150  016400  000026 

003154  012701  000166 

003160 

003164 

003170 

003174 


Inputs 


Release  the  resources  allocated  tor  an  incoming  connect  initiate 
message. 

R4  =  Address  of  fCB 

R5  =  Address  of  database  descriptor 


Registers  modified: 
RO,  R2 


RLSCI; 


SAVRG 

MOV 

MOV 

CALL 

CALL 

RESRG 

RETURN 


<R1,R3> 

C.8UF2+2(R4),R0 

#N.CBL*16.t4,R1 

aDEACB 

aCCSRT 

<R3,R1> 


Get  a  some  free  registers 

Get  pointer  to  pending  connect  block 

and  it's  size 
Deallocate  the  block 
Then  release  the  CCB 
Restore  registers 


M  13 

SESSUB  -  Session  control   subrou  MACRO  V05.03b  Friday  28-Jun-85   19:59     Page   38 
Ppmriip   -jinrlnw   hinrk    resoiirres 


SESSUB^^S  CREATED  Bv  f^ACRU  ON  28-JUN-85  AT  20:00 
SVMBCL  CROSS  REFERENCE 


L  K 

PAGE  5 

CREF   OA.OO 


SYMBOL  VALUE 


EVSAUS 

EVSCOF 

tVlCOZ 

EVSDBR 

EJSGAS 

EVtHCE 

EVtHCI 

EVIHFE 

EVtIFL 

EVSIFO 

EV$IFS 

EVSINF 

EVSLDL 

EVSLON 

EVSLDD 

EVILDS 

EV$L5C 

EVSLUP 

EVSNOL 

EVSNRC 

EVSNSC 

EVtNUL 

EVSNVR 

EVSOPL 

EVSPCC 

EVIPCI 

EVSPCM 

EVSPFE 

EVSPPC 

EVSRCF 

EVSRDC 

EVSRDR 

EVIRJE 

EVSRSC 

EVSRJL 

EVSSNA 

EVSSNF 

EVSSPE 

EVSXCE 

Ev$x:i 

EVtXGW 
EVSXMX 
EVSXRS 
EV5XSC 
EV$X2S 
EV.CCB 
EV.riR 
EV.LCB 
E;.lIN 
Ev.MAP 
EV.MOD 
EV.NOD 


000003 

000520 

000011 

000302 

035101 

0351U 

035113 

000506 

000413 

000415 

0004  K 

000515 

000407 

010416 

000411 

000410 

000500 

000412 

000402 

000416 

000200 

000401 

000406 

000403 

:  034000 

:  034001 

:  034002 

r  000404 

■   034003 

:  000517 

-■   010001 

:  010002 

:  035106 

■■   000501 

:  000405 

:  035000 

:  000516 

'■   0350C1 

:  034110 

=  0^3600 

--   034111 

:  000514 

=  000512 

^  000513 

:  013500 

=  000001 

^  000020 

=  000100 

^  0000C4 

=  000002 

=  000040 

--   000010 


REFERENCES 

*6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 
#6-54 


Sf 

Si 

A1 

A! 
A! 

Ai 
f! 

i' 

D' 
D! 
D' 
D' 
0' 
E' 


'1-326 
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A$$CHK= 

000000 

F$$LVL= 

000001 

LDSLP  = 

000000 

M$$OVR= 

000000 

R$$DER= 

000000 

A$$CPS= 

000000 

G$$TPP= 

000000 

L$$ASG= 

000000 

N$$ACC= 

000001 

R$$K.11  = 

000001 

A$$PR1= 

000000 

G$$TSS= 

000000 

L$$DRV= 

000000 

N$$EVL= 

000001 

R$$SND= 

000000 

AStTRPi 

000000 

GS$TTK= 

000000 

L$$P11= 

000001 

N$$LDV= 

2229S] 

RI$11M= 

000000 

rt$ORE= 

OOOAOO 

G$$WRD= 

000000 

L$$11R= 

000000 

N$$MLL= 

000001 

R$$11S= 

000000 

CltRSH- 

17756A 

I$$RAR= 

oocooo 

»1$$CRB= 

000124 

N$$MOV= 

000010 

S$$WRG= 

99§999 

D$tBUG= 

1775U 

I$$RDN= 

000000 

M$$CRX= 

000000 

Nt$NCT= 

000001 

S$$YSZ= 

007600 

D$SIS»;  = 

000000 

K$$CNT= 

177546 

M$$FCS= 

000000 

N$$PEM= 

000001 

TI$KMG= 

000000 

D$$Ll 1- 

000001 

KS$CSR= 

177546 

l"l$$MGE  = 

000000 

P$$P45= 

000000 

T$$M1N= 

000000 

D$tvNC= 

OOOOOC 

K$$LDC= 

000000 

M$$MUP= 

000000 

P$$URD= 

000000 

V$$CTR= 

001000 

DttvNM= 

000000 

K$tTPS= 

000074 

M$$NET= 

000000 

Q$$OPT= 

000010 

X$$DBT= 

000000 

E$tXOR= 

000000 

.  ABS. 

000000 
000000 

000 
001 

(RW,!,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detec  ted: 

0 

•  ••  Assetible'"  Stat 

i sties 

work   f 

ile  reads 

0 

Work   t 

i le  writes 

U 

S^^e   of 

Kork  tile 

892i 

Words 

(  35  Pages) 

S'ze  ot 

core  pool 

U440  Words 

{  55  Pages) 

Ocerat^ 

ng  system 

R5X- 

IIM/PLJS 

Sf 

m; 

C( 

c 
c/ 
a 

E( 
Ll 
M/ 

w 

Rf 
Rf 
S/ 

Si 


SV?SESTCB1l's!v2?n31?t34]5E5TCB11S/CR/-SP=SV:[l  J3RSXMCM.SML/ML  J130,110]NETL]8/ML,[130J0]RSXMCS/PA:1  J131,^ 
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8-150 


MACRO  NAME 

REFERENCES 

CALL 

7-83 

8-157 

CALLE 

#6-44 

1-72 

8-150 

CALLR 

8-138 

8-143 

8-166 

CALLX 

#7-72 

7-72 

#8-150 

DHBDFS 

#6-45 

6-47 

ECDDBt 

#6-45 

6-48 

LLTDfS 

#6-45 

6-49 

MAP 

#6-44 

MAPLLT 

#6-44 

RESRG 

#6-44 

7-84 

RE^URiiJ 

7-87 

8-151 

SAVRG 

#6-44 

7-80 

SOB 

7-86 

M  16 


«F!LE>«ID«»SESU5R 


n   1 


"SE5!N: 


ssssssss 

EEEEEEEEEE 

ssssssss 

!  1 1 1 1 1 

NN 

NN 

III 

III 

SS5SSSSS 

EEEEEEfEEE 

ssssssss 

niiii 

NN 

NN 

III 

111 

ss 

EE 

ss 

II 

NN 

NN 

I 

ss 

ss 

NN 

NN 

1 

ss 

ss 

NNNN 

NN 

] 

ss 

H 

ss 

NNNN 

NN 

I 

ssssss 

EEEEEEEE 

ssssss 

I 

NN  NN  NN 

I 

ssssss 

EEEEEEEE 

ssssss 

II 

NN  NN  NN 

1 

ss 

EE 

ss 

u 

NN 

NNNN 

1 

ss 

EE 

ss 

NN 

NNNN 

ss 

EE 

ss 

NN 

NN 

ss 

EE 

ss 

I 

NN 

NN 

1 

ssssssss 

EEEEEEEEEE 

ssssssss 

IIIIII 

NN 

NN 

111 

HI 

ssssssss 

EEEEEEEEEE 

ssssssss 

IIIIII 

NN 

NN 

111 

111 

ssssssss 

ssssssss 

1111 

m 

ss 

1111 

ni 

ss 
ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

nun 

ni 

ni 

ssssssss 

nnn 

ni 

ni 

ssssssss 
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SVMBOL 

VALUE 

REFERENCES 

FRSOPN 

=  OOOOOA 

#6-49 

FRSRFD 

=  000006 

#6-49 

FRSSBU 

=  000012 

#6-49 

FRSSHO 

=  000003 

#6-49 

FRSUBU 

=  000013 

#6-49 

FRSUPT 

=  OOOOU 

#6-49 

I$$AS 

=  ****** 

6-48 

MOtSAC 

=  000016 

#6-49 

MOtSPR 

=  000012 

#6-49 

HO$SSV 

=  0000 K 

#6-49 

MOt25A 

=  000006 

#6-49 

•10$?5P 

=  000002 

#6-49 

MO$25S 

=  000004 

#6-49 

M0I29S 

=  000010 

#6-49 

MSHIGH 

=  000003 

#6-49 

Mt3100 

=  000000 

#6-49 

M$3101 

=  000001 

#6-49 

M$3102 

=  000002 

#6-49 

M$3103 

=  000003 

#6-49      6-49 

NFSMOu 

=  000040 

7-121 

NSACTL 

000032 

•8-168 

NSFLG 

000005 

•7-121 

NSGENQ 

000052 

•8-170 

N$LVC 

000036 

8-158     ^8-163 

NSMBXQ 

000050 

•8-169 

NIVCB 

000010 

7-116 

N$$ECL 

~      ****** 

7-112 

N$$EVL 

=  000001 

#4-2       7-112 

N$tEXT 

-  ****** 

7-96 

N$$DVR 

--  000022 

7-131 

N$$SES 

=  000001 

#6-56      7-112 

N$$VCT 

=      *♦♦**» 

7-103     7-106 

OPSINI 

-  000000 

#6-49 

OPSTER 

=:  000001 

#6-49 

PDVID 

=  ******   GX 

7-75 

PDVTA 

=  **.♦**   GX 

7-79 

PHSHDE 

=  000004 

#6-49 

PH$LOC 

=  000002 

#6-49 

PHSMTS 

=  000003 

#6-49 

PHSUMP 

=  000000 

#6-'.9 

PHSWCS 

=  000001 

#6-49 

RDBSZ 

=  ******  GX 

7-130 

RESADC 

=  000004 

#6-49 

REIADF 

=  000017 

#6-49 

RESADR 

=  000C07 

#6-49 

RESBlK 

=  000010 

#6-49 

RE$CAF 

=  000014 

#6-49 

REtDAT 

^  000001 

#6-49 

REIDRP 

-  000016 

#6-49 

RESLDT 

=   000013 

#6-49 

RE$l5N 

r  00001? 

#6-49 

RESNML 

-  000001 

#6-49 

9-190 


•9-192 


9-193 
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SESMN 
Local  da 

153 
15A 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16i 
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.S8TTL  Local  data  areas 


000274 
000312 


RCP1:   RQSTS   RCP1.. 
RCF2:   RQSTS   RCP2.. 


;  Reques;  level  1  routing  task 
;  Request  level  2  routing  task 


OOOCOO' 


.IF  DF  R$$MPL 

.IF  NDF  R$$PRO 

TRNVEC:  GINS  GI . VEC ,SVECTB,SVECLN  ;  Translate  executive  vector 
.ENDC 
.ENDC 

.END  SSESON 
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Received  message  processing 


57 

58 

59 

60 

61 

62 

6^^ 

6'. 

65 

66 

67 

68  000000 

69 

70  000000 

71 

72 

73 

75 

76  000004  000000' 

77  000006  OOOOOOG 


.SBTTL  Received  message  processing 

«*-.SERCP-Recei\/ed  message  processing 

This  routir.'  processes  a  single  received  session  control  message. 

Inputs: 

R3  =  Subfunction  code 

RA  =  Address  of  fCB 

R5  =  Address  of  database  descriptor 

.PSECT  $H1GH 

.SERCP::CALLR   aRCPTBL(R3) 

Receive  complete  dispatch  table 


Dispatch  to  processing  routine 


RCPT8L:  .WORD   RCVCTL 
.WORD   USfiJNT 


;  Received  control  message 
;  Received  interrupt  message 
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Process  received  session  control  message 


SESPRO  - 
Retransm 

578 
579 
580 
581 
582 
583 
58^ 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
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It  disconnect  initiate  message 


SI 

M, 


00165A 
001660 
001662 
001670 


105363 
003004 
112763 


000055 

000000  000037 


.S8TTL  Retransmit  disconnect  initiate  message 

•*-rtSNDDl-Retransmit  disconnect  initiate  message 

A  timeout  has  occured  while  we  are  waiting  for  a  DC  response  to  our 
disconnect  initiate  message.  Attempt  to  retransmit  the  disconnect 
initiate  message. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2,  R4 


RSNDDI::DEC8 
BGT 
MOVS 
RETURN 


L.RTYD(R3) 

RTRAN5         ;  If  GT 

#NS$D0N,L.CSTA(R3) 


Have  we  exhausted  the  retry  count? 

...  retransmit  the  message 
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Macro  def 
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^2 
43 
44 
45 
46 
47 

48  000000 

49  000000 

50  000000 

51  000000 

52  000000 

53  000000 

54  000000 

55  000000 

56  000000 
57 

58        000001 


.SBTTL  Macro  definitions 


.MCALL 
.MCALL 
.MCALL 

ECDDB$ 
CTRDFS 
CRBDFS 
LL7DF$ 
MSGDFS 
LLWDFS 
MBXDF$ 
CCBDFS 
NSSYMS 


N$$SES  =  1 


SAVRG.RESRG, MAP, COUNTS, CALLE,SAVMAP,RESMAP,MAPLLT 
E.DDBi, CTRDFS, CRBDFS, LLTDF$,MSGDF$, LLWDFS, MBXDFS 
CCBDFS, NSSYMS 

Define  ECL  database  offsets 

Define  counter  block  offsets 

Define  connect  request  block  offsets 

Define  LLT  offsets 

Define  message  values 

Define  window  block  offsets 

Define  mailbox  offsets 

Define  CCB  offsets 

Define  NS:  symbols 

This  module  is  part  of  session  control 


SE 
SYI 
SY 


sc 

SI 

SM 
SO 

so 


N  6 

SESQIO  -  Session  control  QIO  co  MACRO  y03.03b  Friday  28-Jun-85  19:58  Page  7 
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SE 


SESQI011S      CREATED  BY 
SYMBOL    CROSS   REFERENCE 


MACRO     ON  28-JUN-85   AT   19:58 


SYMBOL      VALUE 


W.TMP 

SCALLX 

$IOP<T 

SMAIBX 

SOPDAT 

lOPLNG 


000010 

r  *+**** 

-  ****** 
=  ****** 

-  ****** 


GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-85 

13-293 
•8-121 
»12-261 

7-96 

7-87 


8-126 
•8-126 


9-152 
•9-152 
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CREF       04.00 

•9-153 
10-176         ^10-191 


SE 
Ma 


11-214 


•11-217 


13-296 


•13-299 
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SE 

Ma 


SESSLI    - 

Macro  de 

300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 
328 
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SE 

Ma 


.SBTTL  SLI  connect  rejection 

♦♦-SLIREJ-SLI  connect  rejection 

This  routine  is  called  to  reject  an  incoming  connect  request. 

Inputs: 

RA  =  Address  of  CCB 

C.NSP  -  Physical  address  ot  LLT  (LLA) 

C.eUFl  -  Optional  data  descriptor 

C.FLG2  -  ULA 

C.LIN  -  Reject  code  (negative  form) 
R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  Rl,  R2,  R3 


SLIREJ:  MOV 
CALLE 

CALL 
CALL 

Move 

NEG 
CALL 

MOV 
CALLfi 


C.NSP(RA),R3  ;  Get  physical  address  of  LLT 

ACCLLT  ;  Gain  access  to  the  LLT 

MOVDAT  ;  Moue  optional  data  to  internal  buffer 

SAVOPT  ;   and  saue  it  in  the  LLT 

C.L]N(R^),R1  ;  Get  the  disconnect  reason 

Rl  ;  Convert  it  for  NSP's  use 

BRKLNK  ;  Break  the  logical  link 

ffS.SSUCRl  ;  Set  up  successful  completion 

XMECMP  ;  Complete  the  request 
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SI 

M, 
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766 

767 

768 

769 

770 

771 

772 

773 

77^ 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 
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.S8TTL  Queue  incoming  connect  to  process 

♦»-QUESLl-Queue  incoming  connect  to  process 

Try  to  queue  an  incoming  connect  request  to  a  process. 

Inputs: 

R3  =  Pointer  to  task/process  name  (RAD5u) 

R4  =  Address  of  fCB 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Connect  successfully  queued  to  process 
'C  Set   -  Unable  to  queue  connect 


Registers  modified: 
RO,  R1,  R2,  R3 


QUESLl 


10$: 


:MOV 

Tsr 

BNE 

CALL 

BCS 

M0V8 

ADD 

MOV 

TS7 

BtQ 

BIT 

BEQ 

SUB 
MOV 

.REPT 

MOV 

.ENDR 

MOV 
SUB 
ADD 

MOVB 
SOB 

SUB 

MOV 

MOV 

MOV 

CALL 

MOV 

MAPLLT 

BIS 

TST 


(R3^+,R2 

(R3) 

100$ 

aPDVID 

100$ 

R2,C.STA(R4) 

aPDVTA,R2 

(R2),rJ 

Z.PC8(R2) 

100$  , 

#ZF.SLI,Z.FLG(R2) 

100$ 

#2,C.BUF+2(R4)   ; 
C.8UF+2(R4),R0  ; 


Get  first  3  characte  s  of  name 

Do  we  have  more  than   characters  in  the  name? 

If  NE,  yes  ...  can't  be  a  process  name 

Convert  process  name  to  PDV  index 

If  CS,  no  match 

Set  up  destination  process  PDV  index 
Get  pointer  to  PDV 

Is  the  process  loaded? 

If  EQ,  no  ...  can't  queue  the  connect 

If  EQ,  process  does  not  support  SLI 

Back  up  connect  block  pointer 

Get  pointer  to  start  of  connect  block 


N.SND+2(R0),(R0)+ 

C.CNT(R4),R1    ;  Get  total  size  of  connect  block 
#N.SFM,R1      ;  Compute  #  of  bytes  to  move 
#N.SND-N.DFM,RO  ;  G^t  address  to  start  move 

N.SFM-N.SND(RO),(RO)+ 

Rl,10$         ;  Remove  source  node  address  from  connect  block 


#4,C.CNT(R4) 


Connect  block  is  4  bytes  shorter 


n$pllt(r5),c.msp(r4) 

#s.ssuc,c.sts(r4) 

#<s$cnr*aoo:fc.rcp>,c.fnc(R4) 

SLLCRS        ;  Queue  incoming  request  to  process 

N$LLT(R5),R3    ;  Recover  address  of  LLT 

;  Restore  mapping  to  LLT 

*LT.SL1*400,  (R3);  Mark  this  as  a  system  level  interfaro 

(PC)*         ;  Indicate  connect  successfully  queued 


l-nk 
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SES5UB  - 
Add  enf 

67 
68 
69 
70 
71 
72 
75 
71, 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 


Session  control 
y  to  general  del 
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iuery  queue 

.SBTTL  Add  entry  to  genera'  delii/ery  queue 

**-ADDGNQ-Add  entry  to  general  delivery  queue 

Add  an  entry  to  the  end  of  the  general  delivery  queue. 

Inputs: 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1 


000003  000011  ADDGNQ: 

000052 

10$: 


000052 

OOOOOOG 
000042  000015 


000000  152764 

000006  005014 

000010  010500 

000012  062700 

000016  010001 

000020  011000 

000022  001375 

000024  010411 

000026  020465 

000032  001005 

000034  017700 

000040  116065 


000046  152765  000220  000005  20$: 
000054 


:8IS8 
CLR 
MOV 
ADD 

MOV 
MOV 
BNE 

MOV 
CMP 
BNE 
MOV 
MOVB 

BISB 
RETURN 


#CX.REQ!CX.GDQ,C.M0D(R4) 


(R4) 

R5,R0 

#N$GENn,RO 

RO.Rl 

(RO),RO 

10$ 

R4,(R1) 
R4,N$GENQ(R5) 
20$ 
SDECPT.RO 


D$INCT(R0),N$GTM(R5) 
#NF$TIMINf$5CN,N$FLG(R5) 


Clear  link  word 
Compute  address  of  general  delivery  queue 
listhead 

Save  current  position  in  queue 

Get  next  queue  entry 

Scan  to  the  end  of  the  queue 

Link  CCB  to  the  end  oi  the  queue 

Is  this  the  first  entry  in  the  queue? 

If  NE,  no 

Get  address  of  DEC  home  block 
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SESSUB 

Convert 

568 
569 
570 
571 
572 
573 
57^ 
575 
576 
577 
578 
579 


580 
581 
582 
583 
584 
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ASCII  to  RAD50 


001112  020327  00''152' 

001116  103734 

001120  005727 

001122  000261 
001124 
001132 


001134  •;32 
001137  060 
001142     040 


001144  003100 
001146  000050 
001150  000001 


101 
044 


071 
056 


60$: 


CNTRL: 


CVTBL: 


.ENDC 

CMP 
BLO 

TST 
SEC 
RESRG 
RETURN 

.evTE 


.EVEN 

.WORD 
.WORD 
.WORD 


R3,#CVTBL+6 

loi 

(PC)' 
<R5,R4,R3> 

'Z,'A,'9,'0,'$, 


50«50 
50 

1 


Coni/ert  3  characters  yet? 
If  LO,  no 

Indicate  successful  conversion 

Indicate  non-RAD50  character  encountered 

Restore  registers 


RAD50  pack  multipliers 
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SESSUB  -  Session  control  subrou  MACRO 
F  ind  mai l box 


1048 
10A9 
1050 
1051 
1052 
105? 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 

1063  000412 

1064  000414 

1065  000416 
1066 

1067  000422 

1068  000426 

1069  000430 

1070  000434 
1071 

1072  000436 

1073  000442 

1074  000444 

1075  000446 

1076  000450 
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.S8TTL  Find  mai Ibox 

•♦-FNDMBK-Find  mailbox 

Find  the  mailbox  associated  with  a  specified  tdsk. 

Inputs: 

RO  =  Address  of  TC8  to  match 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Mai  Ibox  found 
'C  Set   -  Mailbox  not  found 


010501 

062701  000046 

016101  000002 

001406 

020061  000004 

001372 

010167  OOOOOOG 

005727 

000261 


FNDMBX::SAVRG 
MOV 
ADD 

10$: 


20$: 


<R1> 

R5,R1 

*N$MBXQ-M.NEXT,R1 


Get  a  free  register 

Compute  address  of  mailbox  listhead 


MOV 

M.NEXT(RI) 

,R1 

;  Get  next  mailbox 

BEQ 

20$ 

;  If  EQ,  no  more 

CMP 

R0,M.TASK(R1) 

;  Is  it  for  this  task? 

BNE 

lOi 

;  If  NE,  no  ...  keep  looking 

MOV 

R1,$MAIBX 

;  Save  address  of  mailbox 

TST 

(PC)  + 

;  Indicate  mailbox  found 

SEC 

;  Indicate  mailbox  not  found 

RESRG 

<R1> 

;  Recover  register 

RETURN 
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Retnoje  window  block  resources 


H91 

U92 

K95 

U9A 

K95 

1496 

1497 

U98 

K99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

151? 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 


003176 
C03200 
003204 
003210 
003214 


.S8TTL  HemoMe   window  block  resources 
♦  '-RMVWND-Remoi/e  window  block  resources 


Release  the  window  block  associated  with  a  logical  link  and  clean  up 
the  LUT  in  the  task  header. 


Inputs: 

R3  =  Address  of  window  block 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R2,  R3 


016300  000012 

016000  000004 

016000  OOOOOOG 

016001  OOOOOOG 


003220 
003222 
003226 
003230 
003232 
003234 

003240 
003244 
003250 
003252 
003254 
003260 
003262 
003266 

003272 
00327a 


005002 

156302  000003 

006302 

006302 

060102 

005062  177776G 

016346  000004 

012600 

001402 

005060  000040 

010300 

012701  000026 


RMVUND: 

:SAVRG 

<R1> 

MOV 

W.M80X(R3),R0 

MOV 

M.TASK(RO),RO 

MOV 

T.PCB(RO),RO 

MOV 

P.HDR(R0),R1 

.IF  DF 

X$$HDR 

BNE 

10$ 

MAP 

P.REL(RO)       ; 

MOV 

*140000,R1 

10$: 

.ENDC 

CLR 

R2 

BISB 

U.LUN(R3),R2 

ASL 

R2 

ASL 

R2 

ADD 

R1,R2 

CLR 

H.LUN-2<R2) 

MOV 

W.LLI(R3),-(SP)  , 

CALL 

aCEACC 

MOV 

(SP)t,R0 

BEQ 

20$ 

CLR 

L.WIND(RO) 

20$: 

MOV 

R3,R0 

MOV 

tfnl.WBL.Rl 

CALL 

aDEACB 

RESRG 

<R1> 

RETURN 

Get  address  of  mailbox 
then  task's  TCB  address 
then  PCS  address 

Get  address  of  task's  header 


If  NE,  header  is  in  primary  pool 

Map  to  the  header 

Set  up  virtual  address  of  task  header 


Get  LUN  used  for  this  logical  link 

Convert  LUN  to  double  word  offset 

Compute  address  if  task  header 
No  window  block  now 

Get  the  window  block  address 

Map  the  LLT 

Get  the  LLT  address 

If  EQ,  nore 

Clear  the  window  block  address 

Copy  address  of  window  block 

Size  of  a  window  block 

Deallocate  the  window  block 
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SYMBOL   VALUE 


EV.PRT 

EtDATA 

EIEVTS 

ESLCN 

EtLIN 

ESMOD 

E$NBR 

ESNBS 

EtNCR 

ESNCS 

E$NK 

EtNLEN 

ESNLLA 

ESNLNK 

ESNML 

ESNMR 

E$NMS 

EtNNOD 

ESNOD 

E$NRT 

ESNRTP 

ESNSEG 

ESNTIM 

EtNUSE 

E  SPORT 

ESPRM 

ESSTAT 

EtSTRT 

ESTCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FDISP 

fLCON 

fLSHiO 

FLSHMB 

fLSHRO 

asm 

ElSlST 
CLVFY 


000200 

000020 

OOOOOC 

000016 

000000 

00001? 

OOOOT^ 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

OOOOAO 

000024 

000050 

000002 

000010 

000042 

000005 

000010 

000046 

000004 

000014 

000002 

000006 

000006 

000004 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

OOOC'.O 

000026 

000044 

000022 

000004 

000340  R 

000556  R 

002100  RG 

002124  RG 

000306  R 

000222 


00C356  R 


GY 


REFERENCES 

»6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-55 

#6-53 

#6-55 

#6-53 

#6-55 

#6-55 

#6-55 

#6-53 

#6-53 

#6-55 

#6-53 

#6-53 

#6-54 

#6-55 

#6-53 

#6-53 

#6-53 

#6-53 

#6-54 

#6-54 

#6-54 

#6-55 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 
25-952 
25-968 

#21-850 

#25-928 
21-861 
21-852 
55-UO'. 
25-97A 


17-706 
10-265 


11-326 
20-816 

11-339 


11-305 
11-520 

•11-555 

•11-353 

11-307 


•20-81! 


#23-968 
#24-992 


21-867 
#21-857 

#24-993 
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N' 
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11-329 
•20-824 

1-541 


1-521 


1-343 


1-358 


•20-823 


•11-357 


11-339 


11-341 


•20-820 


21-873    #22-892 


22-909 
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CREF   OA.OO 


SYMBOL  VALUE 


REFERENCES 


RESOPE 

=  OOOOOA 

#6-49 

RESOPR 

=  000000 

#6-49 

7-112 

REtRCV 

=  000001 

#6-49 

RESSED 

=  000011 

#6-49 

RESSKW 

=  000006 

#6-49 

RESSTA 

=  000002 

#6-49 

RESSUM 

=  000003 

#6-49 

RESSYN 

=  000000 

#6-49 

RE$TME 

=  000021 

#6-49 

RESTMO 

=  000000 

#6-49 

REtTMR 

=  000020 

#6-49 

REIUPT 

=  000002 

#6-49 

RESURE 

=  000003 

#6-49 

REIVER 

=  000005 

#6-49 

RESVRQ 

=  000015 

#6-49 

RTSINI 

=  000002 

#6-49 

RTSOFF 

=  000001 

#6-49 

R^SON 

=  000000 

#6-49 

R$$11D 

=  ****** 

6-48 

R$$11M 

=  000000 

6-48 

R$$11S 

=  000000 

6-48 

SCSOFF 

=  000001 

#6-49 

7-112 

SCSON 

=  000000 

#6-49 

7-112 

SCSRST 

=  000003 

#6-49 

SCSSHU 

=  000002 

#6-49 

sesiNi 

000000  RG 

#7-74 

SESSDV 

=  051516 

#6-54 

7-89 

SVSDUM 

=  000001 

#6-49 

SVSLOA 

=  000000 

#6-49 

TKTCB 

-  ««»«»»  GX 

7-117 

TTNS 

=  *»««**   GX 

7-123 

TSFLAG 

0000^4 

#6-51 

TSLIF 

000013 

#6-51 

TSLIFL 

000013 

#6-51 

TSLIFO 

000013 

#6-51 

TtLIFS 

000013 

#6-51 

TSLIN 

000000 

#6-51 

TSLIPS 

000006 

#6-51 

TSLLD 

000012 

#6-51 

TSLLDC 

000045 

#6-51 

TSLLDL 

000012 

#6-51 

TSLLDO 

000012 

#6-51 

TSLLDS 

000012 

#6-31 

TSLLEN 

000046 

#6-51 

TtLCPR 

000002 

#6-51 

TSLTCL 

000024 

#6-51 

TSLHM 

000026 

#6-51 

T$LTPR 

OOOOIm 

#6-51 

TSLTPS 

0('0020 

#6-51 

TSNAPL 

000004 

#^-51 

T$NFE 

000000 

^6-51 

rSNllEN 

000010 

#6-51 
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ACPIDL= 
mC$DNT= 
AC$X25= 
AE$CIR= 
AE$LIN= 
AE$MOD= 
A$$CHK= 
A$$CPS= 
A$$PR!= 
A$$TRP= 
BVTEB  = 
CL$ASi= 
CL$DLL= 
CL$ECL= 
CLtLDN= 
CL$MAN= 
CLSPAZ= 
CL$PLH= 
CL$PLL= 
CL$PRT= 
CL$ROU= 
CL$SES= 
CL$SGE= 
CL$SSE= 
CL$TRN= 
CL$XL2= 
CL$XL3= 
CL$X2S= 
C$$ORE= 
C$$RSH= 
[)tALDB= 
01.$AST= 
DL$HLT= 
DL$I5T= 
DL$MAI= 
OL$OfF= 
DL$ON  = 
DL$RUN= 
OL$SHU= 
DL$SrN= 
?REXT  = 

d$:buc= 

D$$IS<= 

D$$L11= 

D$$yNC= 

[)$$VNM= 

EF$ACT= 

EVLSES 

EViACF 

EVSADR 

EVSADU 

EVSAPL 

EVSARC 

EVSAUC 

EVSAUS 

EVtCDF 

EVSCCZ 


*»»»«»  GX 

000002 

000001 

000003 

000001 

000004 

000000 

000000 

000000 

000000 

000300 

010500 

000500 

000300 

010400 

000000 

034100 

034000 

000600 

034200 

010000 

000200 

035000 

035100 

000400 

013700 

013600 

013500 

000400 

177564 

*»*♦♦♦  GX 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 

000005 

♦♦♦*•♦  GX 

177514 

000000 

000001 

000000 

000000 

000001 


000201 
000420 
000417 
000400 
C00421 
000010 
000003 
000520 
000011 


GX 


EV$DBR= 

EV$GAS= 

EV$HCE= 

EV$HCI= 

EV$HFE= 

EV$1FL= 

EV$1F0= 

EV$IFS= 

EV$INF= 

EV$LDL= 

EV$LDN= 

EV$LDO= 

EV$LDS= 

EV$LSC= 

EV$LUP= 

EV$NOL= 

EV$NRC= 

EV$NSC= 

EV$NUL= 

EV$NVR= 

EV$OPL= 

EV$PCC= 

EV$PCI= 

EV$PCM= 

EV$PFE= 

EV$PPC= 

EV$RCF= 

EV$RDC= 

EV$RDR= 

EV$RJE= 

EV$RSC= 

EV$RUL= 

EV$SNA= 

EV$SNF=: 

EV$SPE= 

EV$XCE= 

EV$XDI= 

EV$XGW= 

EV$XMX= 

EV$XRS= 

EV$XSC= 

EV$X2S= 

EV.CCB= 

EV.CIR= 

EV.LCB= 

EV.LIN= 

EV.MAP= 

EV.M0D= 

EV.NOD= 

EV.PRT= 

E«DATA 

ESEVTS 

E$LCN 

E$LIN 

ESMOD 

Elmo 

ESPORT 


000302 

035101 

035114 

035113 

000506 

000413 

000415 

000414 

000515 

000407 

010416 

000411 

000410 

000500 

000412 

000402 

000416 

000200 

000401 

000406 

000403 

034000 

034001 

034002 

000404 

034003 

000517 

010001 

010002 

035106 

000501 

000405 

035000 

000516 

035001 

034110 

013600 

034111 

000514 

000512 

000513 

013500 

000001 

000020 

000100 

000004 

000002 

000040 

000010 

000200 

000020 

000000 

000016 

000000 

000012 

000010 

000014 


ESPRM 

000002 

M$$CRB= 

000124 

ESSTAT 

000006 

M$$CRX= 

000000 

ESTCB 

000004 

M$$FCS= 

000000 

E$$XPR= 

000000 

M$$M6E= 

000000 

E.CTL 

000020 

H$$MUP= 

000000 

E.DATA 

000046 

M$$NET= 

000000 

E.EVT 

000002 

M$$OVR= 

000000 

E.LCN 

000042 

M$3100= 

000000 

E.LEN 

000216 

M$3101= 

000001 

E.LIN 

000024 

M$3102= 

000002 

E.LNK 

000000 

M$3103= 

000003 

E.MOD 

000036 

NF$BLK= 

000100 

E.NOD 

000034 

NF$DM0= 

000010 

E.PDV 

000021 

NF$MOU= 

000040 

E.PORT 

000040 

NF$RST= 

000002 

E.PRH 

000026 

NF$SCN= 

000020 

E.PVC 

000044 

NF$SHU= 

000004 

E.SIZ 

000022 

NF$TIM= 

000200 

E.TIME 

000004 

N$ACQ 

000000 

FR$BCC= 

000007 

NSACTL 

000032 

FR$CCF= 

000001 

NSCIR 

000034 

FR$CDF= 

000002 

N$DLA 

000020 

FR$DAO= 

000011 

N$DLY 

000014 

FR$EXC= 

000000 

NSELEN 

000054 

FR$FRM= 

000010 

N$ENC 

000042 

FR$FTL= 

000005 

NSERRC 

000022 

FR$OPN= 

000004 

N$FLG 

000005 

FRtRFD= 

000006 

N$FNC 

000006 

FR;  BU= 

000012 

N$GENQ 

000052 

FR$SHO= 

000003 

N$GTM 

000015 

FR$UBU= 

000013 

N$HIGH 

000033 

FR$UPT= 

000014 

N$LLT 

000026 

F$$LVL= 

000001 

NSLLTM 

000024 

G$$TPP= 

000000 

N$LVC 

000036 

G$$TSS= 

000000 

NSMBXQ 

000050 

G$$rTK= 

000000 

NSPLLT 

000030 

G$$WRD= 

000000 

N$SLA 

000016 

IE.UPN= 

******  GX 

NSSNOD 

000012 

I$$RAR= 

000000 

N$TIM 

rjooo4 

I$$RDN= 

000000 

N$VCB 

000010 

K$$CNT= 

177546 

N$$ACC= 

000001 

K$$CSR= 

177546 

N$$EVL= 

000001 

K$$LDC= 

OOOOOn 

N$$LDV= 

000001 

K$$TPS= 

000074 

N$$MLL= 

000001 

LD$LP  = 

000000 

N$$MOV= 

000010 

L$$ASG= 

000000 

N$$NCT= 

000001 

L$$DRV= 

000000 

N$$PEM= 

000001 

L$$P11= 

000001 

N$$SES= 

000001 

L$$11R= 

000000 

0P$IN1= 

000000 

MO$SAC= 

000016 

OP$TER= 

000001 

MO$SPR= 

000012 

PH$HDE= 

000004 

MO$SSV= 

000014 

PH$LOC= 

000002 

MO$25A= 

000006 

PH$MTS= 

000003 

MO$25P= 

000002 

PH$UMP^ 

000000 

"■0$23S  = 

000004 

PH$.  S= 

000001 

M0$29S= 

00001 0 

P$3   5  = 

000000 

M$HIGH=: 

000003 

P$$  :i  = 

000000 

Q$$OPT= 

RCPl 

RCP2 

RF$ADC= 

Rt1ADF= 

RE$ADR= 

RE$BLK= 

RE$CAF= 

RE$DAT= 

RE$DRP= 

RE$LDT= 

RE$LSN= 

RE$NI»IL= 

RE$OPE= 

RE$OPR= 

RE$RCV= 

RE$SED= 

RE$SKW= 

RE$STA= 

RE$SUM= 

RE$SYN= 

RE$TME= 

RE$TMO= 

RE$TMR= 

RE$UPT= 

RE$URE= 

RE$VER= 

RE$VRQ= 

RT$INI= 

RT$OFF= 

RT$0N  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

R.QSGC= 

R.QSPC= 

R.QSPN= 

R.QSPR= 

R.QSTN= 

SrtOFF= 

SC$ON  = 

SC$RST= 

SC$SHU= 

SESIN1= 

SV$DUM= 

SV$L0A= 

S$$WRG= 

S$$YSZ= 

TKTCB  = 

Tt$KMG= 

T$$M1N= 

US.MDM= 

US.MNT= 

US.OFL= 

U.ACP  = 


000010 

000274R 

000312R 

000004 

000017 

000007 

000010 

000014 

000001 

000016 

000013 

000012 

000001 

000004 

000000 

000001 

000011 

000006 

000002 

000003 

000000 

000021 

000000 

000020 

000002 

000003 

000005 

000015 

000002 

000001 

000000 

000000 

000001 

000000 

000000 

000000 

000015 

000014 

000006 

000012 

000002 

000001 

000000 

000003 

000002 

******  GX 

000001 
000000 
000000 
007600 
******  GX 
000000 
000000 
******  GX 
*»*«»«  GX 
******  GX 
******  GX 


002 
002 
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79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98  000000 

99 

100  000000 

101  000006 

102  OOOOU 

103  000020 

104  000022 

105  000024 

106  000026 

107  000030 
108 

109  000034 

110  000040 

111  000044 

112  000050 
113 

114  000054 
115 


.SBTTL  Process  received  session  control  message 

»*-RCVCTL-Process  received  session  control  message 

Process  the  received  session  control  message. 

Inputs: 

R4  =  Address  of  CCB 

C.BUf+2  -  Pointer  to  start  of  NSP  message 
C.STS   -  Pointer  to  first  byte  of  route  header 

(zero  if  none) 
C.FLG2  -  Source  node  address 
R5  =  Address  of  database  descriptor 

Outputs:  (to  message  processing  routines) 

R2  =  Pointer  to  field  following  source  link  address 

R4  =  Address  of  CCB 

R5  =  Address  of  database  descriptor 


016465  000032  000012 

016402  000016 

112201 

006201 

006201 

006201 

042701   177761 

112265  000020 

112265  000021 

112265  000016 

112265  000017 


116  000060 

016704  OOOOOOG 

117  000064 

001404 

118  000066 

119 

120  000076 

121  000076 

122 

123 

124 

125 

126 

127  000100 

000076' 

128  000102 

000120- 

129  000104 

000552' 

130  000106 

001022' 

131  000110 

001176' 

132  000112 

000076' 

133  000114 

000120' 

'34  000116 

000076' 

.PSECT 

RCVCTL:  MOV 
MAP 
MOV 
MOVB 
ASR 
ASR 
ASR 
BIC 

MOVB 
MOVB 
MOVB 
MOVB 

CALL 

MOV 
BED 
CALLE 


C.FL62(R4),N$SNOD(R5) 


C.BUF(R4) 

C.8UF+2(R4),R2 

(R2)+,R1 

Rl 

R1 

Rl 

#"C^16>,R1 


Map  to  the  buffer 
Get  pointer  to  message 
Get  the  message  flags 
Shift  to  form  word  offset 


Isolate  subtype  field 

Get  destination  link  address 


(R2)i,N$DLA(R5)  ; 

(R2)  +  ,N$Dl.A+1(R5) 

(R2)+,N$SlA(R5)  ;  Get  source  link  address 

(R2)  +  ,N$'jLA+1(R5) 

(iiRCVTBL(Rl)     ;  Dispatch  to  processing  routine 

$RCCB,R4       ;  .M'd  we  keep  this  message? 

10$  ;  If  EQ,  yes 

FLSRE5        ;  Flush  away  the  resources 


10$: 
NOOP 


RETURN 
Received  message  aispatch  table 


RCVTBL: 


.WORD 

NOOP 

.WORD 

RCVCI 

.WORD 

RCVCC 

.WORD 

RCVDI 

.WORD 

RCVDC 

.WORD 

NOOP 

.WORD 

RCVCI 

.WORD 

NOOP 

No  operation 

Connect  initiate 

Connect  confirm 

Disconnect  initiate 

Disconnect  confirm 

Reserved 

Retransmitted  connect  initiate 

Reserved 


SESPRO  -  Session  control  protoc 
Retransmit  message 

598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 

612  001672     016304     000060 

613  001676     00H27 
6U 

615  001700  005063  000060 

616  001704  016402  000016 

617  001710  066402  000020 

618  001714  016464  000024 

619  001722  126427  000011 

620  001730  001006 

621  001732 

622  001740  112774  000150 
623 

624  001746 

625  001756  116563  000014 

626  001764 
627 
'.28        000001 
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.SBTTL  Retransmit  mi ssage 

**-RTRANS-Retransmit  message 

Retransmit  the  message  on  the  message  retransmission  queue  (disconnect 
initiate,  connect  confirm  or  retransmitted  connect  initiate). 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  data'"  ise  descriptor 


Registers  modified: 
RO,  Rl,  R2,  R4 


000316 
000000 


000016 
000054 


RTRANS::MOV 
BEC 

CLR 

MOV 

ADD 

MOV 

CMPe 

BNE 

MAP 

Move 


10$: 
20$: 


CALLE 

Move 

RETURN 
.END 


L.RTQ(R3),R4 
20$ 


Get  message  for  retransmission 
If  EQ,  none 


No  message  waiting  now 
Compute  end  address  of  message 


L.RTQ(R3) 

C.8UF+2(R4),R2 

C.CNT(R4),R2 

C.BUF2(R4),C.eUF+2(R4) 

C.M0D(R4),*NT$C0N 

10$  ;  If  NE,  not  a  connect  initiate  message 

C.8UF(R4)      ;  Map  to  the  data  buffer 

#MF.CTLIMC.RC,aC.BUF+2(R4) 

SNSESD        ;  Send  the  message 
N$DLY(R5),L.TMRD(R3)  ;  Restart  the  timer 


SESQIO  - 
Copy  opt 

60 
61 
62 
63 
M 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
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000000 

000002  005046 


000004 
000010 

000014 
000020 
000024 
000026 
000032 

000034 
00003b 

000040 
000044 
000052 
000056 
000060 

000064 
000066 
000070 
000072 
000100 


016302 
016203 

016700 
020063 
1014J3 
016300 
005216 

010046 
001412 

012701 

016302 
112122 


012601 
005426 


000040 
000010 

OOOOOOG 
000016G 

000016G 


OOOOOOG 
000014G 


.SBTTL  Copy  optional  data  for  connect  completion 

**-CPYCNC-Copy  optional  data  for  connect  completion 

Copy  the  optional  data  from  the  local  optional  data  buffer  to  the  user 
specified  Buffer  (if  supplied). 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Outputs: 

R1  =  #  of  bytes  of  optional  data  copied 

'C  Clear  -  No  data  overrun 

'C  Set  -  Data  overrun 

Registers  modified: 
RO,  R2 


CPYCNC: 


10$: 

20$: 
30$: 

40$: 


.ENAei   LSB 


SAVRG 
CLR 

MOV 
MOV 

MOV 

CMP 

BLOS 

MOV 

INC 

MOV 
BEQ 

MOV 
MAP 
MOV 

Move 

SOB 

MOV 
NEG 
RESRG 
MAPI IT 
RETURN 


<R3> 
-(SP) 

L.W1ND(R3),R2 
U.TMP(R2),R3 

$OPLNG,R0 

R0,I.PRMt16(R3; 

lOi 

l.PRMtl6(R3),R0 

(SP) 

R0,-(SP) 
30i 

#$0PDAT,R1 
I.PRHM2(R3) 
l.PRM+14(R3),R2 
(fi1)  +  ,(R2)<- 
R0,20i 


(SP)< 
(SP)^ 
<R3> 


,R1 


Save  LLT  address 
Assume  no  data  overrun 

Get  address  of  window  block 
Get  address  of  I/O  packet 

Get  length  of  optional  data  in  the  message 

Did  user  supply  enough  buffer  space? 

If  LOS,  yes 

Use  user  supplied  buffer  size 

Set  data  overrun  flag 

Save  byte  count 

If  EQ.  no  data  move  needed 

Poi' •  to  optional  data 
Map  to  the  user's  buffer 
Get  pointer  to  user's  butfer 
Copy  the  optional  data 


Set  up  count  of  bytes  copied 
Set/Clear  'C  for  data  overrun  indication 
Recover  LLT  address 
and  it's  mapping 
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MACRO  CROSS 

REFERENCE 

CREF 

MACRO  NAME 

REFERENCES 

CALL 

9-144 

9-155 

10-181 

10-186 

12-265 

13-291 

13-297 

13-298 

CALLE 

#6-44 

13-293 

CALLR 

8-P7 

CALLX 

#13-293 

15-293 

CCBDP$ 

#6-46 

6-55 

COUNTS 

#6-44 

CRBDFt 

#6-45 

6-50 

CTRDfS 

#6-45 

6-49 

ECDDBt 

#6-45 

6-48 

LLTDFS 

#6-45 

6-51 

LLWDFS 

#6-45 

6-53 

MAP 

#6-44 

7-97 

7-105 

9-158 

MA^LLT 

#6-44 

7-105 

9-158 

MBXDFS 

#6-45 

6-54 

MSGDFt 

#6-45 

6-52 

NSSYMS 

#6-46 

6-56 

RESMAP 

#6-44 

RESRG 

#6-44 

7-104 

13-300 

RETURN 

7-106 

9-159 

10-192 

11-218 

SAVMAP 

#6-44 

SAVRG 

#6-44 

7-81 

13-289 

SOB 

7-100 

N     7 


04.00 


10-190  11-215 


SE 
Ma 


11-216 


12-242 


12-255 


12-262 


12-267  13-308 
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Macro  definitions 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

35^ 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 
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.SBTTL  SLl  disconnect  link 
•♦-SLIDSL-SLI  disconnect  link 

Ihis  routine  is  called  to  oisconnect  a  logic. 


SE 

M£ 


link. 


Inputs: 

R4  =  Address  of  CCB 

C.NSP  -  Physical  address  of  LLT  (LLA) 

C.BUF1  -  Optional  disconnect  data 

C.FLG2  -  ULA 

C.STA  -  Source  PDV  index 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  R1,  R2,  R3 


SLIDSL 


SLIDCT: 


.ENABL  LSB 


MOV 
CALLE 

TST 
BNE 

MOV 
BIT 
BNE 
MOVE 

:TST 
BNE 

MOV 
CALL 
CLR 
CALLR 


C.NSP(R4),R3 
ACCLLT 

L.PC1L(R3) 
30$ 

R4,L.PCTLCR3) 


;  Get  physical  address  of  LLT 
;  Gain  access  to  LLT 

;  Are  we  already  disconnecting  this  link? 
;  If  NE,  yes  ...  return  no  such  link 

Saue  address  of  disconnect  CCB 


*LT.DIR*400,(R3);  Is  this  a  synchronising  call? 

50$  ;  If  NE,  yes 

*ST$PND,(R3)  ;  Set  state  to  disconnect  pending 

L.TIPI'R3)  ;  Any  transmits  in  progress? 

100$  ;  If  NE,  yes 

L.PCTL(R3)  ,R4  ;  Recover  disconnect  CCB  address 

MOVDAT  ;  Move  optional  data  to  internal  buffer 

SREASN  ;  Set  reason  code  to  user  disconnect 

SNDDIS  ;  Disconnect  the  link 
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Macro  definitions 


823 
824 


100$: 


SEC 
RETURN 


Indicate  unable  to  queue  connect 
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98 

99 
100 
101 
102 
103 
1C4 
105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 

115  000056 

116  000062 

117  000070 

118  000074 

119  000100 
120 

121  000102 

122  000104 

123  000106 
12A 

125  000112 

126 

127  00C1U 

128 

129 

130 

131  000120 

132  000130 
133 

134  000132 

135  000136 

136  OOCUO 

137  000144 

138  000146 

139  000152 
140 

141  000160 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

155 

154 


012765 
016500 
016504 
005724 

005724 
001403 


000512 
012701 

103503 

010065 
010046 

012603 
010365 
017765 

010300 


.SBTTL  Add  a  new  Logical  link  database 

y 

»»-ADDLNK-Add  a  new  logical  link  database 

Allocate  the  databases  needed  to  add  a  new  logical  link. 

Inputs: 

R5  =  Address  of  database  descriptor 

Outputs: 

R3  =  Virtual  address  of  LLT 

'C  Clear  -  Database  allocated 

'C  Set   -  Failed  to  allocate  a  new  database 

Registers  modified: 
RO,  R1 


000001 
00C036 
000040 


000022 


ADDLNK::SAVRG 
MOV 
MOV 
MOV 
TST 


000124 


000030 


000026 
OOOOOOG 


10$: 


20$ 


TST 
BEQ 
SOB 

BP 

MOV 

.IF  DF 


<R2,R4 

#ER$RES,N$ERRC(R5) 
N$1VC(R5),R0 
N$LVCt2(R5),R4 
(fi4)  + 

(R4)t 

20$ 

R0,10$ 


Get  max   It   of  logical  links  allowed 
Get  pointer  to  table 
Skip  over  first  entry 

Is  this  entry  in  use? 
If  EQ,  no 
Keep  looking 


110$ 

#L.LNG,R1 

N$$MLL 


000024 


000162  012701  000052 


CALLX 
BCS 

$ALOCX,AUX 
110$ 

MOV 
MOV 
CALL 
MOV 

MOV 
MOV 

R0,N$PLLT(R5) 

RO,-(SP) 

aCEACC 

(SP)+,R3 

R3,N$LlT(R5) 

aKSAR6,N$LLTM(R5 

MOV 

R3,R0 

.IFF 

CALL 
BCS 

SALOCB 
110$ 

MOV 

MOV 
MOV 

R0,N$PLLT(R5) 

R0,N$LLT(R5) 

R0,R3 

.ENDC 

MOV 

»L.L^JG/2,R1 

;  Exit  through  common  code 
;  Get  size  of  an  LLT 


Allocate  space 
If  CS,  failure 

Save  physical  address  of  LIT 
Gain  access  to  the  LLT 

Get  virtual  address  of  LLT 
Save  virtual  address  of  LLT 


Copy  LLT  address 


Al  locate  space 
If  CS,  failure 


Save  physical  address  of  LL1 
and  virtual  address  of  LLT 
Copy  LLT  address 


Get  length  in  words 
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586 
587 
588 
589 
590 
591 
592 
593 
59^ 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 

608  001152 

609  001156 

610  001162 

611  001166 

612  001172 

613  001176 

614  001202 

615  001206 

616  001212 

617  001214 

618  001216 
619 

620  001224 

621  001232 

622  001236 

623  001240 
624 

625  001244 

626  001246 

627  001252 

628  001256 

629  001260 
630 

631  001262 
632 

633  001270 

634  001274 

635  001300 

636  001304 

637  001306 

638  001310 
639 

640  001314 

641  001320 

642  001322 


016500 
010067 
042700 
017701 
016101 
042701 
020001 
001003 
042767 

012765 

103002 
000167 


012701 


103570 


Inputs 


S8TTL  Convert  CI  message  to  pending  connect  block 

«*-CNVCI-Conuert  CI  message  to  pending  connect  block 

Convert  the  received  CI  message  into  an  internal  pending  connect 
block  format. 

R2  =  Pointer  to  start  of  session  control  information 

R3  =  Virtual  address  of  LLT 

R4  =  Address  of  CI  CCB 

R5  =  Address  of  database  descriptor 

Outputs: 

R4  =  Address  of  pending  connect  block  CCB 
'C  Clear  -  Pending  connect  block  constructed 
'C  Set   -  Unable  to  build  pending  connect  block 
(resource  or  format  error) 

Registers  modified: 
RO,  R1  "'" 


CNVCI: 


000012 

OOOOOOG 

001777 

OOOOOOG 

000014 

001777 


176000 
000001 

000404 

000166 


0000006 
000022  5$: 

7$: 


012765  000005  000022 


005064 
005064 
010064 
006201 
005020 


016400 
022020 
010064 


000032 
000>;i4 
000026 


000026 

000016 


10$: 


SAVRG 

SAVMAP 

MOV 

MOV 

BIG 

MOV 

MOV 

BIC 

CMP 

BNE 

BIC 

MOV 
CALL 
BCC 
J  MP 

SA'RG 

MOV 

CALL 

RESRG 

BCS 

MOV 

CLR 
CLR 
MOV 
ASP 
CI  ,i 
?08 

MOV 
CMP 
MOV 


R2 

<R5,R3> 

N$SNOD(R5),R0 

RO,$LADDR 

#*C<NM$ARA>,RO 

aOECPT.RI 

D$LNUH(R1),R1 

#*C<NM$ARA>,R1 

R0,R1 

5$ 

#NM$ARA,$LADDR 


Save  registers 

and  mapping 
Get  source  address  of  incoming  message 

and  store  for  later  comparison 
Isolate  area  address 
Get  this  node's  area  address 


Are  they  both  the  same  area? 

If  NE,  no 

Form  alternate  address  for  match 


#Ef;$RES,N$ERRC(R5) 

aCCBGT 

7$ 

130$ 


<R2> 

#N.C8Ltl6.t4,R1 

SALOCB 

<R2> 

110$ 


Allocate  a  CCB 

If  CS,  allocation  failure 

BR  if  allocation  failure 

Save  a  register 

Length  of  pending  connect  block 

AllOLate  block 

Restore  register 

It  CS,  allocation  failure 


*ER$FMT,N$ERRC(R5) 


C.FLG2(R4) 

C.SUF(R4) 

R0,C.8UF2t2(R4) 

Rl 

(RO)* 

Rl,10$ 

C.8UF2t2(R4),R0 

(R0)+,(RO)* 

R0,C.BUF*2(R4) 


Initialise  access  control  status 
Set  up  buffer  descriptor  bias 
Save  address  for  deallocation 
Clear  out  the  pending  connect  block 


Recover  block  address 

Skip  over  task  name 

Set  start  address  of  connect  block 
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1078 

1079 

1080 

1081 

1082 

1083 

108^ 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

'109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1125 

112A 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

'134 


0022A2 


002242 
002250 
002254 

002256 
002264 

002266 
002272 


012765 
103441 

000403 

103432 


002274 
002300 
002304 
002310 

002314 
002320 
002324 

002332 
002336 
002342 
0023'.6 
002352 

002356 
002360 
002362 


012702 
066402 
010264 
010264 

111164 
111164 
016564 

116122 
116522 
116522 
116522 
116522 

000241 
032101 
000201 


.SBTTL  Allocate  a  data  buffer  for  message  transmission 

••-GETLD8-AI locate  a  large  data  buffer  for  message  transmission 
•♦-GETSDB-Allocate  a  small  data  buffer  for  message  transmission 

Allocate  a  data  buffer  for  message  transmission.  Ihe  first  part  of 
the  NSP  header  will  be  built  into  the  buffer. 

Calling  sequence: 

JSR  Rl.GETLDB  or 

JSR  RI.GETSDB 

.BYTE  <Message  type  code> 

.BYTE  <Message  flags> 
Inputs: 

R5  =  Address  of  database  descriptor 

Outputs: 

R2  =  Pointer  to  next  auailable  byte  in  the  buffer 
R4  =  Address  of  the  CCB 

Mapping  will  be  changed  to  the  data  buffer 
'C  Clear  -  Buffer  was  successfully  allocated 


•C  Set 

.PSECT 
.ENABL 


Buffer  allocation  failure 


000001  000022 


GERDB::M0V 
CALL 
BCS 

MAP 
BR 

GETSDB::CALL 
BCS 


LS8 

#Ea$RES,N$ERRC(R5) 

aiDBGT 

100$ 


Allocate  a  large  data  buffer 
If  CS,  allocation  failure 


C.BUF(R4)  ;  Map  to  the  data  buffer 

10$  ;  Enter  common  code 

SCSBGT  ;  Allocate  a  combined  CCB  and  small  data  buffer 

100$  ;  If  CS,  allocation  failure 


000007 
000016 
000016 
000024 

000002 
000011 
000030  000004 

000001 
000016 
000017 
000020 
000021 


10$: 


#N$$HDR,R2 
C.BUFt2(R4),R2 
R2,C.BUF+2(R4) 
R2,C.BUF2(R4) 


Set  up  amount  of  overhead  to  leaue  for  XPT 
Compute  starting  address  of  data  area 
Save  new  buffer  address 

and  for  possible  retransmission 


MOV 
ADD 
MOV 
MOV 

MOVB 
M0V8 
MOV 

MOVB  1(R1),(R2)+     ;  Fill  in  the  message  flags 

Move  N$SLA(R5),(R2)+  ;  Fill  in  destination  link  address 

MOVB  N$SLA+UR5),(R2)  + 

MOVB  N$DLA(R5),(R2)+  ;  Fill  in  source  link  address 

MOVB  N$DLA*1(R5),(R2)t 


(R1) ,C.RSV(R4)  ;  Fill  in  message  type  code 

(R1) ,C.M0D(R4)  ;   and  again  for  possible  loopback 

N$PLLT(R5),C.NSP(R4) 


100$: 


CLC 

en 

RTS 


{R1)+,R1 
R1 


Indicate  buffer  successfully  allocated 
Skip  arguments  without  changing  C-bit 


.DSABL   LS8 


SESSOB  - 
Save  ODt 

1538 
1539 
15^0 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
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003276  016700  OOOOOOG 

003302  110063  000102 

003306  001410 

003310  010302 

003312  062702  000103 

003316  012701  OOOOOOG 

003322  112122 
003324 

003330 


.SSTTL  Sawe  optional  data  in  LLT 

♦•-SAVOPT-Save  optional  data  in  LLT 

Saue  the  optional  data  provided  by  the  user  in  the  LLT. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 


RO,  R1,  R2 


SAVOPT::MOV 
MOVB 
BEQ 
MOV 
ADD 
MOV 

10S:    MOVB 
SOB 


$0PLNG,R0 

R0,L.0PDL(R3) 

106$ 

Rj,R2 

#L.0PD,R2 

#$0PDAT,R1 

(Rl)+,(R2)t 

RO.IOi 


Get  length  of  optional  data 

and  save  in  LLT 
If  EQ,  none 
Compute  address  of  optional  data  buffer 

Point  to  available  optional  data 
Copy  the  data 


100$: 


RETURN 
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CREF   04.00 


SYMBOL  VALUE 


FNDMBX 

FRSBCC 

FRSCCF 

FRSCDF 

FRSDAO 

FRSEXC 

FRSFRM 

FRSFTL 

FRSDPN 

FRSRFD 

FRSSBU 

FRSSHO 

FRSUBU 

FRSUPT 

GETLDB 

GETSDB 

H.LUN 

IE. ABO 

lOFIN 

lOREDO 

l.PRM 

I.TCB 

KILLNK 

KISAR6 


KSAR6 
LDBGT 
LDBRT 


000412  RG 

000007 

000001 

000002 

000011 

000000 

000010 

000005 

000004 

000006 

000012 

000003 

000013 

000014 

002242  RG 

002266  RG 
GX 
GX 

••*♦**  GX 

000452  RG 

******  GX 

».*.*»  GX 

002364  RG 

**>*-•  GX 


****** 


=  ****** 
-  ****** 


=  ****** 


GX 
GX 
GX 


REFERENCES 

#26-1063 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#6-54 

#27-1104 

#27-1111 

•38-1524 

22-893 

22-907 
#28-1152 
•22-906 

40-1595 

12-368 
•10-259 
♦19-786 

30-1211 

8-139 

27-1105 

36-1465 


40-1592 

#29-1177 
♦10-266 
♦20-806 
•30-1237 


•11-298 
21-850 
34-1363 


♦11-347 
♦21-851 
♦34-1368 


17-609 
♦21-853 
•35-1387 


•17-660         ♦17-664         ♦17-720         ^19-780 
23-929         ♦23-951         ^23-956         ♦27-1108 
♦42-1711 


L.CSTA 

000037 

♦29-1188 

41-1636 

L.CTR 

000074 

♦11-348 

20-803 

L.DCR 

000100 

♦12-366 

L.ILSQ 

000052 

35-1406 

•35-1408 

L.LLA 

000002 

♦8-175 

20-804 

35-1413 

L.LNG 

000124 

8-127 

8-154 

8-194 

L.LNO 

000026 

♦8-182 

L.MASQ 

000070 

35-1403 

L.NIN 

000020 

♦8-180 

L.NXN 

000016 

♦8-179 

L.OPD 

000103 

10-271 

31-1266 

39-1555 

L.OPDL 

000102 

10-262 

•10-264 

51-1267 

L.REM 

000006 

•8-178 

L.RNO 

000022 

•8-181 

L.RTQ 

000060 

35-1389 

L.TC 

000042 

♦8-183 

L.TIPI 

000012 

41-1639 

L.USTA 

000036 

•29-1184 

41-1642 

42-1699 

L.WiND 

000040 

•38-1530 

MAPOP  1 

002430  RG 

#30-121' 

MOSSAC 

-  000016 

#6-54 

MOSSPR 

=  000012 

#6-54 

MOSS  Si' 

=  0G0C14 

#6-54 

35-1421 


•31-1269       ♦39-1552 
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SESIM 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
i, 
A 

A 

4 
5 
5 
5 

i; 

5 

5 


SESMM 


SESPRO 


J 

1 

s 

M 

s 

N 

s 

H 

6 

r 

6 

D 

6 

E 

h 

F 

ft 

n 

6 

H 

ft 

I 

ft 

.1 

ft 

K 

6 

1 

6 

H 

ft 

N 

ft 

B 

f 

C 

t 

1) 

7 

F 

7 

F 

/ 

G 

7 

H 

'f 

I 

'f 

,; 

J 

K 

1 

1. 

1 

M 

l 

N 

7 

B 

K 

r 

> 

D 

F 

, 

F 

,    , 

G 

H 

,    , 

I 

, ; 

J 

1 

K 

\ 

1, 

\ 

M 

^ 

N 
B 

1 

r 

9 

D 

9 

F 

9 

F 

9 

G 

H 

^ 

I 

9 

J 

9 

K 

9 

1. 

M 

9 

N 

9 

B 

r 

'\ 

D 

10 

SESQIO 


SESSLI 


F 

10 

F 

U) 

G 

10 

H 

10 

I 

10 

J 

10 

K 

10 

1 

10 

H 

10 

N 

10 

R 

11 

r 

11 

0 

11 

F 

11 

F 

11 

G 

11 

H 
f 

11 

1  1 

J 

11 

K 

11 

1 

11 

M 

11 

N 

n 

R 

V 

r 

Y? 

D 

V 

F 

\2 

F 

V 

G 

v 

H 

V 

I 

y? 

J 

V 

K 

V 

1 

y? 

M 

V 

N 

V 

R 

n 

r 

H 

\> 

H 

F 

1^ 

F 

M 

G 

M 

H 

H 

I 

1^ 

J 

1^ 

K 

H 

1 

H 

M 

H 

N 

1< 

R 

U 

r 

U 

D 

14 

F 

14 

F 

14 

G 

14 

H 

U 

1 

14 

I 

14 

K 

14 

L 

14 

SFS5U8 


M  14 
N  14 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  15 
L  15 
M  15 
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B  16 
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SESTIM 


SESUSR 


